كيفية نسخ جدول فى شيت بدون تغيير فى ارتفاع وعرض الخلايا

[aladdin61]

السلام عليكم ورحمة الله وبركاته

وكل عام والجميع بألف خير

اريد نسخ محتويات جدول فى شيت اكسل تم تنسيق ارتفاع وعرض خلاياه بعد طول معاناه لضبطه للطباعة ، ولكن عند نسخه يتغير ارتفاع وعرض الخلايا ، الى ان تعرفت على ايقونة تسمح لى بالنسخ مع الاحتفاظ بعرض الخلايا فقط ، ولكن يتغير عرض الخلايا ، مما يضطرنى الى اعادة تنسيقها يدويا مما يستهلك وقتا كبيرا ، فهل هناك طريقة لنسخ الجدول مع الاحتفاظ بكل من ارتفاع وعرض الخلايا دون تغيير

وهذه هى الايقونة التى انسخ بها الجدول مع الاحتفاظ بعرض الخلايا فقط

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

 

[عبدالفتاح في بي اكسيل]

اخي  اين  الملف  حتى نعرف  المدى والورقة  التي  ستطبق  عليها  

عالعموم  هذا  ملف   به  كود  برمجي   بمجرد  الضغط  عليه  يتم نسخ  المدى   بنفس  عرض العمود  في  نفس  ورقة  العمل 

Sub width_col()
Sheets("sheet1").Range("A1:e50000").Copy
    With Sheets("sheet1").Range("G1")
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues, , False, False
        .PasteSpecial xlPasteFormats, , False, False
    End With
    Application.CutCopyMode = False
End Sub

 

FORMAT WIDTH‬.xls

[حسين مامون]

بعد اذن الاستاذ عبدالفتاح في بي اكسيل

واثراء للموضوع جرب هذه الطريقة

اليك هذا الماكرو

Sub pastespcolwid()
' Keyboard Shortcut: Ctrl+q

ActiveCell.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
End Sub

ضعه في مديول

ثم اهب الى Macro ثم  Options ثم ادخل حرف Q لاختصار الماكرو انظر الصورة  

الماكرو ينفذ عملية اللصق عن طريق لوحة المفاتيح والطريقة هي : حدد النطاق الذي تريد ثم نسخ ثم اذهب الى مكان اللصق ثم على لوحة المفاتيح اضغط زر CTRL+Q

وهذا المرفق

 

Book1.xlsm

[aladdin61]

جزيل الشكر للاستاذ عبد الفتاح

ولكن حضرتك افترضت اننى سأنسخ الجدول فى نفس الشيت ، ولكننى اريد ان انسخه فى وورك بوك آخر ، فلك الشكر

كذلك الشكر موصول الاستاذ حسين ،

فلقد طبقت خطوات حضرتك ، ولكن بدون جدوى ، ولربما كان السبب منى لعدم التطبيق كما ذكرت حضرتك ، فلك الشكر

وللجمبع الشكر على المجهود الطيب وكل عام وحضراتكم بخير

وكنت اتمنى ان تكون هناك ايقونة يتم منها النسخ بدلا من اللجوء للاكواد والماكرو . ولكن يبدو ان برنامج الاكسيل ليس به هذه الايقونة والتى ارى انها مهمة جدا فى البرنامج

[حسين مامون]

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

لازم ترفع نمودج لملف العمل 

تحياتي