Мундариҷа

• Ба қадам
• Усули 1 аз 3: Чашмакҳои инфиродиро интихоб кунед
• Усули 2 аз 3: Диапазонҳоро интихоб кунед
• Усули 3 аз 3: Маълумотро дар сутунҳои "пайдарпай" ва "пайдарпай" интихоб кунед
• Маслиҳатҳо

Ин wikiHow ба шумо тарзи истифодаи Visual Basic -ро барои интихоби маълумот дар Microsoft Excel меомӯзонад. То он даме, ки шумо бо асосҳои скриптҳои VB ва истифодаи функсияҳои мукаммали Excel шинос ҳастед, скриптҳои интихобро хеле осон хоҳед ёфт.

Ба қадам

Усули 1 аз 3: Чашмакҳои инфиродиро интихоб кунед

1. Дар ҷадвали ҷорӣ чашмакро интихоб кунед. Фарз мекунем, ки шумо мехоҳед чашмаки E6 -ро бо Visual Basic интихоб кунед. Шумо инро бо яке аз фармонҳои зерин иҷро карда метавонед:
   

   ActiveSheet.Cells (6, 5) .Интихоб кунед
   

   ActiveSheet.Range ("E6"). Интихоб кунед

2. Дар ҳамон китоби корӣ ячейкаи дигарро дар варақаи кории дигар интихоб кунед. Биёед чашмаки мисоли мо, E6, дар варақе бо номи Sheet2 ҷойгир аст. Барои интихоби он шумо метавонед яке аз усулҳои зеринро истифода баред:
   

   Application.Goto ActiveWorkbook.Sheets ("Sheet2"). Чашмакҳо (6, 5)

   Application.Goto (ActiveWorkbook.Sheets ("Sheet2"). Диапазон ("E6"))

3. Чашмакро дар варақаи кории дигар китоби корӣ интихоб кунед. Фарз мекунем, ки шумо мехоҳед чашмакро аз Лавҳаи1 дар китоби корӣ бо номи BOOK2.XLS интихоб кунед. Яке аз ин ду роҳ бояд кор кунад:

   Application.Goto Китобҳои корӣ ("BOOK2.XLS"). Лавҳаҳо ("Sheet1"). Чашмакҳо (2,1)

   Application.Goto Китобҳои корӣ ("BOOK2.XLS"). Лавҳаҳо ("Sheet1"). Диапазон ("A2")

4. Чашмакро нисбат ба ячейкаи дигар интихоб кунед. Шумо метавонед VB -ро барои интихоби чашмак аз рӯи ҷойгиршавӣ нисбат ба чашмаки фаъол (ё дигар) истифода баред. Танҳо боварӣ ҳосил кунед, ки ҳуҷайра мавҷуд аст, то хатогиҳо пешгирӣ нашаванд. Ин ба таври зерин анҷом дода мешавад:
   • Чашмакро се қатор дар зер ва чор сутун дар тарафи чапи чашмаки фаъол интихоб кунед:

     ActiveCell.Offset (3, -4) .Интихоб кунед

   • Чашмакро панҷ қатори поён ва чор сутун дар тарафи рости чашмаки C7 интихоб кунед:

     ActiveSheet.Cells (7, 3) .Offset (5, 4) .Интихоб кунед

Усули 2 аз 3: Диапазонҳоро интихоб кунед

1. Як қатор чашмакҳоро дар варақаи кории фаъол интихоб кунед. Барои интихоби чашмакҳои C1: D6 дар ҷадвали ҷорӣ, яке аз се усули зеринро истифода баред:

   ActiveSheet.Range (Чашмакҳо (1, 3), Ҳуҷайраҳо (6, 4)) -ро интихоб кунед

   ActiveSheet.Range ("C1: D6"). Интихоб кунед

   ActiveSheet.Range ("C1", "D6"). Интихоб кунед

2. Дар ҳамон китоби корӣ як қатор аз варақаи кории дигарро интихоб кунед. Шумо метавонед яке аз ин мисолҳоро барои интихоби чашмакҳои C3: E11 дар варақе бо номи Sheet3 истифода кунед:

   Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Диапазон ("C3: E11")

   Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Диапазон ("C3", "E11")

3. Як қатор чашмакҳоро аз варақаи кории дигар китоби корӣ интихоб кунед. Ҳарду мисол бояд чашмакҳои E12: F12 -ро дар Лавҳаи1 китоби корӣ бо номи BOOK2.XLS интихоб кунанд:

   Application.Goto Китобҳои корӣ ("BOOK2.XLS"). Лавҳаҳо ("Sheet1"). Диапазон ("E12: F12")

   Application.Goto Китобҳои корӣ ("BOOK2.XLS"). Лавҳаҳо ("Sheet1"). Диапазон ("E12", "F12")

4. Диапазони номбаршударо интихоб кунед. Агар шумо ба диапазони чашмакҳо ном таъин карда бошед, ҳамон синтаксисеро, ки дар қадамҳои 4-6 истифода мешавад, истифода баред, аммо суроғаи диапазонро (масалан, 'E12', 'F12 ") бо номи диапазон иваз кунед (масалан.' Фурӯш ') ). Инҳоянд чанд мисол:
   
   • Дар варақаи кории фаъол:

     ActiveSheet.Range ("Фурӯш"). Интихоб кунед

   • Дигар ведомости ҳамин дафтарчаи корӣ:

     Application.Goto ActiveWorkbook.Sheets ("Sheet3"). Диапазон ("Sales")

   • Дигар дафтарчаи корӣ:

     Application.Goto Китобҳои корӣ ("BOOK2.XLS"). Лавҳаҳо ("Sheet1"). Диапазон ("Sales")

5. Диапазонро нисбат ба диапазони номбаршуда интихоб кунед. Синтаксис вобаста аз ҷойгиршавии диапазони зикршуда ва оё шумо мехоҳед андозаи диапазони навро тағир диҳед, фарқ мекунад.
   • Агар диапазоне, ки шумо мехоҳед интихоб кунед, ба андозаи ҳамон андоза монанд аст Озмоиш5 номида мешавад, аммо чор қатор ба поён ва се сутун ба тарафи рост ҳаракат карда, пас коди зеринро истифода баред:

     ActiveSheet.Range ("Test5"). Офсет (4, 3) .Интихоб кунед

   • Агар диапазон дар Лавҳаи 3 ҳамон китоби корӣ бошад, лутфан аввал ин ҷадвалро фаъол кунед, пас диапазонро ба тариқи зайл интихоб кунед:

     Лавҳаҳо ("Sheet3"). ActiveSheet.Range -ро фаъол кунед ("Test"). Офсет (4, 3). Интихоб кунед

6. Диапазонро интихоб кунед ва андозаи тағиротро тағир диҳед. Агар лозим ояд, шумо метавонед андозаи диапазони интихобшударо зиёд кунед. Агар шумо хоҳед, ки диапазонро интихоб кунед, ки Пойгоҳи додаҳо ва пас мехоҳед андозаи худро панҷ қатор афзоиш диҳед, шумо ин синтаксисро истифода мебаред:

   Диапазон ("Пойгоҳи додаҳо"). Интихоб кунед. Ҳаҷмро тағир диҳед (Selection.Rows.Count + 5, _Selection.Columns.Count).

7. Якшавии ду қатори номбаршударо интихоб кунед. Агар шумо ду диапазони бо ҳам мувофиқро дошта бошед, пас шумо метавонед VB-ро барои интихоби чашмакҳои ин минтақаи бо ҳам мепайвандад ('иттифоқ'). Маҳдудият дар он аст, ки шумо инро танҳо дар варақаи кории фаъол иҷро карда метавонед. Биёед бигӯем, ки шумо иттиҳоди a диапазон номида мешавад Хуб ва яке номбар шудааст Бад мехоҳед интихоб кунед:

   • Application.Union (Range ("Good"), Range ("Bad")). Интихоб кунед

   • Агар шумо хоҳед, ки ба ҷои минтақаи такроршаванда, маҷмӯи ду диапазони номбаршударо интихоб кунед, танҳо иваз кунед Ариза Иттиҳод тавассути Ариза.

Усули 3 аз 3: Маълумотро дар сутунҳои "пайдарпай" ва "пайдарпай" интихоб кунед

1. Ин намунаҳои маълумотро барои мисолҳои ин усул истифода баред. Ин ҷадвали пур аз маълумотҳои намуна, бо хушмуомилагии Microsoft ба шумо кӯмак мекунад, ки чӣ гуна рафтор кардани мисолҳоро тасаввур кунед:

   A1: Ном	B1: Фурӯш	C1: Миқдор
   A2: а	B2: € 10	C2: 5
   A3: б	B3:	C3: 10
   A4: в	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) .Интихоб кунед

4. Дар сутун диапазони чашмакҳои пайдарпайро интихоб кунед. Дар ҳарду мисоли зерин, диапазони A1: A4 интихоб шудааст:

   ActiveSheet.Range ("A1", ActiveSheet.Range ("a1"). End (xlDown)). Ро интихоб кунед.

   ActiveSheet.Range ("A1:" & ActiveSheet.Range ("A1"). End (xlDown) .Address). Интихоб кунед

5. Диапазони тамоми чашмакҳои пайдарпайро дар сутун интихоб кунед. Бо истифода аз ҷадвали маълумот дар болои ин усул, ҳарду мисоли зерин A1: A6 -ро интихоб мекунанд:

   ActiveSheet.Range ("A1", ActiveSheet.Range ("A65536"). End (xlUp)). Ро интихоб кунед

   ActiveSheet.Range ("A1", ActiveSheet.Range ("A65536"). End (xlUp)). Ро интихоб кунед

Маслиҳатҳо

• Хусусиятҳои "ActiveSheet" ва "ActiveWorkbook" -ро одатан дар сурате тарк кардан мумкин аст, ки агар варақ ва / ё дафтарчаи кории онҳо дар назар дошта шуда бошанд.