نمایش تاریخ به صورت خودکار در فرم

[ehsanshahbeig]

سلام من با توجه به عکسی به فرستادم. میخوام موقعی که این فرم باز میشه. اون قسمت اول به صورت خودکار تاریخ همون روز رو درج کنه و در صورت نیاز بتونیم اونو تغییر هم بدیم

کدی که من برای این قسمت نوشتم به صورت زیر هست:

Private Sub CommandButton1_Click()

Dim num As Integer
Sheets("B-Tamin-1-2").Activate
num = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Cells(num, 1) = TextBox1.Value
Cells(num, 2) = TextBox2.Value
Cells(num, 3) = TextBox2.Value
Cells(num, 4) = TextBox2.Value
Cells(num, 5) = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox1.SetFocus

End Sub


حالا من باید چه کدی رو اضافه کنم که این قابلیت داخلش اجرا بشه؟


سوال دومم هم این هست که من در قسمت آخر یعنی قیمت کل میخوام که تعداد در فی ضرب بشه و به صورت خودکار در همون فرم نشون داده بشه و در شیت هم موقع ثبت اطلاعات ثبت بشه.

دوستان اگر کمک کنن خیلی ممنون میشم.

[mokaram]

1- از ماژولهای شمسی استفاده کنید ( داخل انجمن سرچ کنید ) و کد زیر را برای درج خودکار تاریخ بنویسید ( در ایونت Initialize )

Private Sub UserForm_Initialize()
TextBox1.Text = J_TODAY(1)
End Sub 

2- به فرض اینکه قیمت textbox 2 و تعداد textbox3 باشه و قیمت کل textbox4 باشه کد زیر را مرقوم بفرمایید

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Text = Val(TextBox2.Value) * Val(TextBox3.Value)
End Sub 

[ehsanshahbeig]

1- از ماژولهای شمسی استفاده کنید ( داخل انجمن سرچ کنید ) و کد زیر را برای درج خودکار تاریخ بنویسید ( در ایونت Initialize )

Private Sub UserForm_Initialize()
TextBox1.Text = J_TODAY(1)
End Sub 

2- به فرض اینکه قیمت textbox 2 و تعداد textbox3 باشه و قیمت کل textbox4 باشه کد زیر را مرقوم بفرمایید

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Text = Val(TextBox2.Value) * Val(TextBox3.Value)
End Sub 

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

[mokaram]

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

به فرض اینکه فرم شما اسمش Userform1 باشه، کافیه روی Shape مورد نظر راست کلیک کرده و گزینه Assign Macro را انتخاب کنید پنجره ای شبیه به تصویر زیر نمایان میشه که با کلیک بر روی گزینه New وارد محیط ویژوال بیسیک میشید .

کافیه تکه کد زیر را بنویسید

UserForm1.Show