エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20080514101849]]: #score: 4241; @digest: 272b43a98ad3599a74a98752414fde0b; @id: 37835; @mdate: 2008-05-17T14:02:21Z; @size: 909; @type: text/plain; #keywords: バウ (2440), アバ (2405), 表紙 (1402), トフ (965), criteria1 (961), オー (824), autofilter (758), ルタ (691), フィ (579), ィル (551), 作動 (515), field (492), 。オ (488), cutcopymode (478), 明確 (475), columns (368), 状態 (355), 黄色 (345), ート (307), た状 (255), with (243), ウト (179), シー (144), コー (135), ピー (134), worksheets (133), コピ (130), 貼り (120), タの (118), application (116), ーし (110), のシ (110); 『オートフィルタ』（れいまま）
こんにちは。 オートフィルタをかけた状態をコピーして別のシートに貼り付けるコードを考えています。 オートフィルタのシートを開いた状態にしないと作動しないものなのでしょうか? 表紙のシートを見ている状態で (Sheet1)をオートフィルタにかけコピーして(sheet2)へ貼り付けようとしています。が、オートフィルタのコードで黄色くなってしましました。 Sub Macro1() With Worksheets("1") With .Columns("A:O") .AutoFilter Field:=10, Criteria1:="3" .AutoFilter Field:=11, Criteria1:="2" .Copy End With End With With Sheets("2").Paste Application.CutCopyMode = False End With End Sub ---- >With .Columns("A:O") ここをアバウトにしないで Range("A3") とか明確に指定すれば良いと思います。 BJ ---- BJさんありがとうございます。やってみますね。(れいまま） ---- 出来ました。ありがとうございます。（れいまま） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200805/20080514101849.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ