Excel VBA質問箱 IV

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

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


53517 / 76732 ←次へ | 前へ→

【28028】VariantにRangeオブジェクトを代入したとき
質問  ちくたく  - 05/8/26(金) 19:53 -

引用なし
パスワード
   いつもお世話になっています。
標題についてですが、例えば、

Dim rVar as Variant
rVar = Range("A1:A10")

とすると、rVarは1次元目にA1〜A10の値が入った
2次元配列になりますよね。
このrVarを1次元にする方法、つまり、
rVal(1,1) = Range("A1").Valueなのを、
rVal(1) = Range("A1").Value
にする方法はありますか?

例えば、
Dim newArr() As Integer, i As Integer
ReDim newArr(UBound(rVar))
For i = 1 To UBound(rVar)
   newArr(i) = rVar(i,1)
Next i
のような方法は思いつきますが、
わざわざループ用意するのもなぁ、と思いまして。

目的は、うざったいなぁ、と思う気分的なものなのですが。。。
よろしくお願いします。
1 hits

【28028】VariantにRangeオブジェクトを代入したとき ちくたく 05/8/26(金) 19:53 質問
【28029】Re:VariantにRangeオブジェクトを代入した... ichinose 05/8/26(金) 20:05 発言
【28031】Re:VariantにRangeオブジェクトを代入した... ちくたく 05/8/26(金) 21:08 質問
【28036】Re:VariantにRangeオブジェクトを代入した... ichinose 05/8/26(金) 23:01 発言
【28048】Re:VariantにRangeオブジェクトを代入した... ichinose 05/8/27(土) 11:24 発言
【28106】Re:VariantにRangeオブジェクトを代入した... ちくたく 05/8/29(月) 9:27 お礼

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