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

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

1 hits

【46469】教えてください! Yuko 07/2/4(日) 12:47 質問
【46470】Re:セルで指定された範囲を着色したい かみちゃん 07/2/4(日) 13:00 発言
【46471】Re:セルで指定された範囲を着色したい かみちゃん 07/2/4(日) 13:19 回答
【46472】Re:セルで指定された範囲を着色したい Yuko 07/2/4(日) 13:38 お礼
【46473】Re:教えてください! Yuko 07/2/4(日) 15:20 質問
【46474】Re:セルで指定された範囲を着色したい かみちゃん 07/2/4(日) 15:48 回答
【46475】Re:セルで指定された範囲を着色したい Yuko 07/2/4(日) 16:14 お礼

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