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 質問
【57766】Re:シート名をユーザーフォームに記入 kanabun 08/9/12(金) 16:00 発言
【57768】Re:シート名をユーザーフォームに記入 K 08/9/12(金) 17:15 質問
【57769】Re:シート名をユーザーフォームに記入 kanabun 08/9/12(金) 19:17 発言
【57771】Re:シート名をユーザーフォームに記入 かみちゃん 08/9/12(金) 21:12 発言

24313 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free