كيفية تفعيل ورقة باستخدام 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

قم بتغيير اسم الورقة من الكود أعلاه لجعله أكثر فائدة.