|
ToShiYoさん
正しく動くことを確認できました。
もし抽出条件入力のところで、8桁数字でない場合は、「入力直してください」という
メッセージをだすには、どのように書けば、可能になるでしょうか?
>Sub Auti_Fil_Copy()
>
>Sheets("SheetA").Activate
> Range("A1").AutoFilter Field:=1, _
> Criteria1:=InputBox(Prompt:="適当に文字や数値を入力してみてください", _
> Title:="Let's Excel VBA", _
> Default:="ここに入力します", _
> XPos:=5800, YPos:=5400)
> With Sheets("SheetB")
> .Activate
> .Cells.Clear
> Sheets("SheetA").Range("A6").CurrentRegion.Copy
↑A1変更
> With .Range("A6")
↑A1変更
> .PasteSpecial 1
> .Select
> End With
> Sheets("SheetA").Range("A6").AutoFilter
↑A1変更
> End With
> Application.CutCopyMode = False
>
>End Sub
|
|