Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
ログイン処理サンプル(講義資料
Dim txt As String
'解答モード
If OptionButton1.Value = True Then
'テキストボックスに入力されたIDを評価画面に渡す
UserForm2.id = TextBox1.Text
UserForm2.init
'解答画面表示
UserForm2.Show
'評価モード
ElseIf OptionButton2.Value = True Then
'テキストボックスに入力されたIDを評価画面に渡す
UserForm3.id = TextBox1.Text
UserForm3.Show
End If
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.