Excel VBA質問箱 IV

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

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


35460 / 76732 ←次へ | 前へ→

【46471】Re:セルで指定された範囲を着色したい
回答  かみちゃん  - 07/2/4(日) 13:19 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>> A    B C D E  F
>>1C二郎     3 6
>>2 
>>3    1 2 3 4 ・・・・・31
>>4 A太郎
>>5 B子
>>6 C二郎
>>
>>上の表で、A1で担当者を、D1で始まりを、E1で終わりを
>>指定して、担当者の日付の範囲を着色したい
>
>上記の例では、D6:G6を着色したいりでしょうか?
>3行目は、日付ですか?
>1日も抜けがないということでいいですか?

上記の前提でよければ、以下のようなコードでできると思います。
Sub Sample()
 Dim FR As Range
 Dim rngBase As Range
 
 '基準セルの設定
 Set rngBase = Range("A1")
 
 With rngBase
  With Range(.Offset(1), .Offset(Rows.Count - .Row).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
  Else
   MsgBox "見つかりません" & vbCrLf & .Value
  End If
 End With
End Sub

色付けの部分は、マクロの記録ででも得られますので、上記のコードは、
色付け対象範囲の選択までにしてあります。

0 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 お礼

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