الاستبدال الشرطي في الاكسل

[HADNOOR]

اخواني في الله

السلام عليكم

فضلا اريد المساعدة في كيفية استبدال كلمة في جملة بشرط وجود كلمة اخري في هذه الجملة في الاكسل مثل هذا المثال

5000-00,TRUE,0,0, التكلفة المباشرة

5000-01,TRUE,0,0,التكلفة المباشرة لفرع 1

5000-02,TRUE,0,0,التكلفة المباشرة لفرع 2

فعلي سبيل المثال اريد ان استبدل TRUE الي FALSE في الجملة التي بها 02 فكيف يتم ذلك وتقبلوا وافر التحية والتقدير

[ابو اسامة العينبوسي]

السلام عليكم

لو ترفق ملف

[HADNOOR]

عفوا اخي العزيز لا يحتاج الامر الي ملف فلقد قمت بشرح ما اريد وهو استبدال اي كلمة او حرف بجملة بشرط توفر كلمة اخري في نفس الجملة فعلي سبيل المثال لا اريد استبدال كل كلمة TRUE في كل الجمل ولكن اريد فقط تغيير كلمة TRUE في الجملة التي تتوفر فيها 02 علي سبيل المثال

اتمني ان اكون قد وضحت القصد وشكرا للتجاوب

للاخ حسن السجيب

لقد وجدت لك كود للاستبدال فهل يمكن تعديله بحيث يكون هناك شرط في الاستبدال في المدي المعين للاستبدال ومرفق الكود الخاص بك وبعد اذنك لو يقوم اي من الاخوه بالتعديل فجزاه الله خيرا

الكود

Sub Replace()

On Error GoTo MyErr

Set MyRange = Application.InputBox(prompt:="حدد النطاق الذي تود الإستبدال منه", Title:="نطاق الإستبدال", Type:=8)

A = Application.InputBox("ضغ الكلمة التي تود إستبدالها هنا" & vbNewLine & "" & vbNewLine & "(يمكنك وضع مرجع للكلمة بدل كتابتها)", "الكلمة المُراد إستبدالها")

B = Application.InputBox("ضع الكلمة الجديدة هنا" & vbNewLine & "" & vbNewLine & "(يمكنك وضع مرجع للكلمة بدل كتابتها)", "الكلمة الجديدة")

MyRange.Replace A, B

MyErr:

Exit Sub

End Sub

[ابو اسامة العينبوسي]

السلام عليكم

لو لم تكن الامور بحاجه للادراج ملف لكانت ادارة المنتدى علمت ذلك

و لما ادرج احد ملف اخى الفطين

[HADNOOR]

اخي العزيز ارفقت لكم ملف بالمطلوب ولكن رجاء ان يكون اسلوب الحوار افضل من هيك وتقبلوا وافر تحياتي وتقديري للجميع

REPLASE.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخي الكريم نحن اخوه لكن انت سالت و اجبت في نفس المشاركه

هذا حل سريع عن طريق الصيغه

الحل في خليه F7

_____________________.rar

[HADNOOR]

اخي العزيز تقبل مني وافر تحياتي وتقديري لمتابعتك وكل ما ارجوه هو الاستبدال الشرطي عن طريق الكود وليس الصيغة