|
お世話になります。
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の部分でそんな変数はないよとエラーが出てしまいます。
この部分を解決する方法があったらアドバイスお願いします。
|
|