حياة

كيفية نسخ صف في إكسل VBA

كيفية نسخ صف في إكسل VBA


We are searching data for your request:

Forums and discussions:
Manuals and reference books:
Data from registers:
Wait the end of the search in all databases.
Upon completion, a link will appear to access the found materials.

استخدام VBA لبرنامج Excel ليس شائعًا كما كان من قبل. ومع ذلك ، لا يزال هناك الكثير من المبرمجين الذين يفضلون ذلك عند العمل مع Excel. إذا كنت أحد هؤلاء الأشخاص ، فهذه المقالة لك.

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

نموذج لبرنامج Excel VBA يقوم بنسخ صف من ورقة عمل واحدة إلى أخرى باستخدام ثلاثة أعمدة فقط للبساطة - يحتوي على:

  • عمود ألفا للنص
  • عمود رقمي - يتم إنشاء مبلغ تلقائي في ورقة العمل الهدف
  • عمود التاريخ - يتم تعبئة التاريخ والوقت الحاليين تلقائيًا

اعتبارات لكتابة كود اكسل VBA

لتشغيل حدث ينسخ الصف ، انتقل مع عنصر تحكم النموذج "زر قياسي". في Excel ، انقر فوق "إدراج" في علامة التبويب "المطور". ثم ، حدد عنصر تحكم نموذج زر وارسم الزر حيث تريد. يعرض Excel تلقائيًا مربع حوار لمنحك فرصة لتحديد ماكرو يتم تشغيله بواسطة حدث النقر فوق الزر أو لإنشاء واحد جديد.

هناك عدة طرق للعثور على الصف الأخير في ورقة العمل الهدف حتى يتمكن البرنامج من نسخ صف في الأسفل. يختار هذا المثال الحفاظ على رقم الصف الأخير في ورقة العمل. للحفاظ على رقم الصف الأخير ، يجب عليك تخزين هذا الرقم في مكان ما. قد تكون هذه مشكلة لأن المستخدم قد يغير أو يحذف الرقم. للتغلب على ذلك ، ضعه في الخلية أسفل زر النموذج مباشرةً. بهذه الطريقة ، لا يمكن للمستخدم الوصول إليها. (أسهل ما عليك فعله هو إدخال قيمة في الخلية ثم حرك الزر فوقه).

رمز لنسخ صف باستخدام Excel VBA

Sub Add_The_Line () Dim currentRow As Integer Sheets ("Sheet1"). حدد currentRow = Range ("C2"). صفوف القيمة (7). حدد تحديد أوراق النسخ ("Sheet2"). حدد الصفوف (currentRow). حدد ورقة Active .لصق Dim theDate As Date theDate = Now () Cells (currentRow، 4) .Value = CStr (theDate) Cells (currentRow + 1، 3) .Activate Dim rTotalCell As Range Set rTotalCell = _ Sheets ("Sheet2"). Cells (Rows.Count ، "C"). End (xlUp) .Offset (1، 0) rTotalCell = WorksheetFunction.Sum _ (Range ("C7"، rTotalCell.Offset (-1، 0))) Sheets ("Sheet1" ) .Range ("C2"). القيمة = currentRow + 1 End Sub

يستخدم هذا الرمز xlUp ، أو "رقم سحري" ، أو أكثر ثابتًا تقنيًا ثابتًا ، والذي يتم التعرف عليه بواسطة طريقة النهاية. الإزاحة (1،0) ببساطة تتحرك لأعلى صف واحد في نفس العمود ، وبالتالي فإن التأثير الصافي هو تحديد الخلية الأخيرة في العمود C.

في الكلمات ، يقول البيان:

  • انتقل إلى الخلية الأخيرة في العمود C (مكافئ للأسهم End + Down).
  • بعد ذلك ، ارجع إلى آخر خلية غير مستخدمة (أي ما يعادل نهاية + سهم لأعلى).
  • ثم ، اصعد خلية أخرى.

العبارة الأخيرة بتحديث موقع الصف الأخير.

ربما يكون VBA أصعب من VB.NET لأنه يجب عليك معرفة كل من كائنات VB و Excel VBA. يُعد استخدام xlUP مثالًا جيدًا على نوع المعرفة المتخصصة التي تعتبر ضرورية للقدرة على كتابة وحدات ماكرو VBA دون البحث عن ثلاثة أشياء مختلفة لكل عبارة تقوم برمزها. أحرزت Microsoft تقدمًا كبيرًا في ترقية محرر Visual Studio لمساعدتك في معرفة بناء الجملة الصحيح ، لكن محرر VBA لم يتغير كثيرًا.


Video, Sitemap-Video, Sitemap-Videos