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

Results of 1 - 1 of about 14709 for VBA�� (0.003 sec.)

[[20140706093320]]: #score: 3410; @digest: db7c0ecdfd4d5d8df72b8eccd2a360c8; @id: 65561; @mdate: 2014-07-06T08:10:28Z; @size: 3343; @type: text/plain; #keywords: autofillter (14111), criterial (11789), muku (7353), mysh (4747), 忠実 (4474), 成部 (4042), yoneyama (3506), 細設 (2926), myrow (2780), （mu (2557), 分デ (2263), eurus (2109), autofilter (1896), 分野 (1758), xlcelltypevisible (1592), ー9 (1554), 日) (1370), advancedfilter (1277), 詳細 (1200), マナ (1190), 2014 (1178), field (985), criteria1 (962), 効範 (774), トフ (772), specialcells (692), ルタ (691), オー (659), excel2013 (646), フィ (579), cells (572), 間違 (553); 『オートフィルターの使い方』（muku）
こんにちは!先日からデーターの抽出について勉強していますがまだよくわかっていません http://www.eurus.dti.ne.jp/‾yoneyama/Excel/vba/vba_03.html データの入力規則を作成し、詳細設定からだとやれるのですがVBAでマクロを実施するとコンパイルエラーが出て名前付き引数が見つかりませんと表示されます Sub macro1() Dim myROW As Long Dim mySh As Worksheet Set mySh = Worksheets("Sheet1") Application.ScreenUpdating = False mySh.Range("H:L").Clear myROW = mySh.Range("A65536").End(xlUp).Row With mySh.Range(Cells(1, 1).Cells(myROW, 5)) .AutoFilter Field:=5, Criterial:=Range("F3").Value .SpecialCells(xlCellTypeVisible).Copy mySh.Range("H") .AutoFillter End With End Sub 説明通りに打ち込みましたが実行できません。多分データの入力規則の作成部分に何か間違いがあるような気がします。お教えください＜使用 Excel:Excel2013、使用 OS:windows8.1 ＞ ---- 引数名のタイプミスでしょうか? 誤）Criterial 正）Criteria1 （マナ） 2014/07/06(日) 10:10 ---- 今度は400とエラーが出ます。400とは見つかりませんという意味ですね最初のデーターの作り方に問題があるのでしょうか? よろしくお願いします（muku） 2014/07/06(日) 10:41 ---- よくみると、他にも間違いが沢山ありますね。エラーがでたとき、デバッグをクリックし黄色くなる行が間違っています。（マナ） 2014/07/06(日) 10:56 ---- VBA エラー 9 インデックスが有効範囲にありません。この意味がわかりません http://www.eurus.dti.ne.jp/‾yoneyama/Excel/vba/vba_03.html このファイルを理解するにはどこの分野を勉強すればよいのでしょうかちなみにhttp://www.eurus.dti.ne.jp/‾yoneyama/Excel/n-kis_list.htm、 http://www4.synapse.ne.jp/yone/excel2013/excel2013_advancedfilter.html#fieldは一応やりました。 .SpecialCells(xlCellTypeVisible).Copy mySh.Range("H1")に修正いたしました。（muku） 2014/07/06(日) 13:41 ---- まずは、忠実にリンク先コードを転記してみてください。まだ誤記があります。 With mySh.Range(Cells(1, 1).Cells(myROW, 5)) ↓ With mySh.Range(Cells(1, 1), Cells(myROW, 5)) .AutoFillter ↓ .AutoFilter （マナ） 2014/07/06(日) 14:30 ---- 別問題ですが、詳細設定とオートフィルタは違います。詳細設定は、macro2の方です。でも、せっかくですので、オートフィルタから理解したらよいと思います。オートフィルタ http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_autofilter.html 詳細設定（フィルタオプション） http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_advancedfilter.html （マナ） 2014/07/06(日) 15:07 ---- macro1は、すべてのRangeとCellsの前にmySh.を記述したほうがよいです。もしSheet1にボタンを配置しマクロを実行する予定ならシートを指定する必要がないので、 mySh自体使わなくても大丈夫です。理解しやすくするために、必要な部分だけ残すとこうなります。下記のコードで、わからないことがありますか? Sub test() Dim myROW As Long Range("H:L").Clear myROW = Range("A65536").End(xlUp).Row With Range(Cells(1, 1), Cells(myROW, 5)) .AutoFilter Field:=5, Criteria1:=Range("F3").Value .Copy Range("H1") .AutoFilter End With End Sub （マナ） 2014/07/06(日) 15:21 ---- ありがとうございます。忠実にファイル通りにしてみることで勉強しておりました。できました。ありがとうございます。やはりボタンの記述が間違っていました。きちんと表示できました。本当にありがとうございました。次のステップに進むことができます。感謝いたします（muku） 2014/07/06(日) 17:10 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201407/20140706093320.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ