Excel VBA質問箱 IV

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

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


25675 / 76732 ←次へ | 前へ→

【56395】変数に変数を組み込みたい
質問  Tsuyo E-MAIL  - 08/6/16(月) 11:52 -

引用なし
パスワード
   お世話になります。
 Dim 集計1 As Currency
 Dim 集計2 As Currency
 Dim 集計3 As Currency
 Dim i as byte

 Select Case i
   Case 1
    集計1 = WorksheetFunction. _
    Sum(Selection.SpecialCells(xlCellTypeVisible))
   Case 2
    集計2 = WorksheetFunction. _
    Sum(Selection.SpecialCells(xlCellTypeVisible))
   Case 3
    集計3 = WorksheetFunction. _
    Sum(Selection.SpecialCells(xlCellTypeVisible))
 End Select

というコード?を作ったのですが

 i = 1
 Do While i < 4
    集計i = WorksheetFunction. _
    Sum(Selection.SpecialCells(xlCellTypeVisible))
    i = i + 1
 Loop 

こんな感じでプログラムを作り変えるにはどうすれば良いのでしょうか?
集計iの部分でそんな変数はないよとエラーが出てしまいます。
この部分を解決する方法があったらアドバイスお願いします。 
2 hits

【56395】変数に変数を組み込みたい Tsuyo 08/6/16(月) 11:52 質問
【56398】Re:変数に変数を組み込みたい neptune 08/6/16(月) 13:21 回答
【56401】Re:変数に変数を組み込みたい Tsuyo 08/6/16(月) 14:05 お礼
【56410】Re:変数に変数を組み込みたい neptune 08/6/16(月) 16:37 回答
【56423】Re:変数に変数を組み込みたい Tsuyo 08/6/17(火) 8:57 発言

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