OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセルで作る見積表の抽出方法(ゼロ入力でも抽出したい!)

  • すぐに回答を!
  • 質問No.168420
  • 閲覧数65
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

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つ質問なのですが、
この構文では、数量欄にゼロ(0)を入れると抽出出来ません。できればゼロを入れた時も抽出されるようにしたいのです。
つまり数量欄が空欄以外はすべて抽出されるようにしたいのです。
説明不足でしたら補足致しますので、宜しくお願い致します。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル10

ベストアンサー率 38% (54/141)

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

If Worksheets("単価表").Cells(i, 6).Text = _
でどうでしょう?
お礼コメント
noname#1163

お返事、ありがとうございます。
早速試してみます!
投稿日時 - 2001-11-14 15:57:00
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ