![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.7ベストアンサー
- 回答日時:
こんばんは!
VBAになってしまいますが・・・
こういうことですかね?
↓の画像のような配置でE1セルにリスト表示させるようにしています。
(リストの中には空白セルを一つ入れています、空白セルを選んだ場合はすべて表示になります)
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてE1セルのデータをリストから選んでみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target = Cells(1, 5) Then
Application.ScreenUpdating = False
Rows.Hidden = False
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) > Target And Target <> "" Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End If
End Sub 'この行ま
※ ご希望の方法と違ったらごめんなさいね。m(_ _)m
![「エクセル2000:条件によって行を非表示」の回答画像7](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/7/667667_5497e53b5707d/M.jpg)
みなさん、わかりにくい質問にもかかわらず、回答いただきありがとうございました。
伝わるように努めたのですが、ややこしくなってしまったようです。
tom04さんに教えていただいたVBAでうまく動きました。
フォームの中に組み込めそうです。
複雑なものを作っていただきありがとうございました。
No.6
- 回答日時:
>フォームのようなものを作り、その一部に今回質問させていただいた表も組み込みたいと考えています。
これは「非表示」の問題ではなく、「抜き出し」問題(抽出問題)だ。質問内容をはっきり正確に書かないから、回答者を混乱させている。
こういうレベルでは、VBAでフォームを扱うのなど早すぎる。丸投げで、回答の書かれたコードをコピペして、うまく行きましたなんて、安易で回答者はやりきれないだろう。
No.5
- 回答日時:
非表示ならオートフィルターで十分だと思うのですが、ほかのセルへ書き出すのでしょうか?
マクロの自動記録 でちょっとだけ修正したもの
Sub F1セルへ抽出する()
'F1セルを選択して[Ctrl]+[Shift]+[*] → [Delete] の組み合わせ
Range("F1").CurrentRegion.ClearContents
'A1セルを選択してオートフィルター オプション ○以下と
'D1セルの値の組み合わせ
Range("A1").AutoFilter Field:=1, Criteria1:="<=" & Range("D1").Value
'A1セルを選択して[Ctrl]+[Shift]+[*] → コピー の組み合わせ
Range("A1").CurrentRegion.Copy
'F1セルを選択して
Range("F1").Select
'貼り付け
ActiveSheet.Paste
'[Esc]
Application.CutCopyMode = False
'すべて表示
ActiveSheet.ShowAllData
End Sub
添付図参照
![「エクセル2000:条件によって行を非表示」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/b/655143_5497e13c69dd8/M.jpg)
No.4
- 回答日時:
非表示ではなく抽出ではダメなんですかね。
なれないVBAを使うよりかは効率的と思いますが。
もう少し詳しく表の構成(横に項目がどれくらいあるとか、No.はどの列にあるとか)を書かれるとそういった回答が来るかもしれません。
No.3
- 回答日時:
NO1です。
>参考サイトがあればご教示いただければと思います。
⇒ご希望のものと少し相違しますが添付のURLを参照して下さい。
参考URL:http://www.nbcom.co.jp/PC-Support/FAQ/xls/ht/xls …
たびたびの質問にお答えいただきありがとうございました。
教えていただいたページを参考にさせていただいて自分でやってみようと思います。
ありがとうございました。
No.1
- 回答日時:
>選んだ数字より大きい数の行は非表示
⇒マクロ(VBA)なら非表示とする事が可能ですが、VBA知識が必要です。
尚、「非表示」=「見えない」でよいのならば、条件付き書式でフォントをセル背景と同じに色に設定すれば可能ですが如何でしょうか。(但し、数式バー上にはデータ表示あり)
仮にA1に行入力、2行目から9行目を選択→書式→条件付き書式→「数式が」を選択、数式欄に=(ROW()-1)>$A$1→書式→フォントタブで色欄にセル背景と同色を選択→OK
この回答への補足
早速のご回答、ありがとうございました。
文字を見えなくするのではなく、できれば行自体を非表示にしたいと考えています。
マクロ(VBA)を使用する場合は、どういった式を組めばいいでしょうか。
(マクロの使用については、関連サイトを見ながらコピー&ペーストで設定する程度はやったことがあります。)
または、参考サイトがあればご教示いただければと思います。
(Google等で色々検索してみましたが、見つけられず、こちらで質問させていただいた次第です。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) EXCELで次の数式を教えてください。 5 2022/11/23 18:33
- Excel(エクセル) Excelの操作方法を教えてください!頭文字2~8文字で特定の値に返す方法 8 2022/07/14 11:26
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Word(ワード) ワード2023でテキストボックス内の数字が勝手に変わってしまう 1 2023/02/09 14:47
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- PHP コメント機能に返信欄を矢印で追加したい 1 2022/05/09 21:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報