kmaal قام بنشر يونيو 27, 2012 قام بنشر يونيو 27, 2012 السلام عليكم ورحمة الله وبركاته ممكن كيفية اختصار هذا الكود If ComboBox1.Value = "المختص" Then documents.Open "C:\test\b.doc" ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select Selection.Copy ActiveDocument.Close savechanges:=False ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select Selection.PasteAndFormat Type:=wdFormatPlainText End If مع العلم أن قائمة الكمبوبوكس أكثر من 16 عنصر ، والمعادلة الموضحة شغالة تمام تنسخ من خلية من جدول ورد من ملف b إلى خلية في جدول ورد آخر للملف A حسب شرط قائمة الكمبوبوكس . والمطلوب كيفية اختصار لهذا الكود ، انا أقل من مبتدئ جداً جداً تحت الصفر ، يعني كيف نعمل المتغير . مع خالص الشكر ،،،
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.