前提・実現したいこと
VBAにて指定したフォーマット以外入力のを禁止したいです。
下記のコード書きましたが。
上手く動作しませんどうすれば希望通り動くようになるでしょうか?
ご教授お願い致します。
環境 Excel2010
Windows10
###希望しているフォーマット
00:00:00(時:分:秒) 数字と[:]のみを半角のみ許可したいです
###現状起きている問題
00:0001のように打ち間違いを入力した際や
00:00:90等時刻としてあり得ない数値を入力した際
00:00:00002334 と言ったようなハッシュ値?として処理されてしまい
思うように動作していません。
該当のソースコード
VBA
1If CheckFormat(Format(Range("A1").Value,"Long Time")) Fale Then 2MsBox("フォーマットが違います") 3End If 4 5Public Function CheckFormat(mozi As String) As Blooean 6 7 8If mozi = "" Then 9CheckFormat = False 10Exit Function 11End If 12 13If IsDate(mozi) = True Then 14CheckFormat = True 15Else 16CheckFormat = False 17 18End If 19 20End Function 21 22 23 24 25 26 27 28
試したこと
セルの書式設定に00:00:00,00:00:00@,ユーザー定義で書式を設定しても同様の結果となりました。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/12/24 12:36