ms-access اصلاح - كيفية الرجوع إلى ملف بويربوانت أو إكسيل مضمن في نموذج في أسيس؟





يفتح وورد (2)


لنفترض أنك أضفت كائن إكسيل المصنف في النموذج الخاص بك، واسمه زلوبجيكت وأضاف مرجع إلى مكتبة كائنات إكسيل في فبا

هنا كيف يمكنك الوصول إلى ورقة من هذا الكائن وتغيير نطاق

Dim sheet As Excel.Worksheet
Set sheet = xlObject.Object.Sheets(1)
sheet.Range("A1") = "Hello World"

نفس المنطق ينطبق على بويربوانت.

لذلك إذا كنت لأخذ نموذج أسيس، وتضمين جدول بيانات إكسيل في ذلك أو سطح بويربوانت، كيف يمكنني الإشارة إليه في التعليمات البرمجية فبا؟

وأنا أعلم أنه يجب تعيين المكتبات، واسم إطار كائن أولي، واستخدام بناء الجملة السارية على ما أريد القيام به، مع كل ما أنا عصا في النموذج، ولكن الأشياء الوحيدة التي قمت به من أي وقت مضى مع إكسيل و / أو بويربوانت هو أتمتة فتح نافذة / تطبيق منفصل من أسيس، وليس ضمن نموذج أسيس. لذلك أنا لست متأكدا من كيفية المضي قدما.

إذا قلت لها Excel.Application جديد، ثم set xls = to (سس في الملف، وليس بعض مسار ملف ملف إكسيل آخر في مكان ما)؟

هل هذا منطقي؟




إليك بعض المعلومات من مدونتي عن الطريقة التي أرغب في استخدام formular1c1 خارج vba:

لقد انتهيت للتو من كتابة صيغة ، وقمت بنسخها إلى جدول البيانات بأكمله ، وقمت بتنسيق كل شيء وأنت تدرك أنك نسيت أن تجعل مرجعًا مطلقًا: كل صيغة مطلوبة للإشارة إلى الخلية B2 ولكن الآن ، تشير جميعها إلى خلايا مختلفة.

كيف ستفعل البحث عن / استبدال على الخلايا ، معتبرا أن واحد لديه B5 ، C12 الأخرى ، D25 الثالثة ، وما إلى ذلك ، وما إلى ذلك؟

الطريقة السهلة هي تحديث الطراز المرجعي الخاص بك إلى R1C1. يعمل المرجع R1C1 مع موضع نسبي: R يميز الصف ، العمود C والأرقام التي تتبع R و C هي إما مواضع نسبية (بين []) أو مواضع مطلقة (لا [].

أمثلة:

  • R [2] تشير C إلى الخلية صفين تحت الخلية التي فيها الصيغة
  • يشير RC [-1] إلى عمود الخلية واحد إلى اليسار
  • يشير R1C1 الخلية في الصف الأول والخلية الأولى ($ A $ 1)

ما الدي يهم؟ حسنًا ، عندما كتبت الصيغة الأولى في بداية هذا المنشور ، كانت B2 الخلية 4 صفوف فوق الخلية التي كتبتها بها ، أي R [-4] C. عندما تقوم بنسخها عبر أو أسفل ، بينما يتغير مرجع A1 ، لا يشير مرجع R1C1. في كل جدول البيانات ، يكون R [-4] C. إذا قمت بالتبديل إلى R1C1 Reference Style ، فيمكنك استبدال R [-4] C بمقدار R2C2 ($ B $ 2) باستخدام بحث / استبدال بسيط وإجراء عملية دفعة واحدة.







ms-access vba excel-vba access-vba powerpoint-vba