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 حسب شرط قائمة الكمبوبوكس . والمطلوب كيفية اختصار لهذا الكود ، انا أقل من مبتدئ جداً جداً تحت الصفر ، يعني كيف نعمل المتغير . مع خالص الشكر ،،، رابط هذا التعليق شارك 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.