البحث في الموقع
Showing results for tags 'كود نسخ التنسيق من خلية الي خلية اخرى format painter'.
تم العثور علي 1 نتيجه
-
Sub test() Range("A4").Copy Range("A5").Resize(Range("A1").Value).PasteSpecial Paste:=xlPasteFormats End Sub إذا لم ينفذ معك الكود أمسح بعض من الكود المكتوب باللون الأسود .. وتوكل على الله . طبعاً راح تحتاج الي كود أخر لا لغاء التحديد عن الخلية .. ضع بعد الكود السابق هذا الكود Application.CutCopyMode = False