2016-04-11 34 views
1
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
Txt_Prod_Loc_Date.Value = MonthView1.Value 
Unload Me 
End Sub 

Private Sub FrmCalendar_Initialize() 
Unload Me 
End Sub 

私もTxt_Prod_Loc_Date.Value = DateClickedを試しました。しかし、私は、「ランタイムエラー424を参照して、オブジェクトがuserformのテキストボックスにmonthviewをクリックした日付の取得方法は?

おかげ

+1

ようにそれを使用します私のExcelの 'MonthView'コントロール。だから私は確信が持てません。しかし、上記のコードでは、変数 'DateClicked'に指定された日付が含まれている可能性があります。あるいは、コントロールの '.Value'をチェックします。たぶん、日付はそこに 'MonthView1.Value'に保存されていますか? – Ralph

+0

私はマウスをDateClickedまたはMonthView1.Valueにデバッグモードでホバーします。カレンダーでクリックされた日付が表示されます。しかし、値は私のテキストボックスに保存されていません。 [textbox] .Value = MonthView1.Valueを実行すると教えましたが、日付はテキストボックスに保存されます。しかし、私はそれが起こっているとは思わない。 – Abhi0609

+0

ところで、私のツールボックスに月間表示はありませんでした。私はツールボックスを右クリックして、Microsoft MonthViewControlを選択するための追加コントロールを取得しました。 – Abhi0609

答えて

1

を必要とあなたは両方を使用することができます;。MonthView1.ValueまたはDateClicked問題はそのためではないに:)

ところで、なぜあなたはFrmCalendar_Initialize()Unload Meを持っていますか?それはあなたのユーザーフォーム上のコントロールTxt_Prod_Loc_Dateを見つけることができなかったので、あなたがRuntime error 424, object requiredなっている。

0123あなた Run Time Error 91. Object Variable or With block variable Not set

を与えるだろう

は、そのコントロールがワークシートである場合、その制御は他のいくつかの形態である場合は、その後、(Userform1を言う)この

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
    Sheet1.TextBox1.Value = MonthView1.Value 
End Sub 

のようにそれを使用する私が持っていないこの

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
    UserForm1.Txt_Prod_Loc_Date.Value = MonthView1.Value 
End Sub 
+0

お返事ありがとうございました。私は異なるUserフォーム上にテキストボックスを持っていました。したがって、2番目のオプションのような構文では、問題は解決されます。 – Abhi0609

関連する問題