bitFlyer ビットコインを始めるなら安心・安全な取引所で bitFlyer ビットコインを始めるなら安心・安全な取引所で

VBAフォームアプリケーションサンプル

[html]
‘シート内ボタン設置後————–
‘VBA開発画面にて挿入、標準モジュール
Sub form_call()
UserForm1.Show
End Sub

‘this workbookに下記追加——–
Private Sub Workbook_Open()
UserForm1.Show
End Sub
‘——————————————

Private Sub UserForm_Initialize()

With ComboBox1
.AddItem "アイテム1"
.AddItem "アイテム2"
.AddItem "アイテム3"
.AddItem "アイテム4"
End With

End Sub

Private Sub CommandButton2_Click()
‘変数宣言————————————-
Dim i As Integer
eint = 1
i = 1
j = 3
k = 2

‘error処理————————————–

If ComboBox1.Value = "" Then
MsgBox "アイテムを選択してください。"
Exit Sub
End If

If OptionButton1.Value = False _
And OptionButton2.Value = False _
And OptionButton3.Value = False Then
MsgBox "アイテムを一つ選択してください。"
Exit Sub
End If

If OptionButtons4.Value = False _
And OptionButtons5.Value = False _
And OptionButtons6.Value = False Then
MsgBox "アイテムを一つ選択してください。"
Exit Sub
End If

‘変数格納処理———————————-
For i = 4 To 6
If Controls("OptionButtons" & i) = True Then optbtn2 = Controls("OptionButtons" & i).Caption
Next

For i = 1 To 3
If Controls("OptionButton" & i) = True Then optbtn = Controls("OptionButton" & i).Caption
Next

‘サービスvalue——————-
If OptionButton1.Value = True Then
optbtn = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
optbtn = OptionButton2.Caption
ElseIf OptionButton3.Value = True Then
optbtn = OptionButton3.Caption
End If

‘confirm確認ダイアログ表示————————-
If MsgBox("下記の内容を登録します。" & vbCrLf & "アイテム:" & ComboBox1.Value & vbCrLf & "アイテム:" & optbtn & vbCrLf & "アイテム:" & optbtn2, vbYesNo + vbQuestion) = vbNo Then Exit Sub

‘書き込み処理————————————–
With Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Value = ComboBox1.Value
For i = 1 To 3
If Controls("OptionButton" & i) = True Then .Offset(, i).Value = 1
If Controls("OptionButton" & i) = False Then .Offset(, i).Value = 0
Next

For i = 1 To 2
If Controls("CheckBox" & i) = True Then .Offset(, i + j).Value = 1
If Controls("CheckBox" & i) = False Then .Offset(, i + j).Value = 0
Next

For i = 4 To 6
If Controls("OptionButtons" & i) = True Then .Offset(, i + k).Value = 1
If Controls("OptionButtons" & i) = False Then .Offset(, i + k).Value = 0
Next

End With

‘フォーム初期化処理——————————————
ComboBox1.Value = ""
For i = 1 To 2
Controls("CheckBox" & i).Value = False
Next

For i = 1 To 3
Controls("OptionButton" & i).Value = False
Next

For i = 4 To 6
Controls("optionbuttons" & i).Value = False
Next

ComboBox1.SetFocus

‘activesheet保存——————————————–
ActiveWorkbook.Save

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

[/html]

bitFlyer ビットコインを始めるなら安心・安全な取引所で bitFlyer ビットコインを始めるなら安心・安全な取引所で