|
こんにちは。かみちゃん です。
>> 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
色付けの部分は、マクロの記録ででも得られますので、上記のコードは、
色付け対象範囲の選択までにしてあります。
|
|