|
Jakaさん
ご指導いただき、ありがとうございます。
修正しました、動作を確認しましたが、特に問題ありません。
ただ一点だけ、ご指摘したとおり、変数を入力したあと、変数に対しての
規則チェックをしたいですが、
たとえ、8桁の数字しか認められていないからです。
どの用にすれば、可能になるのでしょうか?
ご指示ください、よろしくお願いします。
省略
Application.ScreenUpdating = False
Sheets("SheetA").Select
Range("A1").AutoFilter Field:=1, _
Criteria1:=InputBox(Prompt:="適当に文字や数値を入力してみてください", _
Title:="Let's Excel VBA", _
Default:="ここに入力します", _
XPos:=5800, YPos:=5400), Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("SheetB").Select
Cells.Select
ActiveSheet.Paste
Sheets("SheetA").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
Sheets("SheetB").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
|
|