Excelで、特定の条件を満たすと指定のセルの値を消去するマクロ

質問

WindowsXP環境でExcel2000を使用しています。現在Ａ列に日付、Ｂ列にＡ列の日付を引数として得た曜日を表示させ、条件書式で曜日が土日ならセルの色が赤くなるように設定しています。Ｃ列には始業時間Ｄ列は終業時間がそれぞれ予定としてあらかじめ入力した状態にしてあります。そこで、上記によって取得した曜日が土日にあたるセルの右側、つまりＢ列およびＣ列の値を自動的にもしくはマクロ処理で消去したいのですが、なにか良い方法はないでしょうか？　よろしくお願いします。

回答No.2

ja7awu · ベストアンサー

> 曜日が土日にあたるセルの右側、つまりＢ列およびＣ列の値を
> 自動的にもしくはマクロ処理で消去したいのですが・・・

消すのはＣ、Ｄ列ではないのですか？
もし、Ｂ、Ｃ列のときは、Rng.Offset(, 2) の２を１にします。

こんな感じで如何でしょうか。

Sub Test1()
Dim Rng As Range
For Each Rng In Range("A1", Range("A65536").End(xlUp))
　　If IsDate(Rng.Value) Then
　　　　If Weekday(Rng.Value, 7) < 3 Then
　　　　　　Rng.Offset(, 2).Resize(1, 2).ClearContents
　　　　End If
　　End If
Next Rng
End Sub

お礼

すばらしい。完璧です。　あ、そうでした。ＣＤ列でした。　でも本当のフォーマットは、日付がＢ５～Ｂ３５に入っていて、曜日はＣ５～Ｃ３５、消したい列はＤＥ列なんです。　書いていただいたプログラムから推測しようとしたんですが、私の知識では無理みたいです。恐縮ですが、教えていただけるとありがたいのですが。

回答No.5

ja7awu

> このＢ65536　とはいったいどういう意味なんですか？　

B列の最終行です。 2^16（2の16乗）= 65536

B列のデータが入っているセルの最終行を調べるため、手作業で言えば、
セルB65536をアクティブにして、Ctrlを押しながら ↑キーを押して
止まったセルを求めています。

実際に操作して確認してみてください。

お礼

なるほど、そういうことでしたか。　もう少し勉強します。　おかげさまで今回の目的は完全に達することができました。どうもありがとうございました。

回答No.4

ja7awu

次のようになります。"B5" と "B65536" のところを変えただけです。
B5は、日付けの先頭セルです。
データの量は記入してあるデータ全て該当します。

Sub 土日CD列クリア()
Dim Rng As Range
For Each Rng In Range("B5", Range("B65536").End(xlUp))
　　If IsDate(Rng.Value) Then
　　　　If Weekday(Rng.Value, 7) < 3 Then
　　　　　　Rng.Offset(, 2).Resize(1, 2).ClearContents
　　　　End If
　　End If
Next Rng
End Sub

お礼

できました。　すごいです。　でも、このＢ65536　とはいったいどういう意味なんですか？　是非ご教授お願いします。

回答No.3

imogasi

Sub test02()
Worksheets("sheet2").Select
d = Range("a1").CurrentRegion.Rows.Count
For i = 1 To d
　If Weekday(Cells(i, "A")) = 1 Or Weekday(Cells(i, "A")) = 7 Then
　　Cells(i, "B") = ""
　　Cells(i, "C") = ""
　End If
Next i
End Sub

お礼

どうもありがとうございました。

回答No.1

dejiji-

消したいセルにもう一つ条件を追加すれば、
「数式を」で、
=WEEKDAY(A1,3)>=5
とし、文字を白にすれば、見かけ上は消えたことになります。ただし、ブランクではありません。

お礼

ご回答ありがとうございます。ただ、最終的に計算し、集計しているものですから、見えなくなるだけでは今回の目的を達成できません。　何か良い方法はないでしょうか？