- ベストアンサー
InputBoxを活用したエクセルデータのフィルタ処理方法
bonaronの回答
ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*" & myR & "*" ですかね。
関連するQ&A
- InputBoxについて
Sub test1() Dim tmp As String tmp = Application.InputBox("testです") End Sub Sub test2() Dim tmp As String tmp = InputBox("testです") End Sub この二つのコードを比較すると、 test1の方は、ダイアログボックスのタイトルに「入力」が表示され、 四角いインプットボックスが表示されます。 test2の方は、私がいつも使っているインプットボックスなのですが、 「tmp =」と 「InputBox」の間に何かコードが省略されてるのでしょうか？ Application.を付ける事によって、形が変わってしまうのでしょうか？ また、オブジェクトブラウザを見ると 【１】Function InputBox(Prompt As String, [Title], [Default], [Left], [T Excel.Application のメンバ 【２】Function InputBox(Prompt, [Title], [Default], [XPos], [YPos], [Help VBA.Interaction のメンバ がありましたが、 test1、test2それぞれどちらの事なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ inputboxの位置
エクセル２００７です。以下のinputboxメソッドで、トップとレフトの値を変えても、inputboxの位置がとても悪いのです。Ｋ１４あたりに出ます。どうしたらいいでしょうか。 Sub 練習() Dim myR myR = Application.InputBox(prompt:="数量を入力しなさい", Top:=10, Left:=30, Type:=1) If VarType(myR) = vbBoolean Then Exit Sub Range("C2").Value = myR End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルマクロでinputboxメソッドゼロ入力
エクセル２００７です。 以下のマクロで、inputboxメソッドで質問させると、キャンセルボタンを押すと、うまいぐあいに止まります。 しかし、０を押しても、止まってしまいます。本当は、Ｃ２にゼロと表示させたいのです。 Sub 練習() Dim myR myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1) If myR = False Then Exit Sub Range("C2").Value = myR End Sub
- ベストアンサー
- Excel（エクセル）
- 日付をオートフィルタするＶＢＡを教えて下さい。
Sub 日付を検索() Dim hiduke As Date hiduke = Application.InputBox(prompt:="日付を入力", Title:="日付を検索", Type:=2) Range("D3").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:=hiduke End Sub この構文が間違っているようで、日付を 10/27 とか入れても 10/27が選択されません。 4列目（Ｄ列）が日付の列です。 何にも表示が出ません。 正しい構文を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- InputBox String型・Variant
ＶＢＡです。 InputBox String型・Variant型がエラーにならない理由がわかりません。 Sub 日付型() Dim 日 As Date 日 = InputBox("値をいれてください") End Sub Sub 数値型() Dim i As Long i = InputBox("値をいれてください") End Sub Sub 通貨型() Dim 円 As Currency 円 = InputBox("値をいれてください") End Sub Sub String型() Dim a As String a = InputBox("値をいれてください") End Sub Sub Variant型() Dim v As Variant v = InputBox("値をいれてください") End Sub String型・Variant型以外は、 「実行時エラー '13'; 型が一致しません。」になります。 String型・Variant型はならない理由を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- 違う列で、２つの抽出条件を満たすには
OSはXPで、Excel2003を使用しています。 下記のマクロですと、Key列に任意の文字があって、Key2列に任意の文字が入っていなくても抽出されますが、 その逆、Key列に任意の文字がなくて、Key2列に任意の文字が入っている場合は抽出されません。 前者の場合も、後者の場合も抽出される様にするには、どの様にすれば良いか教えて下さい。 ***** Sub test() Dim Key As String Dim Key2 As String Key = Application.InputBox("抽出列の番号を入れて下さい") Key2 = Application.InputBox("抽出列の番号を入れて下さい") Worksheets.add After:=ActiveSheet, Count:=1 ActiveSheet.Name = "BBBB" Sheets("AAAA").Activate Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=Key, Criteria1:="*" Selection.AutoFilter Field:=Key2, Criteria1:="*" Selection.CurrentRegion.Copy Sheets("BBBB").Activate Range("A1").PasteSpecial Paste:=xlAll Selection.CurrentRegion.Select End Sub ******* 説明不足な所がございましたら追記致します。 何卒よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡで保存時の状態に戻す方法
本などを参考にしながらエクセルＶＢＡを使って売上帳を作成しています。 品名欄のキーワード検索機能を付けていますが、抽出した後、元の状態に戻す良い方法はないですか？ キーワードの抽出は以下の書き方です。 Sub 品名検索() Dim ans As String ans = InputBox("文字列を入力してください") With ActiveSheet If .AutoFilterMode Then 'オートフィルタモードがオンなら .AutoFilterMode = False 'リセットする End If .Range("A4:IV4").AutoFilter 'オートフィルタモードをセット .Range("A4:IV4").AutoFilter Field:=5, Criteria1:="=*" & ans & "*" '5つ目のフィルターに検索文字 End With End Sub よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- 「～以上、～以下」のオートフィルタのVBAについて
こんばんは、オートフィルタについて２つ質問させてください！ １つ目は、１０列目に入っている値で、20170901以上かつ20170931以下の値をオートフィルタで抽出しようと以下のVBAを入力しましたが、該当するデータがあるにも関わらず抽出ができませんでした(T_T)何か間違っているのでしょうか…？！ Range("A1:K" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=10, Criteria1:=">=20170901" _ , Operator:=xlAnd, Criteria2:="<=20170931" ２つ目は、同様のデータでInputBoxを利用し、入力した数字をそのままオートフィルタの条件に反映しようとする以下のVBAを入力してみました。しかし、やはり記述の方法が違うのか該当するデータがあるにも関わらず抽出は成功しませんでした・・・。 Dim 日付 As Date 日付 = InputBox("処理月を入力して下さい（例:201709）") Range("A1:K" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=10, Criteria1:=">= 日付 & 01" _ , Operator:=xlAnd, Criteria2:="<= 日付 & 31 " どなたかご助力いただけるととても助かります、どうぞよろしくお願いいたします！m(_ _)m
- ベストアンサー
- Excel（エクセル）
- EXCELマクロでワイルドカードを使ったオートフィルタ処理の方法がわからない
エクセルのマクロがうまく動かないので、教えてください。 あるセルにカーソルをおいて、そのセルの文字を含んだ文字で（ワイルドカードを使って）オートフィルタ処理をしたいのですが、 「構文エラー」となってしまいます。 Dim num As String num = ActiveCell.Value Sheets("リスト").Select Columns("AN:AN").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="=*"&num&"*", Operator:=xlAnd ActiveWindow.ScrollColumn = 2 Range("A1").Select Criteria1:="=*"&num&"*"の部分で 「構文エラー」になっているようなのですが… お分かりになる方教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel AutoFilterメソッドについて
excelのvbaについてです。 日付 取引先 金額 ------------------------------ 3月20日 ○○様 ￥２０，０００ 4月23日 △△様 ￥１９，０００ 5月23日 ○○様 ￥５，０００ ・・・・・ ・・・ ・・ というような表から、INPUTBOXで入力した抽出条件でデータを取り出したいと思っています。 Dim aa As String, i As Integer aa = InputBox("抽出する取引先を入力してください") i = InputBox("抽出を開始する月は？※半角数字で入力してください") ii = InputBox("抽出を終了する月は？※半角数字で入力してください") Selection.AutoFilter field:=1, Criteria1:=aa Selection.AutoFilter field:=2, Criteria1:=">=" & i & "月1日", Operator:=xlAnd, Criteria2:="<=" & ii & "月31日" End Sub としたのですが、月によって30日で終わる月もあれば、28日、29日で終わる月もありますよね。 どんな月の範囲指定をしても、ちゃんと抽出できるようにするにはどうしたらいいでしょうか？ 諸先輩方、どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。動作できました。