|
▼事務員 さん:
>ただ一点だけ、ご指摘したとおり、変数を入力したあと、変数に対しての
>規則チェックをしたいですが、
>たとえ、8桁の数字しか認められていないからです。
>どの用にすれば、可能になるのでしょうか?
>ご指示ください、よろしくお願いします。
一番はじめの質問では、
>半角数字の桁数は6桁かどうか、半角6桁数字であれば、次へそうでない場合は、再度入力。
と、なってましたが、どちらが正しいのでしょう?
こういうことでしょうか?
InputBoxの返り値を変数retで受けて判断しています。
Sub test()
Dim ret
Application.ScreenUpdating = True
Do
ret = Application.InputBox(Prompt:="適当に文字や数値を入力してみてください", _
Title:="Let's Excel VBA", Default:="ここに入力します", Type:=1)
Loop Until Len(ret) = 8 'ここに桁数を指定してください
Sheets("SheetB").Cells.ClearContents
With Sheets("SheetA")
.Range("A1").AutoFilter Field:=1, Criteria1:=ret, Operator:=xlAnd
If .Range("A:A").SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then
MsgBox "該当する数字はありません"
.Range("A1").AutoFilter
Exit Sub
Else
.AutoFilter.Range.Copy Sheets("SheetB").Range("A1")
End If
.Range("A1").AutoFilter
End With
Application.ScreenUpdating = True
End Sub
|
|