اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

 

Untitled.png

قام بنشر

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

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

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

  • Like 2
  • أفضل إجابة
قام بنشر

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

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

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

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

image.png.3cf1c50ddfc5fa580cf161324c297366.png

وهذا المرفق

 

Book1.xlsm

  • Like 3
قام بنشر

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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information