|
▼K さん:
> 質問の内容ですが
> LB17 = LB17 + Worksheets(i).Cells(R, 2)
> LB18 = LB18 + Worksheets(i).Cells(R, 3)
> LB19 = LB19 + Worksheets(i).Cells(R, 4)
> これをうまく纏める方法をお聞きしたかったです・・・
その「LB17」とか 「LB19」というのはラベルコントロール
に付けられた名前ですか?
すでに、そこから、説明がないと他人には分かりません。
もっともラベルであれば、
LB17.Caption = "あいうえお"
とか、Captionプロパティがつくので、そこから推測もでき
るのですが?
仮に、
> LB17 = LB17 + Worksheets(i).Cells(R, 2)
を、「LB17」というラベルコントロールのCaptionを
現在のCaption に さらに Worksheets(i)のCells(R, 2)の
値(文字列)を追加する、ことだと勝手に解釈するなら、
> LB17 = LB17 + Worksheets(i).Cells(R, 2)
> LB18 = LB18 + Worksheets(i).Cells(R, 3)
> LB19 = LB19 + Worksheets(i).Cells(R, 4)
は
for i = 1 to 5
for j = 2 to 4
With Controls("LB" & (15 + j))
.Caption = .Caption & _
Worksheets(i).Cells(R, j).Value
End With
next
next
セルの値が数値で、ワークシートで串刺し計算をしたいと
いうことなら、
for i = 1 to 5
for j = 2 to 4
With Controls("LB" & (15 + j))
.Caption = Val(.Caption) + _
Worksheets(i).Cells(R, j).Value
End With
next
next
とかしなければならないでしょうし、
(コード以前に)もっと日本語による 説明が必要ではないでしょうか?
|
|