Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24313 / 76732

←次へ　｜　前へ→


	【57769】Re:シート名をユーザーフォームに記入

kanabun - 08/9/12(金) 19:17 -


	引用なし

	パスワード

▼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

とかしなければならないでしょうし、
（コード以前に）もっと日本語による説明が必要ではないでしょうか？

1 hits

▼

【57765】シート名をユーザーフォームに記入 K 08/9/12(金) 15:31