Промените величину опсега помоћу ВБА
Овај водич ће показати како се користи Промените величину имовине од Објекат домета да бисте променили да бисте вратили нови опсег промењен у односу на оригинални објекат Ранге.
Синтакса
Синтакса за својство Ресизе је:
| 1 | Опсег ("А1"). Промена величине (РовСизе, ЦолумнСизе) |
Где је домет („А1“) ваш почетни домет.
РовСизе и ЦолумнСизе морају бити већи од нуле. Сваки унос је опционалан (нпр. Можете изоставити РовСизе да бисте променили само број колона или обрнуто).
Промените величину редова и колона
Следећи пример проширује опсег са једном ћелијом А1 на опсег А1: Д10 повећањем броја редова на 10 и броја колона на 5.
| 1 | Распон ("А1"). Промените величину (10, 5) .Изаберите |
Или ћете чешће доделити промењени опсег променљивој:
| 12 | 'Промените величину опсега на жељену величину и доделите променљивојПодеси невРнг = АцтивеСхеет.Ранге ("А1"). Промени величину (10, 5) |
Промени величину само редова
Следећи пример мења само број редова:
| 12 | „Само промените величину реда, нови опсег ће бити $ А $ 1: $ А $ 10Подеси невРнг = рнг.Ресизе (10) |
Промени величину само колона
Следећи пример мења само број колона:
| 12 | „Промените само величину колоне, нови распон ће бити $ А $ 1: $ Е $ 1Постави невРнг = рнг.Ресизе (, 5) |
Промените величину опсега табеле да бисте искључили заглавље
Ако имате табелу на активном листу са редом заглавља, код ће прво изабрати целу табелу, а затим се померити један ред надоле да би искључио заглавље помоћу методе Ранге.Оффсет. Затим ће користити својство Ранге.Ресизе да смањи величину за један ред.
| 1234567891011 | Суб СелецтТаблеДата ()'** ВАЖНО **'Кликните на било коју ћелију табеле пре него што покренете макро'Померите се један ред надоле помоћу помака, а затим смањите величину опсега за један редСет тбл = АцтивеЦелл.ЦуррентРегион.Оффсет (1, 0) .Ресизе (тбл.Ровс.Цоунт - 1, _тбл.Цолумнс.Цоунт)'Подаци су изабрани искључујући ред заглављатбл.Аддресс.СелецтЕнд Суб |
Напишите 2-Д низ за распон
Друга уобичајена употреба је писање дводимензионалног низа на лист. Будући да опсег који се уписује треба да одговара величини низа, који се обично не зна унапред, Ресизе метода се користи за постављање излазног опсега
Пример испод ће прочитати податке у опсегу А1: Е10 у активном листу у низ и записати низ у лист „Излаз“ почевши од ћелије А1:
| 123456 | Суб ВритеАрраи ()'Прочитајте податке у низудата = Ранге ("А1: Е10"). Вредност'Промијените величину излазног распона и упишите низРадни листови ("Излаз"). Распон ("А1"). Промена величине (УБоунд (подаци, 1), УБоунд (подаци, 2)). Вредност = подациЕнд Суб |
Написала: Винамра Цхандра
