Excel VBA質問箱 IV

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

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


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

52949 / 76736

←次へ　｜　前へ→


	【28612】Re:検索該当行の複数セル値の取得について

kobasan - 05/9/10(土) 10:30 -


	引用なし

	パスワード

▼BON8021 さん　ponponさん　おはようございます。

>いまいち、Rangeという型をよく理解できていないところから
>始まっているのかもしれません。

>そもそも、Rangeという型宣言された変数には、何が入るのでしょうか。
>Rangeという型について、少々、教えて頂くと助かります。

Rangeで変数宣言すると、その変数に対してプロパティやメソッドを使用することができます。
つまり
Dim r as Range,r1 as Range,r2 as Range
とすると、
Range プロパティ
Range("A5").Value
Range("A5").Activate
Range("A5").ClearContents
Union(range1, range2)

のように

r.Value
r.Activate
r.ClearContents
Union(r1, r2)

のようにつかえます。

比較のために、
Dim I as integer
Dim r as Range
　　　　I=r.value
とすると、
　　　　I.Value
という使い方はできません。

ヘルプでRangeを検索すると説明が出てきます。
以下その一部です。

Range オブジェクト　　　　　　　　　　　　　　　
セル、行、列、1 つ以上のセル範囲を含む選択範囲、または 3-D 範囲を表します。

使い方
Range オブジェクトを取得するプロパティ、およびメソッドを次に示します。

Range プロパティ
Range("A5").Value = _
Range("A5").Activate
Range("A5").ClearContents

Union メソッド
複数のセル範囲の集合を取得するには、
Union(range1, range2, ...)
Unionメソッド使用します。

>if文でTRUE判定された後、マッチングした値を代入するところまでは、
>良いのですが、その後、無限ループに入ったような動きをします。

>その文をコメント行にすると、正常終了します。

どのぶぶんか。そのコードを載せてもらうと、考えやすいのですが。

それから、改良したコードとdictionaryを利用したコードの2種類を別スレッドにアップしますので参考にしてください。

0 hits

▼

【28486】検索該当行の複数セル値の取得について BON8021 05/9/7(水) 19:56