|
お世話になります。
ユーザーフォームについて教えて下さい。
現在ユーザーフォームを使用し任意シートに書き込みを行っているですが
シートが1月〜12月と12シートあり、ユーザーフォームから書き込むコード
を考えると
Private Sub CommandButton1_Click()
If 行選択 = 0 Then 行選択 = 6
Sheets("1月").Range("B" & 行選択) = TextBox1.Text
Sheets("1月゚").Range("D" & 行選択) = TextBox2.Text
Sheets("1月゚").Range("E" & 行選択) = TextBox3.Text
Sheets("1月゚").Range("G" & 行選択) = TextBox4.Text
Sheets("1月゚").Range("O" & 行選択) = TextBox5.Text
End Sub
そのシートを選択しなくてはならないコードしか思いつきません。
これだと各シート事にユーザーフォームを作っておかなければならず
大変容量が大きくなってしまいます。
ユーザーフォームは1つで各シートから呼び出したときに
そのシートに書き込みができるようなコードは作成できるのでしょうか。
どなたか御指導下さい。
|
|