كيفية القيام بما يلي: تجميع صفوف في ورقة العمل

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Excel 2007 Excel 2010

يمكنك تجميع صف واحد أو أكثر . لإنشاء مجموعة في ورقة عمل, استخدم عنصر التحكم NamedRange أو كائن نطاق Excel أصلي.

استخدام عنصر تحكم NamedRange (نطاق مسمى)

إذا قمت بإضافة عنصر التحكم NamedRange إلى مشروع على مستوى المستند في وقت التصميم ، يمكنك استخدام عنصر التحكم لإنشاء المجموعة برمجياً. المثال التالي يفترض أن هناك ثلاثة من عنصر التحكم NamedRange على نفس ورقة العمل : data2001 ، data2002 و dataAll يشير كل نطاق مسمى إلى صف بالكامل في ورقة العمل.

لإنشاء مجموعة من عناصر التحكم NamedRange في ورقة عمل

• قم بتجميع ثلاثة من النطاقات المسماة بواسطة استدعاء الأسلوب Group لكل نطاق. يجب وضع هذه التعليمة البرمجية في فئة ورقة، وليس في الفئة ThisWorkbook.

  With Me
      .data2001.Group()
      .data2002.Group()
      .dataAll.Group()
  End With
  

  this.data2001.Group(missing, missing, missing, missing);
  this.data2002.Group(missing, missing, missing, missing);
  this.dataAll.Group(missing, missing, missing, missing);
  

  ملاحظة

  لفك تجميع الصفوف, قم باستدعاء الأسلوب Ungroup .

استخدام نطاقات Excel الأصلية

التعليمات البرمجية تفترض أن يكون لديك ثلاثة من نطاقات Excel باسم data2001، و data2002، و dataAll على ورقة العمل .

لإنشاء مجموعة نطاقات Excel في ورقة العمل

• قم بتجميع ثلاثة من النطاقات المسماة بواسطة استدعاء الأسلوب Group لكل نطاق. المثال التالي يفترض أن هناك ثلاثة من عنصر التحكم Microsoft.Office.Interop.Excel.Range تسمى data2001، و data2002، و dataAll على نفس ورقة العمل. يشير كل نطاق مسمى إلى صف بالكامل في ورقة العمل.

  With Me.Application
      .Range("data2001").Group()
      .Range("data2002").Group()
      .Range("dataAll").Group()
  End With
  

  this.Application.get_Range("data2001", missing)
      .Group(missing, missing, missing, missing);
  
  this.Application.get_Range("data2002", missing)
      .Group(missing, missing, missing, missing);
  
  this.Application.get_Range("dataAll", missing)
      .Group(missing, missing, missing, missing);
  

  ملاحظة

  لفك تجميع الصفوف, قم باستدعاء الأسلوب Ungroup .

راجع أيضًا:

المهام

كيفية القيام بما يلي: إضافة عناصر التحكم NamedRange إلى أوراق العمل

المبادئ

العمل على أوراق العمل

عنصر تحكم NamedRange

المعلمات الاختيارية في حلول Office