|
りおりおさん。
早速、試してみて、セルのデータを取得することができました。
ありがとうございました。
if文を入れるのはいいのですが・・。
今日 = DateValue(Date)
Debag.Print r.Value の次に
if r <= 今日 Then
r.Interior.Color = RGB(255.255.130)
ではうまくいきません。
初心者なのですみませんが、今日より前の日付データを
選んで塗りつぶすには、どう書いたらよいのでしょうか。
もう少しなので、よろしくお願いいたします。
誰にも聞けず本当に感謝いたしております。
▼ぽてちん さん:
>りおりおさん。早速のご回答ありがとうございます。
>
>マウスの指定ができるなんて知りませんでした。(感激!)
>試してみます。m(_ _)m
>
>▼りおりお さん:
>
>>▼ぽてちん さん:
>>>りおりおさん!ありがとうございました。
>>>iF文でTrueなら塗りつぶしを指定すればよいですね。
>>>
>>>あとは、セル範囲のセルの値をどのように取得するかですね。
>>>複数の質問になってしまいすみません。
>>
>>Sub try()
>> Dim r As Range
>> Dim rr As Range
>>
>> On Error Resume Next
>> Set rr = Application.InputBox("セル範囲をマウスで指定して", Type:=8)
>> If rr Is Nothing Then Exit Sub
>> On Error GoTo 0
>>
>> For Each r In rr
>> Debug.Print r.Value
>> Next
>>
>> Set rr = Nothing
>>End Sub
>>
>>こう言った感じの事でしょうか?
|
|