表題の件で質問します(※VBA初心者です)。
エクセル上の設定ではできないためVBAでやろうとしています。
sheet1のA6:F423に表があり、F6~F423には文章が書かれています。
その文章中に含まれるワードを選んで該当する行を抽出するようにしています。それらのワードは、同シートのI2,J2,I3セルに作ったドロップダウンリストから選び、そのリストは、sheet2のB4からB31に書かれたワードから成ります(I2,J2,I3全て共通)。
行の抽出のために以下のプログラムを組みました(このプログラムは正常に動作します)。
Sub 検索()
Dim keyw As String
Dim keyw_or As String
Dim keyw_and As String
keyw = Range("I2").Value
keyw_and = Range("J2").Value
keyw_or = Range("I3").Value
If keyw = "" Or (keyw_and <> "" And keyw_or <> "") Then
MsgBox ("キーワードが入力されていません")
Exit Sub
End If
keyw = "*" & keyw & "*"
If keyw_and <> "" Then
keyw_and = "*" & keyw_and & "*"
Range("A7").AutoFilter field:=6, Criteria1:=keyw, Operator:=xlAnd, Criteria2:=keyw_and
Exit Sub
End If
If keyw_or <> "" Then
keyw_or = "*" & keyw_or & "*"
Range("A7").AutoFilter field:=6, Criteria1:=keyw, Operator:=xlOr, Criteria2:=keyw_or
Exit Sub
End If
Range("A7").AutoFilter field:=6, Criteria1:=keyw
End Sub
そして、このプログラムの後に、ドロップダウンリストの文字を拡大するため下記のプログラムを書きました(あるサイトからの引用です)が、実行しようとしても「マクロ名」の欄にタイトルが表示されません。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 150
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
エラーは出ていませんが、どこがおかしいのかわかりません。教えて頂けませんでしょうか?
No.1ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
ドロップダウンリストのフォントサイズを大きくするには?
Excel(エクセル)
-
エクセルのプルダウンメニューの字の大きさを大きくしたいのですが
その他(Microsoft Office)
-
入力規則のリストの文字の大きさも調整したい
Word(ワード)
-
-
4
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
5
エクセル ドロップダウンリストが見ずらい
Excel(エクセル)
-
6
エクセル、入力規則のドロップダウンリストの表示文字サイズを変更するには?
Excel(エクセル)
-
7
エクセルの入力規則で作ったリストの文字を拡大したい
Excel(エクセル)
-
8
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
9
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
10
エクセル 入力規則 リストのフォントを変えたい
Excel(エクセル)
-
11
ドロップダウンリスト 自動表示したい
Excel(エクセル)
-
12
VBA リストボックス反映できない
Visual Basic(VBA)
-
13
Excel VBA コンボボックスについて
Excel(エクセル)
-
14
エクセル 入力規則のリストボタンのサイズは変えられますか?
Excel(エクセル)
-
15
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
16
入力規則のリストのフォントを変えたい
Excel(エクセル)
-
17
ドロップダウンリストの文字サイズを大きくする方法は
Excel(エクセル)
-
18
コンボボックスの文字を大きくしたい
Word(ワード)
-
19
エクセルのプルダウン三角マークの表示が小さい
Excel(エクセル)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
スポーツ施設での出来事で心配...
-
インクリメント演算子のみを用...
-
Excelに埋め込んだVBAのプログ...
-
VBAにてメール作成した際、一部...
-
未使用の変数を一括検索する方法
-
PICマイコンのコピー(クローン...
-
Vba 実数および実数タイプの変...
-
プログラムの勉強のおすすめは
-
UWSCで指定のフォルダを開きたい。
-
VBAでユーザーフォームが自動的...
-
Excelで4096点以上のFFTの方法
-
excelVBAからC#へsendmessage
-
「Outlookが他のプログラムによ...
-
写真のプログラムは、1からnま...
-
白色雑音(ガウス性)のプログラム
-
C言語で移動平均のプログラムを...
-
ドロップダウンリストの文字を...
-
PICアセンブラを出来る方、教え...
-
バッチ、vbs等でのソフトウェア...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
「Outlookが他のプログラムによ...
-
Excelに埋め込んだVBAのプログ...
-
VBAにてメール作成した際、一部...
-
Notepad++の関数リスト表示でC...
-
自動クエリとはどういうもので...
-
読み込み中にアクセス違反が発...
-
PICマイコンのコピー(クローン...
-
XnViewにwebpを「いつも開く」...
-
未使用の変数を一括検索する方法
-
VBAでユーザーフォームが自動的...
-
UWSCで指定のフォルダを開きたい。
-
パックマンプログラム
-
このプログラミング誰か教えて...
-
モジュール、アプリケーション...
-
Vba UserFormを前面に出す方法...
-
特定のwebサイトのタイトルや記...
-
ドロップダウンリストの文字を...
-
テキストボックスのエンターキ...
おすすめ情報