|
▼事務員 さん:
>年月日
>20060901
>20060901
>20060902
>の場合は、
>「20060901」を入力したら、正しい結果が戻ってきます。
>「20060902」を入力したら、結果がでません。
これでもう一度試してみてください。
20060902もOKです。また20061012などもOKです。
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
With .Range("A6")
.PasteSpecial 1
.Select
End With
Sheets("SheetA").Range("A6").AutoFilter
End With
Application.CutCopyMode = False
End Sub
|
|