エクセルVBA 計算の繰り返し処理？

質問

エクセルのVBA　フォーム内にて
下記、各テキストボックスの数値を変更することにより
Label27にLabel28*TextBox12+TextBox13+TextBox14
Label33にLabel34*TextBox16+TextBox17+TextBox18
Label27、Label33に計算の答えを書き込みたいため
下記のように書き込みました。

Private Sub TextBox12_Change()
Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _
+ Val(TextBox13.Value) + Val(TextBox14.Value)
End Sub

Private Sub TextBox13_Change()
Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _
+ Val(TextBox13.Value) + Val(TextBox14.Value)
End Sub

Private Sub TextBox14_Change()
Label27.Caption = Val(Label28.Caption) * Val(TextBox12.Value) _
+ Val(TextBox13.Value) + Val(TextBox14.Value)
End Sub

Private Sub TextBox16_Change()
Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _
+ Val(TextBox17.Value) + Val(TextBox18.Value)
End Sub

Private Sub TextBox17_Change()
Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _
+ Val(TextBox17.Value) + Val(TextBox18.Value)
End Sub

Private Sub TextBox18_Change()
Label33.Caption = Val(Label34.Caption) * Val(TextBox16.Value) _
+ Val(TextBox17.Value) + Val(TextBox18.Value)
End Sub
計算は出来るのですが計算ラベル５０程あるため、修正を考えて
ももう少し簡素化して書き込みたいため
調べましたがヒント項目がずれているせいか回答を検索できませんでした。
どのようにすれば宜しいかご教示の程宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

とりあえず整理統合だけでもしてみましょう。

Private Sub TextBox12_Change()
　mycalc 27,28,12,13,14
End Sub

Private Sub TextBox13_Change()
　mycalc 27,28,12,13,14
End Sub
　：

private sub MyCalc(a1, a2, a3, a4, a5)
　with UserForm1
　　.controls("Label" & a1).caption _
　　= val(.controls("Label" & a2).caption) * val(.controls("TextBox" & a3).value) _
　　* val(.controls("TextBox" & a4).value ) + val(.controls("TextBox" & a5).value)
　end with
end sub

あとはまぁ次のステップとして，ネットで「vba コントロール配列」などで検索して活用してみてください。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_100_040.html

お礼

有難うございました。
ずいぶんとすっきりしました。