پرسش قراردادن تاریخ در تکست باکس شیت

[heidar76]

سلام دوستان عزیز و اساتید محترم.
یه شیت دارم که دو تا تکست باکس درش قرار دادم برای تاریخ و دو تا کمند باتن برای نشون دادن تقویم. وقتی که تاریخ رو از تقویم انتخاب میکنم، تاریخ در هر دو تکست باکس قرار میگیره. وقتی در تکست باکس بعدی تاریخ رو انتخاب میکنم باز همین مشکل ایجاد میشه.
سوال دوم اینه که ایا میتونید کدی بنویسید که وقتی یوزر فرم ثبت هزینه باز میشه به طور دیفالت تاریخ روز در تکست باکس قرار بگیره.
از پاسخگویی شما نهایت تشکر دارم و از اینکه وقت میزارید بسیار قدردانم.
شاد و پیروز باشید

[میثم مقدم نیا]

سوال دوم اینه که ایا میتونید کدی بنویسید که وقتی یوزر فرم ثبت هزینه باز میشه به طور دیفالت تاریخ روز در تکست باکس قرار بگیره.
از پاسخگویی شما نهایت تشکر دارم و از اینکه وقت میزارید بسیار قدردانم.
شاد و پیروز باشید

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

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox1.Value = VBA.Format(TextBox1.Value, "[$-fa-IR,16]yyyy/mm/dd;@")

End Sub 

کد زیر را جایگزین کنید

Private Sub UserForm_Initialize()
TextBox1 = J_TODAY(1)

End Sub 

نکته

شما باید افزونه تاریخ شمسی را به فایل خودتون باید اضافه کنید.

[heidar76]

ممنون از پاسخگویی شما. ولی من دو شیت هزینه و درامد دارم که دقیقا مثل هم طراحی شدند وقتی تاریخ رو در یکی از این تکست باکسها عوض میکنم بار بعد که یوزر فرم شیت دیگه رو باز میکنم، تکست باکس تاریخی رو که قبلا در اون یوزرفغرم تغییر دادم بهم نشون میده و نه تاریخ روز.
اگه راهنمایی بفرمایید متشکر میشم.