Преглед садржаја
У овом чланку ћу вам показати како можете да изаберете ћелију или опсег ћелија помоћу ВБА у Екцел-у. Научићете да изаберете једну, опсег ћелија, ћелију са именованим опсегом и ћелију која се односи на другу ћелију помоћу ВБА .
Преузмите Вежбање
Изаберите ћелију помоћу ВБА.клсм
6 корисних начина да изаберете ћелију помоћу ВБА у Екцел-у
Хајде да истражимо 6 најкориснијих метода за одабир ћелије или опсега ћелија помоћу ВБА .
1. Изаберите ћелију активног радног листа са ВБА у Екцел
Пре свега, хајде да изаберемо ћелију активног радног листа са ВБА у Екцел-у.
Овде сам имам радну свеску под називом Радна свеска1 . У радној свесци постоје три радна листа под називом Схеет1 , Схеет2 и Схеет3 . Активни радни лист је Схеет1 .
Можете користити следећу линију кода да изаберете било коју ћелију ( Ц5 у овом примеру) на активном радном листу:
⧭ ВБА код:
ActiveSheet.Range("C5").Select
Или,
ActiveSheet.Cells(5,3).Select
⧭ Излаз:
Покрени. И изабраће ћелију Ц5 активног радног листа Схеет1 оф Воркбоок1 .
2. Изаберите ћелију активне радне свеске, али не и активног радног листа са ВБА у Екцел-у
Сада, хајде да изаберемо ћелију активне радне свеске, али не и активног радног листа. Наш активни радни лист је Схеет1 , али овог пута ћемо изабратићелија Ц5 од Схеет2 .
Можете користити следећи ред кода:
⧭ ВБА код :
Application.Goto Sheets("Sheet2").Range("C5")
Или,
Application.Goto Sheets("Sheet2").Cells(5,3)
Или,
Sheets("Sheet2").Activate
Range("C5").Select
⧭ Излаз:
Покрени. И изабраће ћелију Ц5 радног листа Схеет2 активне радне свеске Радна свеска1 .
3. Изаберите ћелију из активне радне свеске са ВБА у Екцел-у
Овај пут ћемо изабрати ћелију, а не из активне радне свеске.
Наша активна радна свеска је Радна свеска1 . Али имамо другу радну свеску под називом Радна свеска2 у истој фасцикли.
Изаберимо ћелију Ц5 од Схеет1 од Радна свеска2 .
Линија ВБА кода ће бити:
⧭ ВБА код:
Application.Goto Workbooks("Workbook2.xlsx").Sheets("Sheet1").Range("C5")
Или,
Application.Goto Workbooks("Workbook2.xlsx").Sheets("Sheet1").Cells(5,3)
Или,
Workbooks("Workbook2.xlsx").Activate
Sheets("Sheet1").Select
⧭ Излаз:
Покрените код и он ће изабрати ћелију Ц5 од Схеет1 оф Воркбоок2 .
4. Изаберите опсег ћелија помоћу ВБА у Екцел-у
До сада смо изабрали само једну ћелију.
Овај пут ћемо изабрати опсег ћелија (рецимо Б4:Ц13 у овом примеру).
Ако се ради о активном радном листу, можете користити:
⧭ ВБА код:
Range("B4:C13").Select
⧭ Излаз
Изабраће ћелије Б4:Ц13 активног радног листа Схеет1 од Радна свеска1 .
Ако је активна радна свеска, али не и активни радни лист ( Схеет2 у овом примеру), користите :
⧭ ВБА код:
Application.Goto Sheets("Sheet2").Range("B4:C13")
⧭ Излаз:
Изабраће ћелије Б4:Ц13 од Схеет2 активне радне свеске Радна свеска1 .
А ако желите да изаберете опсег ћелија из радне свеске која није активна ( Радна свеска2 у овом примеру), користите овај ред кода:
⧭ ВБА код:
Application.Goto Workbooks("Workbook2.xlsx").Sheets("Sheet2").Range("B4:C13")
⧭ Излаз:
Одабраће опсег Б4:Ц13 од Схеет1 од Радна свеска2 .
5. Изаберите ћелију именованог опсега помоћу ВБА у програму Екцел
Можете и да изаберете једну или више ћелија именованог опсега помоћу ВБА у Екцел-у.
Овде у активном листу Схеет1 оф Воркбоок1 , имамо Намед Ранге под називом АБЦ који се састоји од опсег Б4:Ц13 .
Да бисте изабрали именовани опсег АБЦ , користите овај ред кода:
⧭ ВБА код:
Range("ABC").Select
⧭ Оутпут:
Одабраће Намед Ранге ( Б4:Ц13 ) од Схеет1 оф Воркбоок1 .
6. Изаберите ћелију у односу на другу ћелију помоћу ВБА у програму Екцел
Коначно, можете да изаберете ћелију у односу на другу ћелију помоћу ВБА .
Можете да користите Својство помака од ВБА за овосврха.
На пример, изаберемо ћелију до 2 реда надоле и 3 колоне десно од ћелије Ц5 на активном радном листу Схеет1 оф Воркбоок1 .
Користите следећи ред кода:
⧭ ВБА код:
Range("C5").Offset(2, 3).Select
Или,
Cells(5,3).Offset(2, 3).Select
⧭ Излаз :
Изабраће ћелију Ф7 , ћелију до 2 редова надоле и 3 колоне десно од ћелије Ц5 .
Закључак
Користећи ове методе, можете да изаберете ћелију или опсег ћелија са ВБА у Екцел-у. Имате било каквих питања? Слободно нас питајте.