エクセル 入力フォーム
エクセルを使用して入力フォームを利用した住所録を作成しました。
関連するセルを選択して、[データ]-[フォーム]でも同様に入力フォームは
呼び出せます。
--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」カテゴリの記事
- エクセル VBA 範囲指定(2009.10.16)
- エクセル VBA プリンタを指定して印刷(2009.04.24)
- エクセル VBA ピポットテーブルを作成(2009.04.17)
- エクセル VBA ファイル・フォルダの存在確認(2009.04.16)
- Excel VBA Tips (1)(2009.04.15)
The comments to this entry are closed.
Comments