Excel VBA質問箱 IV

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

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


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

35457 / 76732

←次へ　｜　前へ→


	【46474】Re:セルで指定された範囲を着色したい

かみちゃん - 07/2/4(日) 15:48 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> 実際は行と列が上の間隔（位置関係）です。
> 応用がきかなくてすみません。

応用が利かせられないのなら、最初からきちんとサンプルを示しましょうね。
別に隠すような内容ではないように思います。

で、以下のようにします。
何が変わったかわかるように前回のコードは、コメント文にして残してあります。

Sub Sample2()
　Dim FR As Range
　Dim rngBase As Range

　'基準セルの設定
'　Set rngBase = Range("A1")
　Set rngBase = Range("B2")

　With rngBase
'　　With Range(.Offset(1), .Offset(Rows.Count - .Row).End(xlUp))
　　With Range(.Offset(4, -1), .Offset(Rows.Count - .Row, -1).End(xlUp))
　　　Set FR = .Find(rngBase.Value, , xlValues, xlWhole)
　　End With
　　If Not FR Is Nothing Then
'　　　Range(FR.Offset(, .Offset(, 3).Value), FR.Offset(, .Offset(, 4).Value)).Select
　　　Range(FR.Offset(, .Offset(, 6).Value), FR.Offset(, .Offset(, 8).Value)).Select
　　Else
　　　MsgBox "見つかりません" & vbCrLf & .Value
　　End If
　End With
End Sub

※シートイメージを提示されるときは、投稿欄の右下にある「等幅」にチェックを
つけると見やすくなりますよ。

2 hits

▼

【46469】教えてください！ Yuko 07/2/4(日) 12:47