Указатели в VBA

Question

Есть ли что-то вроде указателей в VBA?

Я пытаюсь создать макрос Excel и хочу простую переменную для отслеживания количества столбцов. wst.UsedRange.Columns.Count занимает много места каждый раз, когда мне это нужно, и я хотел бы просто заменить его на простое имя, например last_col.

Answer 1

Я не фанат UsedRange в большинстве случаев.Если бы вы создали функцию, которая будет использоваться снова и снова вашими другими макросами, я бы склонялся к этому синтаксису, который находит последний столбец с фактическим значением в нем.вызовите его, просто передав макросу ссылку на лист:

Sub RowTest()
    On Error Resume Next       'in case the sheet is empty
    LR = LastROW(ActiveSheet)
    Debug.Print LR
End Sub

Answer 2

Там , но не так, как полезно в вашей ситуации (или во многих других случаях, кроме особых случаев), почему бы не

public function ccount() as long
   ccount = wst.UsedRange.Columns.Count
end function

или установите ссылку на глобальную переменную на wst.UsedRange.Columns и прочитайте var.count при необходимости.