এক্সেল ফাইলের সমস্ত ট্যাব জুড়ে ম্যাক্রো চালান - এক লাইনের ম্যাক্রো কোড উপলব্ধ?

Question

আমার কিছু ম্যাক্রো রয়েছে যা আমার বর্তমান শীটে চালিত হয় তবে আমি এটি চাই আমার বোতামের সমস্ত ট্যাবগুলিতে একটি বোতামের ক্লিক দিয়ে চালানো। এর উদ্দেশ্য হ'ল f5-এ নির্দেশিত সমস্ত মান f2 এর মানের সাথে, এ 2: C100 কোষে প্রতিস্থাপন করা।

এটি বর্তমান কোড:

Sub try()
Range("A2:C100").Select
    Selection.Replace What:=Range("f5").Value, Replacement:=Range("f6").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Sub Button4_Click()

End Sub

Answer 1

আমি ধরে নিলাম যে F5 এবং F6 আমার উদাহরণে একটি নির্দিষ্ট শীট 'শীট 1' বলুন। সুতরাং আপনার ওয়ার্ডবুকটিতে একাধিক পত্রক থাকা সত্ত্বেও ফাইন্ড অ্যান্ড রিপ্লেস সর্বদা শিট 1! এফ 5 এবং শিট 1! এফ 6 উল্লেখ করে।

নিম্নলিখিতটিতে কোডটি সংশোধন করুন। এটি বর্তমান ওয়ার্কবুকের সমস্ত পত্রক থেকে লুপ করবে এবং প্রতিটি কার্যপত্রকের কোড চালাবে। সাব ট্রাইতে () শীটটি এর কোডনাম দ্বারা উল্লেখ করা হয় যেমন Sheet1.Rangeএই উদাহরণে এবং শীটের প্রকৃত নাম নয়।

আপনি প্রকৃতপক্ষে একক ম্যাক্রোতেও সমস্ত কিছু সংযুক্ত করতে পারেন।

Public Sub try()
ActiveSheet.Range("A2:C100").Select
    Selection.Replace What:=Sheet1.Range("f5").Value, Replacement:=Sheet1.Range("f6").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


Sub Button1_Click()
For Each WS In ThisWorkbook.Sheets
    WS.Activate
    Call try
Next WS
End Sub

আমি একটি লাইনার কোড থাকতে পারে কিনা সে সম্পর্কে খুব নিশ্চিত নই তবে আপনি যে একই অনুভূতি রাখতে পারেন তা পেতে: সমস্ত বিবৃতিকে একটি লাইনে রেখে দেওয়া। কিছুটা এইরকম

Sub Button1_Click()
  For Each WS In ThisWorkbook.Sheets: WS.Activate:    Call try: Next WS
End sub