كيفية تغيير معلومات في مصنف الإكسيل برمجياً

[الدكتور خضر الرجبي]

السلام عليكم

الإجراء التالي يقوم بتغيير معلومات موجودة في كل صفحات المصنف بمعلومات آخرى وذلك باستخدام الكود عن طريق الضغط على مفتاح Alt+F8 وتشغيل الإجراء.

Sub ChgInfo()
Dim Sht As Worksheet
For Each Sht In Worksheets
    Sht.Cells.Replace What:="old stuff", _ 
        Replacement:="new stuff", LookAt:=xlPart, MatchCase:=False
Next
End Sub

بمعنى آخر هذا الاجراء يعمل نفس عمل Replace آمر الاستبدال الموجود في القوائم ولكن بطريقة برمجية

مثال تطبيقي : ChangeInEntireWorkBook.rar

مع الاحترام والتقدير

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

السلام عليكم

لم اطلع على عملك لكنك مبدع تستحق كل تقدير

جزاك الله خيرا