Глобальная переменная рабочего листа для userform в excel

Question

Я создаю пользовательскую форму, которая добавляет данные на рабочий лист. У меня есть куча подпрограмм для моей пользовательской формы, но у меня возникают проблемы с доступом к переменной, установленной на моем листе. В настоящее время это локальная переменная (в подпункте) и попыталась разместить ее в модуле, как описано здесь: Can a worksheet object be declared globally in Excel VBA. Я сделал дальнейший поиск, но не получил желаемых результатов.

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

sub savebutton_click() 
    Dim trees As Worksheet 
    Set trees = ThisWorkbook.Sheets("Sheet1") 
    trees.Cells(1, 1) = Me.TextTreeName 
    trees.Cells(1, 2) = Me.TextTreeType 
End sub 

Очевидно, что я не могу получить доступ к локальным переменным из другой подпрограммы, так что я должен сделать глобальные «деревья». Я создал модуль и заменил Dim на Public, поместил вторую строку кода в Workbook_Open(), а затем попытался получить доступ к переменной 'trees'. Я получаю «Недопустимая внешняя процедура» и выделяет код в Workbook_Open(), когда я нажимаю «Debug».

По сути, я просто хочу иметь доступ, скажем, к деревьям. Цвета (5,6) из любого суб, и я не уверен, что еще с этим делать. Есть идеи? Спасибо!

Answer 1

Это должно быть вопрос размещения ... если вы откроете VBA IDE и выберите элемент ThisWorkbook в своем проекте VBAP. Дважды щелкните этот элемент, чтобы открыть его, выберите «Рабочая книга» в верхнем левом раскрывающемся списке, выберите «Открыть» в раскрывающемся списке вверху справа. Это позволит создать Workbook_Open Sub в объекте ThisWorkbook:

Private Sub Workbook_Open() 
    Set trees = ThisWorkbook.Sheets("Sheet1") 
End Sub 

правой кнопкой мыши ваш VBAProject и Add Module. В этом модуле вы устанавливаете глобальную переменную:

Public trees As Worksheet 

Далее вы создаете форму, нажимаете на нее кнопку и дважды щелкаете по кнопке. Это будет генерировать событие кнопки:

В моем случае:

Private Sub CommandButton1_Click() 
    trees.Cells(1, 1) = Me.TextTreeName 
    trees.Cells(1, 2) = Me.TextTreeType 
End Sub 

Теперь, если вы закроете книги Excel (сохранить код и книгу первый) и снова откройте УПРАЖНЕНИЯ Workbook_Open() будет удар и установите Рабочий лист. Теперь позвоните в свою форму и нажмите кнопку. Это заполнит две ячейки на данном листе ....