エクセルの学校：全文検索：Hyper Estraier： A��...

Results of 1 - 1 of about 48864 for A��... (0.009 sec.)

[[20190805025614]]: #score: 1420; @digest: 035ca0357a2a0270cae26a0d10af4066; @id: 80393; @mdate: 2019-08-06T16:58:36Z; @size: 6565; @type: text/plain; #keywords: mycsvsht (58933), u1048576 (37194), mynewcsv (33166), operaator (15497), filter (11293), xlfiltervalues (10962), 致( (9412), 列項 (7533), autofilter (4544), ケタ (3943), 名: (3794), ル「 (3362), operator (3328), タ2 (2992), criteria1 (2884), 分一 (2807), ファ (2506), 12345 (2412), 渡辺 (2017), field (1969), csv (1946), ァイ (1940), screenupdating (1886), false (1789), イル (1694), transpose (1582), イ） (1523), application (1517), ル名 (1399), 「フ (1249), 2019 (1203), 月) (1189); 『データの抽出』（レイ）
フォルダ内にExcelファイル「ボタン」とcsvファイル「データ」があります。 Excelファイルにボタンを配置してcsvファイルにあるデータを条件を満たす行を抽出して別のcsvファイルとして出力するマクロを作成したいのですが、知識が薄いので助けてください。一応、いろいろ試してCSVファイルにマクロを作成して見ましたがSheet2に出力するまではできたと思うのですがあってるのかいまいちわかりません。 Sub Macro1() Application.ScreenUpdating=false Dim a a=Application,Transpose(Range("U2:U"&Range("U1048576"). End(xlUp).Row).Value a=Filter(a,"234".False) a=Filter(a,"567".False) a=Filter(a,"890".False) a=Filter(a,"123".False) a=Filter(a,"456".False) a=Filter(a,"987".False) With Range("A1") .AutoFilter Field:=21,Criteria1=a,Operaator:=xlFilterValues .AutoFilter Field:=34,Criteria1=12345,Operaator:=xlFilterValues .CurrentRegion.Copy sheet("Sheet2").Range("A1") .AutoFilter End With Application.ScreenUpdating=True End Sub ※aの条件は全部で10個あります。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ＞あってるのかいまいちわかりません。動かしては見たのでしょうか? 多分動かなかったと思いますが・・コンパイルエラーが出ないように修正したコードが下記ですデータの内容がわからないので、実行時の検証はできませんとりあえずこれで動かしてみては? Sub Macro1() Application.ScreenUpdating = False Dim a a = Application.Transpose(Range("U2:U" & Range("U1048576").End(xlUp).Row)).Value a = Filter(a, "234", False) a = Filter(a, "567", False) a = Filter(a, "890", False) a = Filter(a, "123", False) a = Filter(a, "456", False) a = Filter(a, "987", False) With Range("A1") .AutoFilter Field:=21, Criteria1:=a, Operator:=xlFilterValues .AutoFilter Field:=34, Criteria1:=12345, Operator:=xlFilterValues .CurrentRegion.Copy Sheets("Sheet2").Range("A1") .AutoFilter End With Application.ScreenUpdating = True End Sub （渡辺ひかる） 2019/08/05(月) 09:12 ---- 説明が不足していてすみません。同一フォルダ内にExcelファイル「ファイル名:ボタン」と csvファイル「ファイル名:データ」があります。 Excelファイル「ファイル名:ボタン」にボタンを配置して csvファイル「ファイル名:データ」にあるデータから条件を満たす行だけを抽出して別のcsvファイル「ファイル名:データ2」として出力するマクロを作成したかったのですが方法が良くわからずcsvファイル「ファイル名:データ」をエクセルで開いてマクロを試していた為、記載したマクロになってしまった次第です。 ※なので出力先もSheet2となっています。条件としましてはcsvファイルをExcelで開いたときにU2以降の行（U1は科目名）が aの条件以外のものでかつAHの行に12345が入力されている以外の行が対象で別の CSVふぁいるとして保存したいです。分かりずらくてすみません。（レイ） 2019/08/05(月) 11:47 ---- ＞csvファイル「ファイル名:データ」にあるデータからボタンをクリックする時点でcsvファイルは開かれているとして以下のコードを「ボタン」の標準モジュールに貼り付けて、ボタンにマクロを登録して実行してみてください動作確認のためにApplication.ScreenUpdatingはコメントアウトしています。データ2.csv の保存フォルダは「ボタン」と同じにしています。 Sub Macro1() 'Application.ScreenUpdating = False Dim a Dim myCsvSht As Worksheet Dim myNewCsv As Workbook Set myCsvSht = Workbooks("データ.csv").Worksheets("Sheet1") Set myNewCsv = Workbooks.Add a = Application.Transpose(myCsvSht.Range("U2:U" & myCsvSht.Range("U1048576").End(xlUp).Row)).Value a = Filter(a, "234", False) a = Filter(a, "567", False) a = Filter(a, "890", False) a = Filter(a, "123", False) a = Filter(a, "456", False) a = Filter(a, "987", False) With myCsvSht.Range("A1") .AutoFilter Field:=21, Criteria1:=a, Operator:=xlFilterValues .AutoFilter Field:=34, Criteria1:=12345, Operator:=xlFilterValues .CurrentRegion.Copy myNewCsv.Sheets("Sheet1").Range("A1") .AutoFilter End With myNewCsv.SaveAs ThisWorkbook.Path & "¥" & "データ2.csv", xlCSV myNewCsv.Close False 'Application.ScreenUpdating = True End Sub （渡辺ひかる） 2019/08/05(月) 12:18 ---- >a=Filter(a,"234".False) >a=Filter(a,"567".False) >a=Filter(a,"890".False) >a=Filter(a,"123".False) >a=Filter(a,"456".False) >a=Filter(a,"987".False) U列は全て3桁ですか? もしそうでなければ、問題ありです。元CSVから上記以外のデータで構成された新CSVを生成する。ということなら、ADO接続で出来ると思います。 U列の列項目は何でしょう? （seiya） 2019/08/05(月) 13:46 ---- 頂いた内容で試すと a = Application.Transpose(myCsvSht.Range("U2:U" & myCsvSht.Range("U1048576").End(xlUp).Row)).Value 上記の所でオブジェクトが必要ですのエラーが帰って来てしまいます。 U列は全て3桁ですか? ＞＞いえ全てが3ケタではありません。8ケタくらいまであるものもあります。（レイ） 2019/08/05(月) 13:57 ---- ＞＞いえ全てが3ケタではありません。8ケタくらいまであるものもあります。 Filter関数は部分一致(含む)で判断します。問題ありませんか? U列の列項目はわかるのですか? （seiya） 2019/08/05(月) 14:15 ---- Workbooks.Open メソッドで開いて問題ないなら AutoFilterで Sub test() Dim fn As String fn = Application.GetOpenFilename("CSVFiles,*.csv") If fn = "False" Then Exit Sub With Workbooks.Open(fn).Sheets(1) With .Cells(1).CurrentRegion .AutoFilter 21, Array("234", "567", "890", "123", "456", "987"), 7 .Offset(1).EntireRow.Delete .AutoFilter 34,"<>12345" '<---- .Offset(1).EntireRow.Delete '<--- .Parent.AutoFilterMode = False End With With .Parent .SaveAs Replace(fn, ".csv", "_New.csv"), xlCSV .Close False End With End With End Sub （seiya） 2019/08/05(月) 14:26 2行追加 : ---- Filter関数は部分一致(含む)で判断します。問題ありませんか? U列の列項目はわかるのですか? ＞＞U列の列項目は数値です。（頭が0はありません）部分一致ですと確かに問題です。（レイ） 2019/08/05(月) 14:38 ---- ＞上記の所でオブジェクトが必要ですのエラーが帰って来てしまいます。検証不足でした。下記のように変更してください a = Application.Transpose(myCsvSht.Range("U2:U" & myCsvSht.Range("U1048576").End(xlUp).Row).Value) （渡辺ひかる） 2019/08/05(月) 15:43 ---- ありがとうございます!できました。ちなみになんですがCSVファイルを閉じたまま同様の処理を行うことはできないのでしょうか。（レイ） 2019/08/07(水) 01:58 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201908/20190805025614.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ