الدكتور خضر الرجبي قام بنشر يناير 21, 2007 مشاركة قام بنشر يناير 21, 2007 السلام عليكم الإجراء التالي يقوم بتغيير معلومات موجودة في كل صفحات المصنف بمعلومات آخرى وذلك باستخدام الكود عن طريق الضغط على مفتاح 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 مع الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 21, 2007 مشاركة قام بنشر يناير 21, 2007 السلام عليكم لم اطلع على عملك لكنك مبدع تستحق كل تقدير جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.