- 締切済み
Excel VBA AutoFilterについて
Excel VBA AutoFilterについてについての質問です。 下記に記載しています、データの頭文字が（アからオ）までのものを一度に検索することは可能ですか？ AutoFilter(Field:=1,Criteria1=" ア"& "*",Operator:=xlAnd , Criteria1:="イ"&"*"）のような書き方を しても2項目までが限界のようですし。どなたかお詳しい方、ご教授の程、お願いいたします。 ＜例＞ A列 あらい いしだ うえだ えとう おがわ かとう きむら くどう こじま
- Dove1228
- お礼率66% (2/3)
- その他（学問・教育）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- ALI-1945
- ベストアンサー率0% (0/0)
関連するQ&A
- エクセルVBA
日誌を作成してて、月毎に印刷しなければならないために下記のようなコードを自動マクロで作成しました。 Sub 並び替え4月() 並び替え4月 Selection.AutoFilter Field:=2, Criteria1:=">=2007/4/1", Operator:=xlAnd, _ Criteria2:="<=2007/4/30" Application.Run "日誌.xls!登録" End Sub Sub 並び替え5月() 並び替え5月 Selection.AutoFilter Field:=2, Criteria1:=">=2007/5/1", Operator:=xlAnd, _ Criteria2:="<=2007/5/31" Application.Run "日誌.xls!登録" End Sub これで、１年分作ったのですが、2008年4月からに応用できません。任意のセルに年度を入力するだけでコードが置き換わるようにするにはどうすれば良いのか見当もつかない状況です。ネットで色々調べてみたんですが、参考になる例題も見つけられず困っております。どうぞ、宜しくお願いいたします。
- 締切済み
- Visual Basic
- エクセルVBA データ比較抽出について・・・
いつも皆様には大変お世話になってます Worksheets("Sheet1").Select q = ListBox1 z = TextBox1 x = TextBox2 With Range("A1") .AutoFilter .AutoFilter Field:=2, Criteria1:=q .AutoFilter Field:=3, Criteria1:=">=150", _ Operator:=xlAnd, Field:=3, Criteria2:="<=160" というようなマクロ組んだのですが・・・実は、Criteria1:=">=150のところの150をTexitbox１をその下の160のところをTextbox2を入れたいのですが・・・ 色々やったのですが、うまく動かないのです；； 分かる方いらっしゃいましたら宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL2000のVBAでオートフィルタの条件について
いつもお世話になります。 ＶＢＡでオートフィルタの条件を、４／１～４／３０まで指定する時に、 AutoFilter Field:=1, Criteria1:=">=2003/4/1", _ Operator:=xlAnd, Criteria2:="<=2003/4/30" というような式になると思うのですが、この日付の条件「>=2003/4/1」と「<=2003/4/30」をあらかじめシートのＡ１とＢ１セルに入力しておき、 AutoFilter Field:=1, Criteria1:="A1", _ Operator:=xlAnd, Criteria2:="B1" としたいのですが、このままでは、当然検索条件自体が「A1」「B1」となってしまいますよね。。。 セルを指定することって、できますでしょうか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのAutoFilterについて
はじめまして。今回初めてエクセルVBAに挑戦していますが、行き詰まってしまいました。 エクセルで顧客管理データベースを作っています。シートの一番上の行に、ID、顧客名、依頼内容、依頼日、処理終了日・・・・などデータベースでいう「フィールド名」を入力し、２行目以下に顧客データを打ち込む形です。 当社では週一回会議で、前の週の新規顧客名の一覧と前の週に処理終了した顧客名の一覧をリストにして配りますが、エクセルVBAを使ってそのリストを作るプログラムを作ろうと試みました。 まず、UserFormを用いて、抽出したい期間（何年何月何日から何年何月何日）をそれぞれTextBox1、TextBox2の値で所得します。そして、開始年月日をDateFromという変数に代入、終了年月日をDateToという変数に代入し、AutoFilterで検索して別シートにコピーするという流れです。 前置きが長くなりましたが、質問です。 １ この変数の定義、つまり DateFrom = UserForm1.TextBox1.value という文で所得しようと思いますが、うまくいきません。書式がおかしいのでしょうか？ ２ AutoFilterの使い方を「新しいマクロの記録」を使って見てみると Selection.AutoFilter Field:=10 _ , Criteria1:=">=2004/4/27", Operator:=xlAnd _ , Criteria2:="<=2004/5/10" というかたちになるようですが、>=2004/4/27の部分を変数を使って指定するには、書式はどのようにしたらいいのでしょうか。このまま>=DateFromの形ではうまくいかないようです。
- ベストアンサー
- オフィス系ソフト
- 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
- Excel VBAについて教えて下さい。
00というブックとテストというブックがあります。 00のデータを並び替え、一部変更し、テストのシート3へ貼付けを行いたいのですが、 うまく作動してくれません。以下に現在のコードを記載しましたので、ご指摘いただければと思います。 やりたいことは １．ブック”00”のシート00にて条件がF列が0、E列がHでソートをかけます。 ２．E列のHをすべて数字の1に変更します。 ３．今度は別の条件、F列が1、E列がH、D列が1でソートをかけます。 ４．E列のHをすべて消去します。 ５．すべて表示させA列からE列までのデータを、テストのシート３へ貼付けをします。 コピー＆ペーストは上手くいくのですが、肝心のソート+文字の変更+消去が出来ていません。 ネットを見ながら書いたコードで、VBAを勉強中です。 よろしくお願いします。 あと、この作業の前にブック00のB列にて昇順のソートをかけるというコードを追加したいのですが、 それについても教えていただけるとうれしいです。 よろしくお願い致します。 Private Sub Worksheet_Activate() Dim wb1 As Workbook Dim wb2 As Workbook Dim i As Long Application.ScreenUpdating = False Set wb1 = ActiveWorkbook Set wb2 = Workbooks.Open("C:\Documents and Settings\デスクトップ\メモ\00.xls", ReadOnly:=True) With wb2.Worksheets("00").Range("A1").CurrentRegion .AutoFilter .AutoFilter Field:=6, Criteria1:="=" & "0", Operator:=xlAnd .AutoFilter Field:=5, Criteria1:="=" & "H", Operator:=xlAnd .AutoFilter x = .Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To x If Cells(i, 5) = "H" Then Cells(i, 5) = Replace(Cells(i, 5), "H", "1") End If Next i With wb2.Worksheets("00").Range("A1").CurrentRegion .AutoFilter .AutoFilter Field:=6, Criteria1:="=" & "0", Operator:=xlAnd .AutoFilter Field:=5, Criteria1:="=" & "H", Operator:=xlAnd .AutoFilter Field:=4, Criteria1:="=" & "1", Operator:=xlAnd .AutoFilter x = .Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To x If Cells(i, 5) = "H" Then Cells(i, 5) = Replace(Cells(i, 5), "H", " ") End If Next i wb2.Sheets("00").Range("B1", .Cells(Rows.Count, 5).End(xlUp)).Copy wb1.Sheets("Sheet3").Range("K3").PasteSpecial wb2.Close False Range("A1").Select Application.ScreenUpdating = True End With End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの一時停止後、 入力し再実行したい
エクセルVBAでオートフィルター実行後に一時停止し、オートフィルターで選んだエクセルシート上のセルに直接入力た後、マクロを再実行させたい。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2008/3/2 '製品コードより枠番を選ぶ Selection.AutoFilter Field:=12, Criteria1:="=?????1*", Operator:=xlAnd 'ここで一時停止し、エクセルシート上で入力した後、次の行を実行したい Selection.AutoFilter Field:=12, Criteria1:="=?????2*", Operator:=xlAnd 'ここで一時停止し、エクセルシート上で入力した後、次の行を実行したい Range("A1").Select End Sub
- ベストアンサー
- Windows XP
- Excel VBA 任意の日付から1週間分抽出
ＶＢＡ素人です。 シート１ Ａ Ｂ Ｃ Ｄ Ｅ １任意の日付 ２日付 曜日 内容 氏名 備考 ３ ４ ５ ６ このようなデータ入力です マクロ記録でオートフィルタを用い日付抽出をするマクロを吸出し、ネットで知った今日から前後4日間のマクロを入力し,改変し応用しようと考えたのですが、やはり素人には壁が高くうまいこと行きません。 皆さんに教えていただきたいのは以下の式 Range("A2:E2").Select Selection.AutoFilter ActiveSheet.Range("$A$2:$E$5").AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria1:=">=" & Date - 4, Operator:=xlAnd, Criteria2:="<=" & Date + 4 の↓この部分 xlFilterValues, Criteria1:=">=" & Date - 4, Operator:=xlAnd, Criteria2:="<=" & Date + 4 の & Date - 4 を、どう変更すれば Ａ１に入力した任意の日付に出来るのか？です。 きっと基本的な事だとは思うのですが、教えてくださいお願いします。
- ベストアンサー
- Visual Basic
- Excelでマクロを繰り返したい。
Excelでマクロを記録したら以下のようになりました このマクロを以下の条件で繰り返したいのですが。 Sub Macro1() '------------- '----------------------- ' Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=5*", Operator:=xlAnd, _ Criteria2:="<>5@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=6*", Operator:=xlAnd, _ Criteria2:="<>6@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=7*", Operator:=xlAnd, _ Criteria2:="<>7@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=8*", Operator:=xlAnd, _ Criteria2:="<>8@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 条件＝ Field：は4～35位まで変動します 一連の動作をコピーして手作業で数字を変えてみたのですが プロージャが大きすぎてエラーになってしまいます。 何か良い方法は無いでしょうか？。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA系・・ 関数のSUBTOTALの絡みで・・・
いつもいつもいつも皆様には大変お世話になっております。 早速本題ですが オートフィルターでフィルターをかけた物の 足し算はSUBTOTALですよね。 そこからが問題なのですが、 SUBTOTALででた合計をVBAでコピーして貼り付けをしたいのです。 その貼り付け場所は 別のシートになります。 ちなみに作ってみたのはこんな感じです Windows("表.xls").Activate DATA = Range("A1:N1002") With Range("B4") .AutoFilter .AutoFilter Field:=3, Criteria1:="A店" .AutoFilter Field:=2, Criteria1:=">=" & Z , _ Operator:=xlAnd, Criteria2:="<=" & V End With Windows("B表.xls").Activate Cells(7, 3) = DATA(1002, 8) '1002のところがSUBTOTAL関数が入ってます。 これでコピーをするとB表にでて来る数字が、通常のSUMで全体を出した答えが入ってくるのです；； SUBTOTALの出た数字がほしいのです・・・；； こういったことは出来るでしょうか？ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。解決しました。