Excel VBA質問箱 IV

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

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


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

13368 / 76807

←次へ　｜　前へ→


	【68945】Re:配列変数定義の利用方法

sasa - 11/5/1(日) 18:32 -


	引用なし

	パスワード

>難点1：Dimの変数定義は分からない。

変数のデータ型は Variant にすべきでしょう。
具体例は以下コード。

>難点2：以下の計算仕組みとして、1.～4.以外の方法は
>　　　ありますか？

通常次のようなコードになると思います。
Sub Sample1()
　Dim rg1 As Range, rg2 As Range, xx&, yy&
　Dim d1 As Variant, d2 As Variant
　Set rg1 = Range("b3:d7") 'データのレンジ指定
　Set rg2 = Range("b8:d8") '答えのレンジ指定
　'1.配列の各成分定義
　d1 = rg1
　'2.＝合計値をゼロにセットする
　rg2.ClearContents
　d2 = rg2　 '配列へセル値を代入
　'3.＝各列の和を計算代入
　For yy = 1 To UBound(d1)　　　'行のループ
　　For xx = 1 To UBound(d1, 2) '列のループ
　　　d2(1, xx) = d2(1, xx) + d1(yy, xx)
　　Next
　Next
　'4.＝最後、各列の和表示
　rg2 = d2 '配列からセルへ書戻し
End Sub

こちらを参考にしました。
ht tp://www2.aqua-r.tepm.jp/~kmado/kvba.htm
E95M007　シートのセルに変数2次元配列で高速にアクセスする

0 hits

▼

【68944】配列変数定義の利用方法 マエ/ケン 11/5/1(日) 16:25