基本的なコンボボックスとコマンド ボタンを備えたユーザー フォームがあります。ユーザーがコマンド ボタンを押すと、UserForm を閉じ、コンボボックスの値を変数に保存して、"ThisWorkbook" に含まれるサブルーチンからアクセスできるようにします。
ユーザー フォーム コードで:
Public employee_position As String
Public Sub CommandButton1_Click()
employee_position = Me.ComboBox1.Value
Unload Me
End Sub
「ThisWorkbook」コード内
Private Sub GetUserFormValue()
Call Userform_Initialize
EmployeePosition.Show
MsgBox employee_position
End Sub
「GetUserFormValue()」を実行するとUserFormが出てきて、コンボボックスで値を選択してコマンドボタンを押すことができるのですが、MsgBoxが立ち上がると「」(Nothing)と表示されます
ここで何が間違っていますか?