انتقل إلى المحتوى الرئيسي

 كيف تكون دائمًا في الخلية A1 عند فتح المصنف؟

كما نعلم جميعًا ، عندما تفتح مصنفًا ، فسوف يُظهر موضع الخلية حيث قمت بحفظه وإغلاقه في المرة الأخيرة. كيف يمكنك دائمًا فتح مصنف مع كل ورقة في خلية معينة A1؟ ستتحدث هذه المقالة عن بعض الطرق لحلها.

افتح دائمًا مصنفًا مع كل ورقة في الخلية A1 باستخدام التعليمات البرمجية لـ VBA

افتح دائمًا مصنفًا في ورقة وخلية معينة A1 باستخدام التعليمات البرمجية لـ VBA


السهم الأزرق الحق فقاعة افتح دائمًا مصنفًا مع كل ورقة في الخلية A1 باستخدام التعليمات البرمجية لـ VBA

على سبيل المثال ، تريد دائمًا أن يفتح المصنف في الخلية A1 من كل ورقة عمل بغض النظر عن مكانك في المصنف عندما تم إغلاقه آخر مرة. الرجاء القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في اليسار مشروع- VBAProject جزء ، انقر نقرًا مزدوجًا ThisWorkbook لفتح وحدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية ، انظر لقطة الشاشة:

رمز فبا: دائما فتح مصنف مع كل ورقة في الخلية A1:

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub

يفتح المستند دائمًا على A1 1

2. ثم أغلق هذا الرمز ، وانقر قم بتقديم > حفظ باسم لحفظ المصنف باسم مصنف Excel ممكن بماكرو التنسيق ، انظر لقطة الشاشة:

يفتح المستند دائمًا على A1 2

3. من الآن فصاعدًا ، عند فتح هذا المصنف في المرة القادمة ، الرجاء النقر فوق تمكين المحتوى لتنشيط الكود والتبديل بين الأوراق ، يمكنك رؤية كل ورقة عمل في الخلية A1 تلقائيًا.

يفتح المستند دائمًا على A1 3


السهم الأزرق الحق فقاعة افتح دائمًا مصنفًا في ورقة وخلية معينة A1 باستخدام التعليمات البرمجية لـ VBA

إذا كنت تحتاج فقط إلى فتح ورقة معينة في الخلية A1 عند تشغيل المصنف في كل مرة ، فقد تساعدك التعليمات البرمجية لـ VBA التالية.

على سبيل المثال ، أرغب دائمًا في الانتقال إلى الورقة 1 في الخلية A1 عند فتح المصنف.

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في اليسار مشروع- VBAProject جزء ، انقر نقرًا مزدوجًا ThisWorkbook لفتح وحدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية ، انظر لقطة الشاشة:

رمز فبا: افتح دائمًا مصنفًا بورقة محددة في الخلية A1:

Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub

يفتح المستند دائمًا على A1 4

ملاحظات: في الكود أعلاه ، Sheet1 و A1 هي ورقة العمل ومرجع الخلية الذي تريد الانتقال إليه عند فتح المصنف. يمكنك تغييرها حسب حاجتك.

2. ثم أغلق هذا الرمز ، وانقر قم بتقديم > حفظ باسم لحفظ المصنف باسم مصنف Excel ممكن بماكرو تنسيق ، من الآن فصاعدًا ، عند فتح هذا المصنف في المرة القادمة ، الرجاء النقر فوق تمكين المحتوى لتنشيط الرمز ، وسوف ينتقل تلقائيًا إلى الورقة 1 في الخلية A1.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations