Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4473 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【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の部分でそんな変数はないよとエラーが出てしまいます。
この部分を解決する方法があったらアドバイスお願いします。　
【56398】Re:変数に変数を組み込みたい
回答  neptune  - 08/6/16(月) 13:21 -
引用なし
パスワード
   ▼Tsuyo さん：
こんにちは

Helpの
「Visual Basic プログラミングのヒント」
　　「配列の使い方」
に解説されてます。

参考書などで、基本だけでも、抑えておく事をお勧めします。
【56401】Re:変数に変数を組み込みたい
お礼  Tsuyo E-MAIL  - 08/6/16(月) 14:05 -
引用なし
パスワード
   こんにちは
>Helpの
>「Visual Basic プログラミングのヒント」
>　　「配列の使い方」
>に解説されてます。
>
>参考書などで、基本だけでも、抑えておく事をお勧めします。

上記を参考にさせてもらい

　Dim 集計(6) As Currency
　For i = 1 To 6
　　集計(i) = WorksheetFunction. _
　　Sum(Selection.SpecialCells(xlCellTypeVisible))
　Next

これで解決しました。
自分でも感じますが、ほんと基本が抜けてますね。
勉強しなおします。
ありがとうございました。
【56410】Re:変数に変数を組み込みたい
回答  neptune  - 08/6/16(月) 16:37 -
引用なし
パスワード
   ▼Tsuyo さん：
もう見ないかな？

ご自分で解決出来てよかったですね。^ ^

まだ、1点知っておいた方がよい事があるので、書かせてもらいます。
>
>　Dim 集計(6) As Currency
これは要素0〜6まで、即ち７個の要素があります。
Tsuyo さんのサンプルソースでは要素0が使われていませんね。

1〜6のみを使いたい場合は
Dim 集計(1 to 6) As Currency
のように書きます。
>　For i = 1 To 6
>　　集計(i) = WorksheetFunction. _
>　　Sum(Selection.SpecialCells(xlCellTypeVisible))
>　Next
>
>これで解決しました。
>自分でも感じますが、ほんと基本が抜けてますね。
>勉強しなおします。
頑張ってくださいませ。^ ^
【56423】Re:変数に変数を組み込みたい
発言  Tsuyo E-MAIL  - 08/6/17(火) 8:57 -
引用なし
パスワード
   ▼neptune さん：

参考になります。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4473 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free