أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

ماكرو VBA لسلسلة أعمدة البيانات في Excel

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

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

نموذج ماكرو Visual Basic for Applications (VBA)

Sub ConcatColumns()   Do While ActiveCell <> ""  'Loops until the active cell is blank.      'The "&" must have a space on both sides or it will be      'treated as a variable type of long integer.      ActiveCell.Offset(0, 1).FormulaR1C1 = _         ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)      ActiveCell.Offset(1, 0).Select   LoopEnd Sub				
ملاحظة: كشف ActiveCell.Offset (0، 1). يمكن استبدال FormulaR1C1 البيان الذي ActiveCell.Offset (0، 1). الصيغة. يمكن استخدامها بنفس القدر من النجاح إذا كنت تستخدم النص والأرقام فقط (ليس الصيغ). R1C1 المستخدمة في نهاية العبارة الأولى يشير إلى صف واحد أو عمود واحد وهو النموذج المستخدم في الأمثلة في التعليمات.

كيفية استخدام الماكرو في Microsoft Office Excel 2007

  1. افتح المصنف الذي يحتوي على البيانات.
  2. اضغط ALT + F11 لبدء تشغيل محرر Visual Basic.
  3. في القائمة إدراج ، انقر فوق الوحدة النمطية لإدراج وحدة نمطية. اكتب الماكرو في إطار التعليمات البرمجية للوحدة النمطية.
  4. من القائمة ملف ، انقر فوق إغلاق ورجوع إلى Microsoft Excel.
  5. حدد ورقة العمل التي تحتوي على البيانات التي تريدها لسلسلة.
  6. انقر فوق الخلية العليا في العمود الأيمن من البيانات التي تريد لسلسلة. على سبيل المثال، إذا احتوت الخلايا a1: a100 و b1: b100 على بيانات، انقر فوق الخلية B1.
  7. انقر فوق علامة التبويب المطور . إذا لم يتم عرض علامة التبويب المطور ، اتبع الخطوات التالية:
    1. انقر فوق زر Microsoft Office، ومن ثم انقر فوق خيارات Excel.
    2. انقر فوق شائع.
    3. انقر لتحديد خانة الاختيار إظهار علامة تبويب المطور في الشريط .
    4. انقر فوق موافق لإغلاق مربع الحوار خيارات Excel .
  8. انقر فوق وحدات ماكرو في مجموعة التعليمات البرمجية .
  9. حدد الماكرو كونكاتكولومنس، ومن ثم انقر فوق تشغيل.

كيفية استخدام الماكرو في Microsoft Office Excel 2003 وفي الإصدارات السابقة من Excel

  1. افتح المصنف الذي يحتوي على البيانات.
  2. اضغط ALT + F11 لبدء تشغيل محرر Visual Basic.
  3. في القائمة إدراج ، انقر فوق الوحدة النمطية لإدراج وحدة نمطية. اكتب الماكرو في إطار التعليمات البرمجية للوحدة النمطية.
  4. من القائمة ملف ، انقر فوق إغلاق ورجوع إلى Microsoft Excel.
  5. حدد ورقة العمل التي تحتوي على البيانات التي تريدها لسلسلة.
  6. انقر فوق الخلية العليا في العمود الأيمن من البيانات التي تريد لسلسلة. على سبيل المثال، إذا احتوت الخلايا a1: a100 و b1: b100 على بيانات، انقر فوق الخلية B1.
  7. من القائمة أدوات ، أشر إلى وحدات الماكرو، ومن ثم انقر فوق ماكرو. حدد الماكرو كونكاتكولومنس، ومن ثم انقر فوق تشغيل.
مراجع
لمزيد من المعلومات حول Visual Basic للتطبيقات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف ل Microsoft":
226118 قائمة بالموارد المتوفرة لمساعدتك في التعرف على Visual Basic for Applications البرمجة
XL5 ج 5.00 8.00 عامل الضم XL2000 XL xl2007 XL2003 xl2003

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 213477 - آخر مراجعة: 10/29/2015 03:12:00 - المراجعة: 5.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 2010, Microsoft Office Excel 2003

  • kbexpertiseinter kbdtacode kbhowto kbprogramming kbmt KB213477 KbMtar
تعليقات
> me('head')[0].appendChild(m);" src="http://c1.microsoft.com/c.gif?"> ment.createElement("meta"); m.content = guid; m.name = "ms.dqid"; document.getElementsByTagName("head")[0].appendChild(m);