TextBoxの値を複数シートのセルに記入する

質問

よろしくお願いします。
TextBoxの値を複数シートのセルに記入するようにしたいのですが
一つのシートにしか記入されません。
醜い構文ですみません。

Private Sub CommandButton1_Click()
Dim a As Long
Dim b As Long
Dim f As Long
Dim h As Long
Dim c As Range
Dim d As Range
Dim e As Range
Dim g As Range
With Worksheets(Array("駐車状態", "材料", "外壁1", "外壁2", "屋根1")).Select
Set c = Cells(1, 2)
For a = 1 To 140 Step 7
Set c = Union(c, Cells(a, 2))
c = TextBox1.Value
Next
c.EntireRow.Select

Set d = Cells(1, 4)
For b = 1 To 140 Step 7
Set d = Union(d, Cells(b, 4))
d = TextBox1.Value
Next
d.EntireRow.Select

Set g = Cells(2, 2)
For h = 2 To 141 Step 7
Set g = Union(g, Cells(h, 2))
g = TextBox2.Value
Next
g.EntireRow.Select

Set e = Cells(2, 4)
For f = 2 To 141 Step 7
Set e = Union(e, Cells(f, 4))
e = TextBox2.Value
Next
e.EntireRow.Select
End With
End Sub

回答No.1

kagakusuki · ベストアンサー

下記の様なVBAにされては如何でしょうか?

Private Sub CommandButton1_Click()

Dim i As Long, mySheet As Variant, TargetRow As String

mySheet = Array("駐車状態", "材料", "外壁1", "外壁2", "屋根1")
For i = 1 To 140 Step 7
TargetRow = TargetRow & "," & i & ":" & i
Next i
TargetRow = Mid(TargetRow, 2)

For i = 0 To UBound(mySheet)
With Worksheets(mySheet(i))
With Intersect(.Range(TargetRow), .Range("B:B,D:D"))
.Value = TextBox1.Value
.Offset(1).Value = TextBox2.Value
End With
End With
Next i

End Sub

お礼

醜い質問にもかかわらずご回答ありがとうございます。
思い通りにできました。感激感謝です。
今後ともよろしくお願いいたします。

回答No.2

imogasi

何がむつかしいのか、よくわからない。例でも挙げて、言葉で説明すべきだ。
長々とコードを載せているが、本件と関係あるのかな。回答者に読み解かせるの。
複数シートの指定の仕方
テキストボックスのあり場所　
イベントのことなど
質問に書いてない。
独断で例を挙げてみる。
ユーザーフォｒムにテキストボクスを１つ貼り付ける。
シート名は既定とし、数は有限で数シートとし、プログラムの中に名前を持たせることにする。
ユーザーフォームにコマンドボタンを１つ貼りつける。
テキストボックスの入力完了をコマンドボタンクリックで決める。
シートは、テストとして、Ｓｈｅｅｔ１～Ｓｈｅｅｔ５まで用意する。
Private Sub CommandButton1_Click()
s = Array("sheet2", "Sheet4", "sheet5")　’シート名
cel = Array("A5", "B6", "C3") 　’対応するセル番地
For i = 0 To 2
Worksheets(s(i)).Range(cel(i)) = TextBox1.Text
Next i
End Sub
Private Sub CommandButton1_Click()
s = Array("sheet2", "Sheet4", "sheet5")
cel = Array("A5", "B6", "C3")
For i = 0 To 2
Worksheets(s(i)).Range(cel(i)) = TextBox1.Text
Next i
UserForm1.Hide
End Sub
（操作）
ユーザーフォームの表示をクリック
テキストボックスへ適当な文字列入力
コマンドボタンクリック
各シートで所定のセルに文字列入力済みを確認
ーー
上記コードを参考にしてください。

お礼

早速のご回答ありがとうございます。
思い通りにできました。
ベストアンサーにしたかったのですが、kagakusuki 様が
早かったのでさせてもらいました。
ごめんなさい。
今後ともよろしくお願いいたします。