use checkbox для блокировки текстового поля и сохранения значения

Question

У меня есть пользовательская форма vba для ввода данных в Excel 2010. Одно текстовое поле предназначено для ввода кодов стран. Я хочу использовать флажок, чтобы позволить пользователю заблокировать это текстовое поле после ввода в стране, чтобы они могли продолжать вводить данные без повторного ввода кода страны.

Моя предыдущая попытка состояла в том, чтобы проверить, был ли установлен флажок, и просто установите фокус на текстовое поле рядом с ним.

if checkbox.value = true then 
Me.txHome.setFocus 
else ws.Cells(newRow,5).Value = Me.txCountry.Value 
endif 

Но это не сработает.

Благодаря

Answer 1

Настройка общих переменных и использовать событие изменения флажок, чтобы присвоить его значение, как так:

Public String myCountry 

Sub CheckBox1_Change() 
    If CheckBox1.Value = True Then 
     myCountry = txCountry.Value 
    End If 

    txCountry.Locked = (CheckBox1.Value = True)  
End Sub 

Затем в существующем коде, просто используйте:

ws.Cells(newRow, 5).Value = myCountry