-->

حذف اى عدد من الصفوف والاعمدة بطريقة سهلة جدا كود عشرة على عشرة excel vba| Hide All Rows or columns

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

 درس جديد وكود جديد من مكتبة اكواد اكسل VBA

كيفية حذف او اخفاء اى عدد من الصفوف والاعمدة بطريقة سهلة جدا 



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

لماذا سمينا هذا الكود كود عشرة على عشرة ؟

لاننا سنقوم فى هذا الكود بابقاء عدد 10 اعمدة فقط و10 صفوف فقط فى ورقة العمل

فى البداية نقوم بالذهاب الى المطور Developer ومن ثم نقوم بفتح نافذة كتابة الاكواد Visual basic ثتم نقوم بادراج وحدة نمطية جديدة

Insert Module ونكتب فية الكود التالى

 

 

Sub tenbyten()

Sheets.Add after:=ActiveSheet

Columns("k:k").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.EntireColumn.Hidden = True

 

'======================================

Rows("11:11").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.EntireRow.Hidden = True

 

 

Range("a1").Select

 

Range("a1:j10").Select

Selection.Interior.Color = vbGreen

End Sub

 كود سهل وبسيط جدا 

لتحميل ملف العمل من هنا 

لمشاهدة شرح الفيديو من هنا

 


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق