|
ただいま契約書の台帳を作成しております。
そこでユーザーフォームにテキスト等で入力してもらい、
登録ボタンを押すとシートに反映するようにしております。
しかし、日付の"Format,(Date, "yy/mm/dd")"の所で
プロジェクトまたはライブラリが見あたらないと言われます。
何故ですか?
Private Sub UserForm_Initialize()
'フォームが最初に表示された時の初期設定の状態を設定
テキスト契約番号 = ""
テキスト契約先名 = ""
テキスト担当者名 = ""
テキスト作成者名 = ""
テキスト採番日.Text = Format(Date, "yy/mm/dd")
テキスト契約先名.SetFocus
End Sub
あともう1つ。
テキスト採番日のところに決してありえない日付を入れても、
その通り反映されてしまいます。
テキストだから仕方ありませんが、
これに対して日付ではない場合反映させない等の何かありませんか?
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
|
|