過去に似たような質問があってそれらを参考にいろいろ試してみたのですが、なにぶん初心者ゆえうまくいきませんでしたのでこちらに直接質問させていただきました。
まず、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
【Excel VBA】条件に合った行の表示・非表示を行う方法
Visual Basic(VBA)
-
7
指定した条件で行セルを非表示にする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 VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
14
条件に応じて特定の行を非表示にしたい
Excel(エクセル)
-
15
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
16
エクセルで特定の文字が入ってる列を削除方法
Excel(エクセル)
-
17
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
18
エクセルのマクロをセルの値に応じて自動起動したい
Visual Basic(VBA)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クライアントに出すメールで、...
-
独身男性はどうやって性欲をお...
-
学術書と一般書の簡単な見分け...
-
「ありますか」と聞く場合、Is...
-
丁寧語の「ご質問」「お問い合...
-
エクセル対数近似曲線のX値を代...
-
【ISO?】標準類とは何ですか?
-
【VC++】'X86' と 'x64'が競合
-
FOB、C&F、CIFの違い...
-
GoogleChromeのプラグインで閲...
-
「データ」のスペルはdataとdat...
-
チェーンソーの耐用年数
-
接骨院の受付事務 訳が分から...
-
エクセルで特定の値を含む列の...
-
一般常識が無さすぎて自信をな...
-
大学教授に質問したいことがあ...
-
いつまで続くのでしょうか?
-
Yahooで質問しようとしたら、 ...
-
何日持ちますか?
-
回答するとき、質問者さんをど...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クライアントに出すメールで、...
-
独身男性はどうやって性欲をお...
-
「ありますか」と聞く場合、Is...
-
「データ」のスペルはdataとdat...
-
何度も同じ事を言わせる人は何...
-
チェーンソーの耐用年数
-
丁寧語の「ご質問」「お問い合...
-
Yahoo知恵袋の回答が心無いもの...
-
接骨院の受付事務 訳が分から...
-
一坪何m2?
-
一般常識が無さすぎて自信をな...
-
1合って何リットル?
-
LINEで、質問されたから答えた...
-
IT素人が全然関係ない部署から...
-
会計用語で"Plug"とは?
-
ステーキ、300グラム?
-
【ISO?】標準類とは何ですか?
-
「行かなきゃ」と「行かないと...
-
FOB、C&F、CIFの違い...
-
140,000万円は1,400,000,000円...
おすすめ情報