VBAでのユーザーフォームの使い方

質問

VBAのマクロでユーザフォームにボタンを配して、それによってエクセルシートのデータを更新するようなマクロを作りたいのですが、ユーザフォームの挿入でボタン配置まではできるのですけど、どのようにリンク付けするのかコーディング等、解りません。お教え下さい。簡単なサンプルコーディングがあれば助かります。

回答No.2

4ku4ku · ベストアンサー

this Workbook　に次のコードをはりつけます。シートにユーザホームが表示されます。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub
-------------------------------------------------------------
コマンドボタンとコンボボックスを配置コンボボックスの数値をセルｄ５．ｄ６に入力する例です。
Private Sub Workbook_Open()
UserForm1.Show madal
End Sub
Private Sub CommandButton1_Click()
Range("d5").Value = ComboBox1.Text
Range("d6").Value = ComboBox2.Text
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub UserForm_initialize()
ComboBox1.AddItem "0"
ComboBox1.AddItem "1"
ComboBox1.AddItem "2"
ComboBox1.ListIndex = 0

ComboBox2.AddItem "0"
ComboBox2.AddItem "1"
ComboBox2.AddItem "2"
ComboBox2.ListIndex = 0
End Sub

お礼

ありがとうございます！！！

回答No.1

jindon

あまりにも質問が漠然としているので....

例：
Uswerform に
TextBox x 3 (TextBox1, 2, 3) が配置され
各入力データをSheet1の列　A,B,C にそれぞれ転記

commanbutton1_click()
dim i as long
with sheets("Sheet1").range("a" & rows.count).end(xlup).offset(1)
for i= 1 to 3
.offset(,i-1).value=me.controls("TextBox" & i)
next
end with
end sub
me.controls("TextBox" & i)

お礼

ありがとうございます。