« VBA 消費税計算 | Main | New プリンター HP Photosmart C5180 »

Oct 09, 2006

エクセル 入力フォーム

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

--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
---------------------------

←クリック一票

|

« VBA 消費税計算 | Main | New プリンター HP Photosmart C5180 »

VBA」カテゴリの記事

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack


Listed below are links to weblogs that reference エクセル 入力フォーム:

« VBA 消費税計算 | Main | New プリンター HP Photosmart C5180 »