IT備忘録

エクセルを使用して入力フォームを利用した住所録を作成しました。
関連するセルを選択して、[データ]-[フォーム]でも同様に入力フォームは
呼び出せます。

--ThisWorkbookに書いたVBA
---------------------------
Private Sub Workbook_Open()

UserForm1.Show

End Sub
---------------------------

--UserFormに書いたVBA
---------------------------
Private Sub UserForm_Initialize()

    ' UserForm1を起動したときの初期設定（ComboBox）
    With UserForm1.ComboBox1
            .AddItem "様"
            .AddItem "殿"
            .AddItem "御中"
            .AddItem "宛"
    End With

End Sub
---------------------------

---------------------------
Private Sub CommandButton1_Click()

    ' 各入力値をセルに書き込む
    With Worksheets("Main")
            .Range("A65536").End(xlUp).Offset(1, 0) = "〒"
            .Range("A65536").End(xlUp).Offset(0, 1) = TextBox1.Value
            .Range("A65536").End(xlUp).Offset(0, 2) = TextBox2.Value
            .Range("A65536").End(xlUp).Offset(0, 3) = TextBox3.Value
            .Range("A65536").End(xlUp).Offset(0, 4) = TextBox4.Value
            .Range("A65536").End(xlUp).Offset(0, 5) = TextBox5.Value
            .Range("A65536").End(xlUp).Offset(0, 6) = TextBox6.Value
            .Range("A65536").End(xlUp).Offset(0, 7) = ComboBox1.Value
            .Range("A65536").End(xlUp).Offset(0, 8) = CheckBox1.Value
            .Range("A65536").End(xlUp).Offset(0, 9) = CheckBox2.Value
            .Range("A65536").End(xlUp).Offset(0, 10) = CheckBox3.Value
    End With
       
    Call CommandButton2_Click
   

End Sub
---------------------------

---------------------------
Private Sub CommandButton2_Click()

        ' 入力値をクリアーする
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
        TextBox5.Value = ""
        TextBox6.Value = ""
        ComboBox1.Value = ""
        CheckBox1.Value = "False"
        CheckBox2.Value = "False"
        CheckBox3.Value = "False"
   
End Sub
---------------------------

--標準モジュールに書いたVBA　ワードファイルを開きます。
---------------------------
Sub Open_Wordfile()
   
    Dim File_name As String
   
    Open_wrd = Shell("WINWORD.EXE H:\差込印刷\差込印刷.doc", 1)

End Sub
---------------------------

←クリック一票