エクセルで作る見積表の抽出方法（ゼロ入力でも抽出したい！）

質問

OSはWindowsNT、Excel97です。
こんにちは。以前こちらで「見積表の抽出方法」をお聞きして素晴らしい見積表を作らせて頂きました。あの時は、数量欄に数字を入れた行のみ抽出し、さらに元に戻す事も出来るという、以下の2つの構文を教えて頂きました。

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Dim i As Integer
i = 2

Do Until i = -1
If Worksheets("単価表").Cells(i, 6).Value = "" Then
i = -1
Else
If Worksheets("単価表").Cells(i, 6).Text = 0 Or _
Worksheets("単価表").Cells(i, 6).Text = "" Then
Worksheets("単価表").Rows(i).Select
Selection.EntireRow.Hidden = True
End If
i = i + 1
End If
Loop
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Worksheets("単価表").Cells.Select
Selection.Rows.Hidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

それでもう1つ質問なのですが、
この構文では、数量欄にゼロ（０）を入れると抽出出来ません。できればゼロを入れた時も抽出されるようにしたいのです。
つまり数量欄が空欄以外はすべて抽出されるようにしたいのです。
説明不足でしたら補足致しますので、宜しくお願い致します。

回答No.1

HitomiKurose · ベストアンサー

ちょっと自信なしですが、
If Worksheets("単価表").Cells(i, 6).Text = 0 Or _
を
If Worksheets("単価表").Cells(i, 6).Text = _
でどうでしょう？

お礼

お返事、ありがとうございます。
早速試してみます！