![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
過去に似たような質問があってそれらを参考にいろいろ試してみたのですが、なにぶん初心者ゆえうまくいきませんでしたのでこちらに直接質問させていただきました。
まず、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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
-
4
列から特定の文字列検索→該当以外の「行」隠すマクロ
その他(Microsoft Office)
-
5
エクセルで複数の特定の文字列をふくむ行を非表示にしたい。
Excel(エクセル)
-
6
指定した条件で行セルを非表示にするVBAについて
Visual Basic(VBA)
-
7
【Excel VBA】条件に合った行の表示・非表示を行う方法
Visual Basic(VBA)
-
8
EXCELマクロで、ある列の値が0の場合、非表示/表示ボタンで該当列を非表示切り替えしたいんです。
Excel(エクセル)
-
9
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
エクセルVBAのEntireRow.Hiddenをスピードアップしたいのですが・・・。
Excel(エクセル)
-
13
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
14
EXCEL VBA 指定範囲内で特定の列に空白セルを含む行を非表示
Excel(エクセル)
-
15
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
16
特定のセルが空白の行を非表示にするマクロについて
Excel(エクセル)
-
17
条件に応じて特定の行を非表示にしたい
Excel(エクセル)
-
18
【VBA】複数のシートの指定した列を非表示・表示をさせたい
Excel(エクセル)
-
19
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クライアントに出すメールで、...
-
「データ」のスペルはdataとdat...
-
独身男性はどうやって性欲をお...
-
何度も同じ事を言わせる人は何...
-
丁寧語の「ご質問」「お問い合...
-
Yahoo知恵袋の回答が心無いもの...
-
1合って何リットル?
-
Yahooで質問しようとしたら、 ...
-
照会コード6015-G97の意味は?
-
宿題の質問です。 情報の問題で...
-
接骨院の受付事務 訳が分から...
-
5段階評価の分析法
-
FOB、C&F、CIFの違い...
-
ステーキ、300グラム?
-
教えて!gooに詳しい回答者から...
-
なんか 質問サイトで、この教え...
-
VBAとjava
-
チェーンソーの耐用年数
-
演者と座長とは?
-
22条地域 延焼の恐れのある部分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クライアントに出すメールで、...
-
独身男性はどうやって性欲をお...
-
「ありますか」と聞く場合、Is...
-
「データ」のスペルはdataとdat...
-
何度も同じ事を言わせる人は何...
-
接骨院の受付事務 訳が分から...
-
丁寧語の「ご質問」「お問い合...
-
FOB、C&F、CIFの違い...
-
Yahoo知恵袋の回答が心無いもの...
-
一般常識が無さすぎて自信をな...
-
学術書と一般書の簡単な見分け...
-
会計用語で"Plug"とは?
-
1合って何リットル?
-
チェーンソーの耐用年数
-
エクセル対数近似曲線のX値を代...
-
一坪何m2?
-
LINEで、質問されたから答えた...
-
本当に下らないのですが、オ、...
-
副詞「さっぱり~ない」と「全...
-
宿題の質問です。 情報の問題で...
おすすめ情報