初心者も簡単ブログにコピペだけ!1クリック高単価7〜42円。登録無料最短1分でスタート。

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

‘シート内ボタン設置後--------------
'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





ダイレクト特集ページ用バナー(ダウンロード版)

初心者も簡単ブログにコピペだけ!1クリック高単価7〜42円。登録無料最短1分でスタート。