استخدام VBA لبرمجة Excel ليس شائعًا كما كان من قبل. ومع ذلك ، لا يزال هناك الكثير من المبرمجين الذين يفضلون ذلك عند العمل مع Excel. إذا كنت واحدًا من هؤلاء الأشخاص ، فهذا المقال لك.
نسخ صف في إكسيل فبا هو شيء مفيد لـ Excel VBA. على سبيل المثال ، قد ترغب في الحصول على ملف واحد لجميع الإيصالات الخاصة بك مع التاريخ والحساب والفئة والموفر ، أدخل المنتج / الخدمة والتكلفة سطرًا واحدًا في كل مرة ، عند حدوثها - مثال على تطور المحاسبة بدلاً من ذلك محاسبة ساكنة. للقيام بذلك ، يجب أن تكون قادرًا على نسخ صف من ورقة عمل إلى أخرى.
يحتوي نموذج Excel VBA الذي يقوم بنسخ صف من ورقة عمل إلى أخرى - باستخدام ثلاثة أعمدة فقط للبساطة - على:
- عمود ألفا لـ نص
- عمود رقمي - يتم إنشاء مجموع تلقائي في ورقة العمل الهدف
- عمود التاريخ - يتم تعبئة التاريخ والوقت الحاليين تلقائيًا
اعتبارات لكتابة Excel VBA Code
لتشغيل حدث يقوم بنسخ الصف ، اتبع المعيار - عنصر تحكم نموذج زر. في Excel ، انقر فوق إدراج في علامة التبويب المطور. ثم حدد عنصر تحكم نموذج الزر وارسم الزر حيث تريده. يقوم Excel تلقائيًا بعرض مربع حوار لمنحك فرصة لتحديد ملف دقيق يتم تشغيله بواسطة حدث النقر للزر أو لإنشاء زر جديد.
هناك عدة طرق للعثور على الصف الأخير في ورقة العمل المستهدفة بحيث يمكن للبرنامج نسخ صف في الأسفل. يختار هذا المثال الحفاظ على رقم الصف الأخير في ورقة العمل. للحفاظ على رقم الصف الأخير ، يجب عليك تخزين هذا الرقم في مكان ما. قد تكون هذه مشكلة لأن المستخدم قد يغير الرقم أو يحذفه. للتغلب على هذا ، ضعه في الخلية أسفل زر النموذج مباشرة. بهذه الطريقة ، لا يمكن للمستخدم الوصول إليها. (أسهل شيء تفعله هو إدخال قيمة في الخلية ثم تحريك الزر فوقها.)
رمز لنسخ صف باستخدام Excel VBA
إضافة Add_The_Line () خافتة CurrentRow كأوراق صحيحة ("الورقة 1"). حدد currentRow = Range ("C2"). صفوف القيم (7) .حدد التحديد. نسخ الأوراق ("الورقة 2"). حدد الصفوف (currentRow). حدد ActiveSheet. لصق Dim theDate As Date theDate = Now () الخلايا (currentRow، 4) .Value = CStr (theDate) Cells (currentRow + 1، 3) .Activate Dim rTotalCell As Range Set rTotalCell = _ Sheets ("Sheet2"). الخلايا ( الصفوف. العد ، "C"). End (xlUp) .Offset (1، 0) rTotalCell = WorksheetFunction. Sum _ (النطاق ("C7" ، rTotalCell. الإزاحة (-1 ، 0))) الأوراق ("الورقة 1"). النطاق ("C2"). القيمة = currentRow + 1 End Sub
يستخدم هذا الرمز xlUp أو "الرقم السحري" أو أكثر من الناحية التقنية ثابت تعداد ، والذي يتم التعرف عليه من خلال طريقة النهاية. الإزاحة (1،0) تنتقل لأعلى بمقدار صف واحد في العمود نفسه ، وبالتالي فإن التأثير الصافي هو تحديد الخلية الأخيرة في العمود C.
في البيان ، يقول البيان:
- انتقل إلى الخلية الأخيرة في العمود C (ما يعادل End + Down Arrow).
- ثم ، عد إلى آخر خلية غير مستخدمة (أي ما يعادل السهم End + Up).
- ثم ، اصعد خلية أخرى.
يقوم البيان الأخير بتحديث موقع الصف الأخير.
من المحتمل أن يكون VBA أصعب من VB.NET لأنه يجب عليك معرفة كائنات VB و Excel VBA. يعد استخدام xlUP مثالاً جيدًا على نوع المعرفة المتخصصة التي تعتبر حاسمة للقدرة على كتابة وحدات ماكرو VBA دون البحث عن ثلاثة أشياء مختلفة لكل عبارة تقوم بترميزها. أحرزت Microsoft تقدمًا كبيرًا في ترقية محرر Visual Studio لمساعدتك على معرفة بناء الجملة الصحيح ، ولكن محرر VBA لم يتغير كثيرًا.