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)を入れると抽出出来ません。できればゼロを入れた時も抽出されるようにしたいのです。
つまり数量欄が空欄以外はすべて抽出されるようにしたいのです。
説明不足でしたら補足致しますので、宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
製造業に勤めています。 外注さ...
-
一式という言葉の使い方
-
ACCESSのレコード順番の入れ替え
-
事務所ビルの電気料金について...
-
会社で昇級試験があり、提言書...
-
SE単価交渉用文書
-
CIF単価→FOB単価の算出の仕方を...
-
外構見積もりましたが、どうで...
-
食材の単価と価格の違いを教え...
-
1工数1人工
-
数量×単価+数量×単価... 合計を...
-
公共建築工事(設備)の積算に...
-
excelを使用したVBAの問題に関...
-
積算 高所作業車 建築
-
電気工事の見積もりについて勉...
-
表示方法
-
Access columnプロパティについて
-
26歳女です。彼氏がいてメンエ...
-
リストボックスの項目に、他の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
外付けHDDって、この先も長く、...
-
一式という言葉の使い方
-
製造業に勤めています。 外注さ...
-
CIF単価→FOB単価の算出の仕方を...
-
天井開口費の見積について
-
外構見積もりましたが、どうで...
-
仕入単価
-
●何故? ラーメン店は 開業•閉...
-
事務所ビルの電気料金について...
-
1工数1人工
-
2024年 職人不足で単価が上がる...
-
石畳みの路地裏をぬけたあたり...
-
積算 高所作業車 建築
-
公共建築工事(設備)の積算に...
-
単価の前についている「@」
-
リストボックスの項目に、他の...
-
売上、客数、単価から買い上げ...
-
接客販売店員の一日の平均売り上げ
-
ACCESSのレコード順番の入れ替え
おすすめ情報