Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44770 / 76735

←次へ　｜　前へ→


	【36977】Re:曖昧検索について

Kein - 06/4/19(水) 11:58 -


	引用なし

	パスワード

何桁であろうと簡単に変更できます。桁数が違っていたら、メッセージを出してから
再度、入力を促すようにするなら・・

Do
　 Fv = Application _
　 .InputBox("7桁の検索値を入力して下さい。ワイルドカード可", Type:=3)
　 If VarType(Fv) = 11 Then Exit Sub
　 If Len(Fv) <> 7 Then MsgBox "検索値は必ず7桁にして下さい", 48
Loop Until Len(Fv) = 7

と、します。

0 hits

▼

【36857】曖昧検索について SinjiM 06/4/16(日) 21:15