كيفية تفعيل ورقة باستخدام vba؟
لنفترض أنك تعمل باستخدام أوراق عمل متعددة ومن الصعب عليك الانتقال إلى ورقة باستخدام علامة تبويب. في هذه الحالة، يمكنك استخدام تعليمات VBA البرمجية لتنشيط أي ورقة عمل.
ولكتابة كود VBA لهذا، تحتاج إلى استخدام أسلوب Worksheet.Activate. في هذه المقالة، أود أن أشارككم طريقة سهلة لكتابة هذا الكود لتفعيل أو تحديد ورقة العمل. قبل كتابة هذا الرمز، يجب أن تفهم هذه الطريقة.
ورقة عمل. طريقة التنشيط
في هذه الطريقة، يمكنك تحديد اسم أو رقم ورقة العمل التي تريد تنشيطها. لنفترض أنك بحاجة إلى تنشيط الورقة 1، فسيكون الرمز:
Worksheets("Sheet1").Activate
أو يمكنك أيضًا استخدام أرقام الأوراق.
Worksheets("1").Activate
وبالتالي فإن الكود النهائي سيكون:
Sub ActivateSheet1() Worksheets("Sheet1").Activate End Sub
أمثلة: تنشيط جدول بيانات باستخدام VBA
في الحياة الواقعية، يمكنك استخدام هذه الطريقة بطرق مختلفة. وهنا عدد قليل.
1. قم بتنشيط جدول البيانات عند فتحه
إذا كنت تريد تنشيط ورقة عمل معينة في كل مرة تفتح فيها المصنف، فقم بتسمية رمز VBA هذا auto_open.
Sub auto_open() Worksheets("Sheet1").Activate End Su
2. قم بتمكين ورقة عمل واحدة وإخفاء كافة الأوراق الأخرى
ربما تريد الانتقال إلى ورقة عمل واحدة وإخفاء كافة أوراق العمل الأخرى في المصنف. يمكنك القيام بذلك باستخدام الكود أدناه.
Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then ws.Visible = xlSheetHidden End If Next ws End Sub
قم بتغيير اسم الورقة من الكود أعلاه لجعله أكثر فائدة.
الدروس ذات الصلة
- مسح ورقة كاملة باستخدام VBA في Excel
- انسخ ورقة وانقلها في Excel باستخدام VBA
- COUNT من الأوراق باستخدام VBA في Excel
- حذف ورقة باستخدام VBA في Excel
- إخفاء وإظهار ورقة باستخدام VBA في Excel