Мазмун

• Басуу
• 3-ыкманын 1-ыкмасы: Жеке уячаларды тандаңыз
• 3-ыкманын 2-ыкмасы: Диапазондорду тандаңыз
• 3-ыкманын 3-ыкмасы: "ырааттуу" жана "ырааттуу эмес" тилкелердеги маалыматтарды тандаңыз
• Сунуштар

Бул wikiHow сизге Microsoft Excelде маалыматтарды тандоо үчүн Visual Basicти кантип колдонууну үйрөтөт. VB сценарийлеринин негиздери жана Excelдин өркүндөтүлгөн функцияларын колдонуу менен таанышсаңыз, тандоо сценарийлерин оңой эле таба аласыз.

Басуу

3-ыкманын 1-ыкмасы: Жеке уячаларды тандаңыз

1. Учурдагы иш барагындагы уячаны тандаңыз. Visual Basic менен E6 уячасын тандап алгыңыз келди дейли. Муну төмөнкү буйруктардын бири менен жасай аласыз:
   

   ActiveSheet.Cells (6, 5) .Тандоо
   

   ActiveSheet.Range ("E6"). Тандаңыз

2. Ушул эле жумушчу китептен башка иш барагындагы уячаны тандаңыз. Биздин мисалы, E6 уячабыз Sheet2 деп аталган баракта турат дейли. Аны тандоо үчүн төмөнкү ыкмалардын бирин колдонсоңуз болот:
   

   Application.Goto ActiveWorkbook.Sheets ("Sheet2"). Ячейкалар (6, 5)

   Application.Goto (ActiveWorkbook.Sheets ("Sheet2"). Range ("E6"))

3. Башка жумуш китебиндеги жумуш барагындагы уячаны тандаңыз. BOOK2.XLS деп аталган эмгек китебинен Sheet1ден уячаны тандап алгыңыз келет дейли. Ушул эки жолдун бири иштеши керек:

   Application.Goto Workbooks ("BOOK2.XLS"). Sheets ("Sheet1"). Cells (2,1)

   Application.Goto Workbooks ("BOOK2.XLS"). Sheets ("Sheet1"). Range ("A2")

4. Башка уячага салыштырмалуу уячаны тандаңыз. VB колдонуп, активдүү (же башка) уячага карата жайгашкан жерине жараша уячаны тандасаңыз болот. Ката кетирбөө үчүн клетканын бар экендигин текшериңиз. Бул төмөнкүдөй жасалат:
   • Төмөндө үч катар жана активдүү уячанын сол жагында төрт тилкени тандаңыз:

     ActiveCell.Offset (3, -4) .Тандоо

   • Төмөндө беш катар жана C7 уячасынын оң жагында төрт тилкени тандаңыз:

     ActiveSheet.Cells (7, 3) .Offset (5, 4) .Тандоо

3-ыкманын 2-ыкмасы: Диапазондорду тандаңыз

1. Активдүү иш барагындагы уячалардын диапазонун тандаңыз. Учурдагы иш барагындагы C1: D6 уячаларын тандоо үчүн төмөнкү үч ыкманын бирин колдонуңуз:

   ActiveSheet.Range (Cells (1, 3), Cells (6, 4)). Тандаңыз

   ActiveSheet.Range ("C1: D6"). Тандоо

   ActiveSheet.Range ("C1", "D6"). Тандаңыз

2. Ушул эле эмгек китебиндеги башка жумуш барагынан бир катар тандаңыз. Sheet3 деп аталган баракта C3: E11 уячаларын тандоо үчүн ушул мисалдардын бирин колдонсоңуз болот:

   Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Range ("C3: E11")

   Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Range ("C3", "E11")

3. Башка иш китебиндеги иш барагынан уячалардын диапазонун тандаңыз. Эки мисалда тең BOOK2.XLS деп аталган эмгек китебинин 1-барагындагы E12: F12 уячалары тандалышы керек:

   Application.Goto Workbooks ("BOOK2.XLS"). Sheets ("Sheet1"). Range ("E12: F12")

   Application.Goto Workbooks ("BOOK2.XLS"). Sheets ("Sheet1"). Range ("E12", "F12")

4. Белгиленген диапазонду тандаңыз. Эгер сиз уячалардын диапазонуна ат койгон болсоңуз, анда 4-6-кадамдардагыдай синтаксисти колдонуңуз, бирок диапазондун дарегин (мис. 'E12', 'F12 ") диапазондун аталышына алмаштырыңыз (мис.," Сатуу ") ). Бул жерде бир нече мисал келтирилген:
   
   • Активдүү иш барагында:

     ActiveSheet.Range ("Сатуу"). Тандаңыз

   • Ушул эле эмгек китепчесинин башка баракчасы:

     Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Range ("Sales")

   • Башка эмгек китепчеси:

     Application.Goto Workbooks ("BOOK2.XLS"). Sheets ("Sheet1"). Range ("Sales")

5. Белгиленген диапазонго салыштырмалуу диапазонду тандаңыз. Синтаксис көрсөтүлгөн диапазондун жайгашкан жерине жана жаңы диапазондун көлөмүн жөндөп-түзбөөгө жараша өзгөрүлөт.
   • Эгер сиз тандаган диапазон өлгөнгө барабар болсо Test5 деп аталат, бирок төрт катар ылдый жана үч тилке оңго жылдырылып, андан кийин төмөнкү кодду колдонуңуз:

     ActiveSheet.Range ("Test5"). Ofset (4, 3) .Тандоо

   • Эгерде диапазон ошол эле эмгек китебинин 3-баракчасында болсо, анда алгач ушул баракчаны жандырып, андан кийин төмөнкүдөй диапазонду тандаңыз:

     Sheets ("Sheet3"). ActiveSheet.Range активдештирүү ("Test"). Ofset (4, 3). Тандоо

6. Аралыкты тандап, тандоонун көлөмүн өзгөртүңүз. Керек болсо, тандалган диапазондун көлөмүн көбөйтө аласыз. Эгер сиз ошол диапазонду тандасаңыз Маалыматтар базасы андан кийин көлөмүн беш катарга көбөйткүңүз келсе, ушул синтаксисти колдоносуз:

   Диапазон ("Маалыматтар базасы"). Тандоону тандоо.Өлчөмүн өзгөртүү (Selection.Rows.Count + 5, _Selection.Columns.Count) .Select

7. Эки аталыштагы бир катарды тандаңыз. Эгер сизде эки дал келген диапазон болсо, анда сиз VB аркылуу ошол дал келген чөлкөмдөгү клеткаларды тандасаңыз болот ('' '' '). Чектөө: бул нерсени активдүү иш барагында гана жасай аласыз. Сизде a деп аталат Жакшы жана бирөөсү аталган Жаман тандоону каалайм:

   • Application.Union (Range ("Good"), Range ("Bad")). Select

   • Эгерде сиз кайчылашкан аймактын ордуна эки айтылган диапазондун ички тобун тандасаңыз, жөн гана алмаштырыңыз Application.Union аркылуу Application.Intersect.

3-ыкманын 3-ыкмасы: "ырааттуу" жана "ырааттуу эмес" тилкелердеги маалыматтарды тандаңыз

1. Ушул ыкмадагы мисалдар үчүн ушул үлгү маалыматтарды колдонуңуз. Майкрософттун ырайымы менен берилген үлгү маалыматтарга толгон бул диаграмма мисалдардын өзүн кандай алып жүргөнүн элестетүүгө жардам берет:

   A1: Аты	B1: Сатуу	C1: Саны
   A2: a	B2: € 10	C2: 5
   A3: b	B3:	C3: 10
   A4: c	B4: € 10	C4: 5
   A5:	B5:	C5:
   A6: Бардыгы	B6: € 20	C6: 20

2. Чектеш тилкенин түбүндөгү акыркы уячаны тандаңыз. Төмөнкү мисалда A4 уячасы тандалган:

   ActiveSheet.Range ("A1"). End (xlDown) .Тандоо

3. Чектеш уячалардын тилкесинин астындагы биринчи бош уячаны тандаңыз. Төмөнкү мисал жогоруда көрсөтүлгөн диаграмманын негизинде A5 тандайт:

   ActiveSheet.Range ("A1"). End (xlDown) .Offset (1.0) .Select

4. Колоннадагы удаалаш уячалардын диапазонун тандаңыз. Төмөнкү эки мисалда тең A1: A4 диапазону тандалган:

   ActiveSheet.Range ("A1", ActiveSheet.Range ("a1"). End (xlDown)).

   ActiveSheet.Range ("A1:" & ActiveSheet.Range ("A1"). End (xlDown) .Adres) .Тандоо

5. Колоннадагы ырааттуу эмес уячалардын бүтүндөй диапазонун тандаңыз. Ушул ыкманын жогору жагындагы маалыматтардын таблицасын колдонуп, эки мисал тең A1: A6 тандайт:

   ActiveSheet.Range ("A1", ActiveSheet.Range ("A65536"). End (xlUp)).

   ActiveSheet.Range ("A1", ActiveSheet.Range ("A65536"). End (xlUp)).

Сунуштар

• "ActiveSheet" жана "ActiveWorkbook" касиеттери, адатта, активдүү баракча жана / же эмгек китепчелери (лери) болжолдонсо, алынып салынышы мүмкүн.