এক্সেল ভিবিএ, বিভিন্ন সেল অবস্থান নির্দেশ পয়েন্ট সূত্র মধ্যে সেল রেফারেন্স পরিবর্তন

Question

আমি একটি নির্দিষ্ট কলামের অবস্থান দ্বারা কলামের অবস্থানের ফরমুলা কলামের অবস্থানগুলির কেবলমাত্র অংশগুলি (অফসেট) সরানোর চেষ্টা করছি। সূত্র থেকে শীট থেকে সূত্র কোষ পরিবর্তন। আমার হাজার হাজার সূত্র রয়েছে যা সকলের বিভিন্ন সেল অবস্থান রয়েছে। তাই আমি কিছু ধরনের VBA ম্যাক্রো সমাধান পছন্দ। এটি মূল সূত্র:

=IF(AND($A$9=1,GH10=GT12),0,IF(AND($A$9=2,GI10=GS13),0,IF(AND($A$9=3,GJ10=GR14),0,1)))

এবং এটি এই পরিবর্তন করতে চান:

=IF(AND($A$9=1,GI10=GT12),0,IF(AND($A$9=2,GJ10=GS13),0,IF(AND($A$9=3,GK10=GR14),0,1)))

এটি এক কলামের দ্বারা, তবে শুধুমাত্র সংখ্যাসূচক (GH10 -> GI10 এবং GI10 -> GJ10, ইত্যাদি)। এবং একই ধ্রুবক সার নম্বর আছে।

আমি এই কোডটি (নীচের) খুঁজে পেয়েছি, এটি আমাকে ড্রপ ডাউন বক্স থেকে কতগুলি কলাম স্থানান্তরিত করতে হবে (যতক্ষন না আমি নিজে কোড এ প্রবেশ করতে পারব যতক্ষণ না আমি এটি কোডে প্রবেশ করতে পারব), তবে এটি সূত্রের গোষ্ঠীকেও পরিবর্তন করে। (উল্লেখ্য: আমি সূত্রের অংশগুলিতে $ যোগ করতে পারি না যা আমি পরিবর্তন করতে চাই না। সূত্রটি গতিশীল থাকতে হবে)।

Sub Macro1()
    Dim nbr As Long, cel As Range, cels As Range, sh As Worksheet
    Set cels = Selection

    nbr = CLng(InputBox("Enter offset:"))

    Set sh = Worksheets.Add

    For Each cel In cels

        If cel.HasFormula Then

            sh.Cells(cel.Row, cel.Column + nbr).FormulaR1C1 = cel.FormulaR1C1
            cel.Formula = sh.Cells(cel.Row, cel.Column + nbr).Formula

        End If

    Next

    Application.DisplayAlerts = False
        sh.Delete
    Application.DisplayAlerts = True

End Sub

এটি একটি সময়ে এক সেল জন্য। যদি কোনও ভি ভি বি কোড থাকে তবে এটি একটি নির্বাচিত রেঞ্জটিকে এক সময়ে একক কোষের বিরোধিতা করতে পারে?

Comments

আমি জানি আপনি একটি ভিবিএ সমাধান জন্য জিজ্ঞাসা, কিন্তু আপনি ব্যবহার বিবেচনা OFFSET, হিসাবে Offset(GH10,,cell_reference) যেখানে ঘর রেফারেন্সটি সেই শীটের জন্য কলাম অফসেট ধারণ করবে।

— Rey Juna

জিএইচ 10 শুধুমাত্র হাজার সূত্রের মধ্যে 1 ব্যবহার করা হয়; পরবর্তী শীট একটি ভিন্ন কোষ পয়েন্টার থাকবে।

— dendy792

কেন আপনি ব্যবহার করবেন না Find & Replace সঙ্গে Formula Option, অথবা আমি জন্য ভিবিএ সুপারিশ করতে পারেন Find & Replace। সারি পরিবর্তন করতে হবে কিভাবে আমাকে বলুন GJ10 সঙ্গে GK10 ?

— Rajesh S

শুধুমাত্র 1 সারিতে, 1000+ শীটগুলিতে। GJ10 হাজার শীট মাধ্যমে ছড়িয়ে হাজার হাজার সূত্র আউট এক সূত্র শুধুমাত্র। আমি হাজার বার খুঁজুন ইনপুট এবং অনুসন্ধান ইনপুট কোষ জানতে হবে। আমি শুধু পরীক্ষার "সংখ্যাসূচক" অংশটি অফসেট করতে চাই (অর্থাৎ: জিজে 10 = জিআর 14) শুধুমাত্র জিজে 10 অফসেট 1+ কলামে (জিকে 10 = জিআর 14)।

— dendy792

কেন অনুসন্ধান এবং প্রতিস্থাপন না GJ সঙ্গে GK উপযুক্ত কলাম সূত্র? আপনি যদি নিজে নিজে এটি করতে না চান তবে এটি সহজেই স্বয়ংক্রিয়ভাবে তৈরি হতে পারে Range.Replace।

— cybernetic.nomad