
VBAの日付チェックでオーバーフローを回避したい。
ExcelのG列のセルに入力されたものが日付型であるかどうかのチェックかけたいと思います。
以下のコードだと、数字2958466以上の入力でオーバーフローが発生します。
これを回避する方法はありますか?
セルを日付型に設定しているため、2958465(2999/12/31)までしか判別できないのでしょうが、
利用者が2958466以上を入力してしまう可能性はあります。
オーバーフローではなく、エラーメッセージが出せたら・・・と思います。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Application.EnableEvents = False
If Target <> "" And Not IsDate(Target) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End If
End Sub
こんなコードも試しましたが、結果は同じでした。
↓
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Application.EnableEvents = False
If Target > 2958466 Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
Else
If Target <> "" And Not IsDate(Target) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target = ""
Target.Select
End If
End If
Application.EnableEvents = True
End If
End Sub
On Error Resume Next や
On Error GoTo ... での対処も考えましたが、同じ結果でした。
何か良い方法がありましたら、お願いいたします。
No.5ベストアンサー
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
On Error GoTo line
If Target <> "" And (Not IsDate(Target)) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31, 9999/12/31まで)", vbCritical, "入力エラー"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Exit Sub
line:
MsgBox "入力ミスでは?" & vbCrLf & "9999/12/31を超えてます!", vbCritical, "入力エラー"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
では?
ありがとうございました。
この方法でやってみたら、うまくできました。
On Error GoTo も、ちゃんと動いてくれました。
No.6
- 回答日時:
>セルを日付型に設定しているため、2958465(2999/12/31)
本当は、ここが問題です。日付型は、マクロですればよいのです。それを予め設定しているので、エラーが発生します。一応、以下は便宜的な措置を施しました。
本来は、ご質問の2番目のイベントで十分で、必要なら、全てのチェックが通った後に、書式をその都度設定すれば良いわけです。それと、Target.ClearContents の代わりに、Target.Clear で書式設定も消してしまうわけです。そうすれば、オーバーフローのエラーは発生しません。ただし、必ず、Text プロパティで判定しないといけません。
'//書式を残したままの処理
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dum As Variant
If Target.Column <> 8 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
'エラー処理
dum = Target.Value
If dum = "" Then
Target.ClearContents
Application.EnableEvents = True
Exit Sub
End If
On Error GoTo 0
Application.EnableEvents = False
If Not IsDate(Target.Text) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
Target.ClearContents
ElseIf Abs((Year(Date)) - Year(CDate(Target.Text))) > 100 Then
MsgBox "正しい年月日を入力してください。" & vbCrLf & _
Year(CDate(Target.Text)) & "年", vbCritical, "入力エラー"
Target.ClearContents
End If
Application.EnableEvents = True
End Sub
No.4
- 回答日時:
No1です。
IsDate使ってましたね<m(__)m>
指定したセルに入力制限をかけては如何ですが?
範囲外の値が入力された場合のメッセージも指定できます。
参考URL
http://hp.vector.co.jp/authors/VA014071/tips/val …
No.3
- 回答日時:
If Target <> "" And Not IsDate(Target) Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31)", vbCritical, "入力エラー"
のところ,下記ではだめですか。
If Target <> "" And (Not IsDate(Target)) Or Target > 2958465 Then
MsgBox "日付型で入力してください。" & vbCrLf & "(例:2010/10/31, 9999/12/31まで)", vbCritical, "入力エラー"
No.1
- 回答日時:
回答ありがとうございます。
IsDateで日付のチェックは行っています。
しかし、入力確定後のチェックなので、
オーバーフローが出てしまうのです。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA/エクセルの日付入力でYYYYMMDD
Excel(エクセル)
-
VBAのオーバーフローについて質問です。 画像の通り、日付(シリアル値)と時間(hhmmss)を組み
Visual Basic(VBA)
-
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
7
オーバーフローが発生します
Microsoft ASP
-
8
入力日付がカレンダーにある日付かどうかチェックする関数はないんでしょうか?
Excel(エクセル)
-
9
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
10
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
11
エクセルVBAでEdate関数は使えますか?
Excel(エクセル)
-
12
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
13
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
14
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
15
エクセルVBAのエディターが上書きモード?に・・・・。
Excel(エクセル)
-
16
VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
Visual Basic(VBA)
-
17
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
18
VBAでEmpty値って何ですか?
Excel(エクセル)
-
19
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
20
Acsess アクセス のクエリでオーバーフローしてしまいます。
Access(アクセス)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのリストについて
-
ドロップダウンリスト 自動表...
-
【エクセルでシフト作成】週休2...
-
ドロップダウンリストを2列で...
-
Excelについて
-
ACCESSでインクリメンタルサーチ
-
Googleドキュメントで数式を書...
-
autocadLTで添え字文字
-
エクセルで入力規則(リスト)...
-
アクセス2000 クエリ抽出でBet...
-
GIMPで韓国語
-
小数点以下の入力規則
-
PCのキーボドで「ヲ」と言う...
-
JISかな入力で「~」「全角()...
-
囲い文字の単語登録
-
ワード 変換前の文字の表示位...
-
文字の「レ点」を出すには
-
ファイル名が勝手に変わるんで...
-
ファンクションキー F7
-
エクセルVBAのエディターが上書...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのリストについて
-
ドロップダウンリスト 自動表...
-
Excelについて
-
autocad 数値が表示されなくな...
-
VBAの日付チェックでオーバーフ...
-
エクセルで半角カナや特殊文字...
-
excelのInputBoxで日本語入力OF...
-
エクセル 日付超過でポップアッ...
-
ドロップダウンリストを2列で...
-
Excelで日報を自動で作成したい...
-
マクロ 入力規則は残し文字の...
-
【スプレッドシート】時間入力...
-
autocadLTで添え字文字
-
アクセス2000 クエリ抽出でBet...
-
エクセルで入力規則(リスト)...
-
エクセルVB ポップアップウィ...
-
pdfの文字入力で一文字ずつしか...
-
エクセル COUNTIF関数 検索条...
-
求人情報で「SAP入力可能な方」...
-
「IMEが無効です」「丸にx」と...
おすすめ情報