|
▼事務員 さん:
> 修正しました、動作を確認しましたが、特に問題ありません。
>ただ一点だけ、ご指摘したとおり、変数を入力したあと、変数に対しての
>規則チェックをしたいですが、
>たとえ、8桁の数字しか認められていないからです。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
↑の意味がちょっと分からないのですが?・・・
私なりに、一度コードを書いてみました。一度試してください。
シート名=A,Bは半角英数で処理していますので、貴殿のシート名に合わせて
動かしてください。(エラー処理はしていません。)
Sub Auto_Fil_Copy ()
Sheets("SheetA").Activate
Range("A1").AutoFilter Field:=1, _
Criteria1:=InputBox(Prompt:="適当に文字や数値を入力してみてください", _
Title:="Let's Excel VBA", _
Default:="ここに入力します", _
XPos:=5800, YPos:=5400), Operator:=xlAnd
With Sheets("SheetB")
.Activate
.Cells.Clear
Sheets("SheetA").Range("A1").CurrentRegion.Copy
With .Range("A1")
.PasteSpecial 1
.Select
End With
End With
Application.CutCopyMode = False
End Sub
|
|