過去に似たような質問があってそれらを参考にいろいろ試してみたのですが、なにぶん初心者ゆえうまくいきませんでしたのでこちらに直接質問させていただきました。
まず、FからXの各列の14行目にVLOOKUPで0〜5の数字 (コード) を返すよう設定しています。
そこでフォームボタンをクリックすると14行目に5以外の数字が表示されているものはすべて非表示にしたいのですが、この場合はどのようにするのが最善策でしょうか? 当方Office 2010を使用しております。
わかりにくい質問で恐縮ですが、どうぞご教示くださいませ。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは!
色々やり方はあると思いますが、一例です。
Sub Sample1()
Dim c As Range, myRng As Range, myArea As Range
Set myArea = Range("F14:X14")
For Each c In myArea
If c <> 5 Then
Set myRng = c
Exit For
End If
Next c
If Not myRng Is Nothing Then
For Each c In myArea
If c <> 5 Then
Set myRng = Union(myRng, c)
End If
Next c
myRng.EntireColumn.Hidden = True
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
以下でどうでしょうか。
-----------------------------------------
Sub aaaa()
Dim c As Integer
Range(Columns(6), Columns(24)).Hidden = False
For c = 24 To 6 Step -1
If Cells(14, c).Value <> 5 Then
Columns(c).Hidden = True
End If
Next c
End Sub
-----------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/04/01 09:10
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
列から特定の文字列検索→該当以外の「行」隠すマクロ
その他(Microsoft Office)
-
-
4
【Excel VBA】条件に合った行の表示・非表示を行う方法
Visual Basic(VBA)
-
5
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
6
エクセルで複数の特定の文字列をふくむ行を非表示にしたい。
Excel(エクセル)
-
7
EXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。
Excel(エクセル)
-
8
指定した条件で行セルを非表示にするVBAについて
Visual Basic(VBA)
-
9
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
10
EXCEL VBA 指定範囲内で特定の列に空白セルを含む行を非表示
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
16
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
17
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
18
エクセルで昨日までの日付データ行を非表示するVBAについて!
Excel(エクセル)
-
19
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
20
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クライアントに出すメールで、...
-
「ありますか」と聞く場合、Is...
-
「データ」のスペルはdataとdat...
-
Yahoo知恵袋の回答が心無いもの...
-
丁寧語の「ご質問」「お問い合...
-
一坪何m2?
-
一般常識が無さすぎて自信をな...
-
1合って何リットル?
-
ここのサイトについて
-
学術書と一般書の簡単な見分け...
-
チェーンソーの耐用年数
-
会計用語で"Plug"とは?
-
ステーキ、300グラム?
-
知恵袋で回答してる人は、暇人...
-
独身男性はどうやって性欲をお...
-
太陽光発電での全量売電から余...
-
googleフォーム メールフォーム...
-
何日持ちますか?
-
3X掛ける2という計算について
-
インタビューのアポイントメン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クライアントに出すメールで、...
-
「データ」のスペルはdataとdat...
-
チェーンソーの耐用年数
-
何度も同じ事を言わせる人は何...
-
「ありますか」と聞く場合、Is...
-
独身男性はどうやって性欲をお...
-
就活生です。 「チームで成し遂...
-
太陽光発電での全量売電から余...
-
丁寧語の「ご質問」「お問い合...
-
接骨院の受付事務 訳が分から...
-
FOB、C&F、CIFの違い...
-
Yahoo知恵袋の回答が心無いもの...
-
一般常識が無さすぎて自信をな...
-
一坪何m2?
-
1合って何リットル?
-
IT素人が全然関係ない部署から...
-
【ISO?】標準類とは何ですか?
-
LINEで、質問されたから答えた...
-
5段階評価の分析法
-
「行かなきゃ」と「行かないと...
おすすめ情報