エクセルＶＢＡでスケジュール表作成・２

質問

http://oshiete1.goo.ne.jp/qa3608086.htmlの続きです。
エクセルＶＢＡで、１ヵ月単位のスケジュール表を作成しています。
ここの方々のご協力で、

原紙をコピー→任意の年・月のカレンダーを自動入力

というところまではできました。
今度は、新しいシートの「Ｃ」列へ自動入力された曜日のうち、
「土」か「日」だったら行全体を16番の色で塗りつぶすという
処理をしたいと思います。
しかし、
For Each C In TargetRange

If C.Formula.Value = "土" Or "日" Then
ActiveRows.Font.ColorIndex = 16

Next oneCell

だとエラーになってしまいます。（「Nextに対応するForがない」と言われます？？）
ヒントなどありましたらお願いいたします。

回答No.1

pbforce · ベストアンサー

間違っていたらごめんなさい。

oneCellは必要ないのではないでしょうか？

お礼

すみません。
For Each C In ActiveSheet

If C.Formula.Value = "土" Or "日" Then
ActiveRows.Font.ColorIndex = 16
End If

Next C

に修正したら、コンパイルは通るんですけど実行されません。。
根本的な考え方が間違ってるのでしょうか？

回答No.7

jobvba

If DateSerial(y, m, i) = DateSerial(y, m + 1, 0) Then End
EndをExit Forに置き換えてみてください
追加した部分が動かない原因は、ここのEndでマクロ自体が終了してしまっていたからです！
こんな感じでどうでしょうか^^;

お礼

できました！！
ありがとうございました。
まだ追加機能があるので、もしわからなくなったらまたお願いします・・・。

回答No.6

jobvba

こうなったらとことんやりましょう^^
微妙に修正してみました
テスト済みです
Set TargetRange = Range("B5:B35")
For Each B In TargetRange
If B.Value = "土" Or B.Value = "日" Then
Rows(B.Row).Interior.ColorIndex = 16
End If
Next

お礼

なぜできないんでしょうか。。。
全文だとこんな感じです。

Sub Sheet_Copy()

Dim iCell As Integer

Worksheets("原紙").Copy After:=Worksheets("原紙")

y = Worksheets("スケジュール作成").Range("I3").Value
m = Worksheets("スケジュール作成").Range("J3").Value

iCell = 4 '日付入力開始セルの位置を指定

For i = 1 To 32

Cells(i + iCell, "A") = DateSerial(y, m, i)
Cells(i + iCell, "B") = Format(DateSerial(y, m, i), "aaa")

If DateSerial(y, m, i) = DateSerial(y, m + 1, 0) Then End

Next i

'ここから検討中
'「曜日」が土か日だったらその行を塗りつぶす

Set TargetRange = Range("B5:B35")

For Each B In TargetRange

If B.Value = "土" Or B.Value = "日" Then
Rows(B.Row).Interior.ColorIndex = 16
End If

Next

End Sub

＞jobvbaさん
ご親切にありがとうございます。

回答No.5

jobvba

TargetRangeには、処理したいセルの範囲が入っていますか？
例　Set TargetRange = Range("A1:Z100")
For Each文でループするには、Setで範囲を指定しなくてはなりません

お礼

For Each B In TargetRange

TargetRange = Range("B5, B35")

If B.Value = "土" Or B.Value = "日" Then
Rows(B.Row).Interior.Pattern.ColorIndex = 16
End If

Next

これでもダメでした・・・（涙）
何度もありがとうございます。

回答No.4

jobvba

標準モジュールに書いてますか？
間違ってたらすみません

お礼

はい。標準モジュールに書いています。

回答No.3

pbforce

Font.ColorIndexなので文字色（フォントカラー）が16番になっていませんか？

お礼

ご指摘を受けて、

For Each C In TargetRange

If C.Value = "土" Or C.Value = "日" Then
Rows(C.Row).Interior.Pattern.ColorIndex = 16
End If

Next

にしてみました。
やはりコンパイルは通りましたが、実行されません。
どうしてでしょう・・・。

回答No.2

jobvba

これでどうでしょうか
For Each C In TargetRange
If C.Value = "土" Or C.Value = "日" Then
Rows(C.Row).Font.ColorIndex = 16
End If
Next

お礼

ありがとうございます。
しかし、やっぱりコンパイルは通りますが実行されません。。。
なぜでしょう？？