بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسل 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
كود سهل وبسيط جدا
لتحميل ملف العمل من هنا
لمشاهدة شرح الفيديو من هنا