Excel VBA質問箱 IV

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

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


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

27430 / 76738

←次へ　｜　前へ→


	【54627】日付でエラーを返す方法

小次郎 - 08/3/24(月) 23:48 -


	引用なし

	パスワード

ただいま契約書の台帳を作成しております。
そこでユーザーフォームにテキスト等で入力してもらい、
登録ボタンを押すとシートに反映するようにしております。
しかし、日付の"Format,(Date, "yy/mm/dd")"の所で
プロジェクトまたはライブラリが見あたらないと言われます。
何故ですか？

Private Sub UserForm_Initialize()

　　　'フォームが最初に表示された時の初期設定の状態を設定
　　　テキスト契約番号 = ""
　　　テキスト契約先名 = ""
　　　テキスト担当者名 = ""
　　　テキスト作成者名 = ""
　　　テキスト採番日.Text = Format(Date, "yy/mm/dd")
　　　テキスト契約先名.SetFocus
　　　
End Sub

あともう１つ。
テキスト採番日のところに決してありえない日付を入れても、
その通り反映されてしまいます。
テキストだから仕方ありませんが、
これに対して日付ではない場合反映させない等の何かありませんか？

Private Sub コマンド登録_Click()
　'A列の最終行をチェックし、そこにDを入力します。
　　Range("a65536").End(xlUp).Offset(1).Select
　　Selection = "D"
　
　'B列（番号）の最終行をチェックし、そこに通し番号を入力します。
　　Range("b65536").End(xlUp).Offset(1).Select
　　Selection = 108000# + Selection.Row - 2

　'C列（契約先名）にテキストボックスの契約先名を入力します。
　　Selection.Offset(, 1) = テキスト契約先名
　　
　'D列（採番日）にテキストボックスの採番日を入力します。
　　Selection.Offset(, 2) = Format(テキスト採番日, "mm/dd/yy")

　'E列（担当者名）にテキストボックスの担当者名を入力します。
　　Selection.Offset(, 3) = テキスト担当者名

　'F列（作成者名）にテキストボックスの作成者名を入力します。
　　Selection.Offset(, 4) = テキスト作成者名

　'G列（備考）にテキストボックスの備考を入力します。
　　Selection.Offset(, 5) = テキスト備考
　　
　'入力したコントロールの値を初期化します。（元に戻します。）
　　テキスト契約先名 = ""
　　テキスト担当者名 = ""
　　テキスト作成者名 = ""
　　テキスト備考 = ""
　　テキスト採番日.Value = Format(Date, "yy/mm/dd")
　　テキスト契約先名.SetFocus

End Sub

0 hits

▼

【54627】日付でエラーを返す方法 小次郎 08/3/24(月) 23:48

≪