[حل شده] تقویم بازشونده

[reza_gh_tak]

با سلام چطور میشه کاری کنیم که یه ایکون روی یک سلول قرار بدیم و پس ار کلیک و انتخاب تاریخ، تاریخ داخل سلول بیفته ممنون نه داخل فرم و باکس
در واقع میخوام مستقیماً و بدون فرم باشه

[mokaram]

دوست عزیز شما فرمودید که فرم نمایش داده نشه اما یه سوال کاربر ازکجا تاریخ را انتخاب کنه؟

[reza_gh_tak]

دوست عزیز شما فرمودید که فرم نمایش داده نشه اما یه سوال کاربر ازکجا تاریخ را انتخاب کنه؟

منظورم جایی که آیکون تقویم توش قرار داره میخوام آیکون تو کنار سلول باشه با کیک روی اون تقویم بازشه و تازیخ نیز داخل سلول بیفته

[M_ExceL]

با سلام چطور میشه کاری کنیم که یه ایکون روی یک سلول قرار بدیم و پس ار کلیک و انتخاب تاریخ، تاریخ داخل سلول بیفته ممنون نه داخل فرم و باکس
در واقع میخوام مستقیماً و بدون فرم باشه

سلام،
با کمی دستکاری سابروتین sabtTarikh درست میشه.

Public Sub sabtTarikh()
Dim n
If ActiveControl.Caption <> Empty Then
Label54.Caption = ComboBox2.Text & "/" & Format(ComboBox1.Text, "00") & "/" & Format(ActiveControl.Caption, "00")
Label55.Caption = TbH(Label54.Caption, 2)
Label60.Caption = J_GREGORIANDATE(Label54.Caption, 1)
ActiveCell = Label54.Caption
Unload Me
End If

نکته : ابتدا سول مورد نظر رو انتخاب کنید، سپس فرم رو اجرا کرده و تاریخ رو انتخاب کنید.

[reza_gh_tak]

خدا خیرتون بده فقط یک سوال دیگه ممنون می شم جواب بدید اگر فقط بخوایم تو یک سلول خاص مثلاً فقط داخل h14 تقویم درج بشه باید چیکار کرد بازهم ممنون از حوصلتون

[M_ExceL]

خدا خیرتون بده فقط یک سوال دیگه ممنون می شم جواب بدید اگر فقط بخوایم تو یک سلول خاص مثلاً فقط داخل h14 تقویم درج بشه باید چیکار کرد بازهم ممنون از حوصلتون

خواهش میکنم، به این صورت اصلاح کنید :

Range("h14") = Label54.Caption

[Amir Ghasemiyan]

خدا خیرتون بده فقط یک سوال دیگه ممنون می شم جواب بدید اگر فقط بخوایم تو یک سلول خاص مثلاً فقط داخل h14 تقویم درج بشه باید چیکار کرد بازهم ممنون از حوصلتون

دوست عزیز لطفا اگر پاسخ سوالتون رو دریافت کردین تاپیک رو حل شده کنید