複数のセルでの方法

質問

現在下記のようなマクロを組んであるのですが、これだと5列目が「0」のときの実行マクロです。

'5列目(工数)が「0」のとき該当する行の高さを「0」にする。
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 5).Value = "0" Then
Rows(i).RowHeight = 0
End If
Next

私はこれではなくて、5列目と7列目の同じ行にあるセルに「0」がはいっていたら行の高さを「0」にしたいのです。
そこで私は

If Cells(i, 5).Value = "0" Then

これを

If Cells(i, 5).Value = "0"　And　Cells(i, 7).Value = "0" Then

にしたところエラーが発生しました。
良い方法があればお教えください。

よろしくお願いします。

回答No.2

imogasi · ベストアンサー

Sub test02()
MsgBox ActiveSheet.UsedRange.Rows.Count
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 5).Value = "0" And Cells(i, 7).Value = "0" Then
MsgBox i
Rows(i).RowHeight = 0
End If
Next
End Sub
で通りました。Value = "0"はValue = 0で良いのでは。
それと上２行スペース行があって、その下に７行ある場合も７と出て、行で言うと９行から上へ（Step－１）行くべきであるので、良くこの点をチェックしましょう。
私はUsedRangeやCurrentRegionはその点をいつも気にしています。範囲行数なのか絶対行数なのか。Cellsの第１引数
は絶対行数（コンな語句使いませんが判ってもらえますか）。

回答No.1

S-Fuji

テストしましたが、特別エラーは出ませんでしたよ。
スペースや、ドット、カンマ等にミスは有りませんか？。