محاسبه لحظه ای ضرب دو تا text box در userform

[amin.t]

سلام بر همه دوستان
آیا امکان دارد در یک تکست باکس حاصل ضرب لحظه ای دو تکست باک در یک یوزر فرم را داشته باشیم ؟
چطور ؟
22222.xlsm

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

[~M*E*H*D*I~]

این تایپیک رو ببین حل نشد جواب میدم بعدا

سوال در ورد data validation در textbox

[amin.t]

این تایپیک رو ببین حل نشد جواب میدم بعدا

سوال در ورد data validation در textbox

ایول مشکل حل شد .
استاد وطن پرست یه دنیا ممنون

[amin.t]

این تایپیک رو ببین حل نشد جواب میدم بعدا

سوال در ورد data validation در textbox

استاد با چه شرطی من برای t1, t3 , t2 تعریف کنم که هر کدوم از دوتای دیگه پر شد حاصل سومی بدست باید

[~M*E*H*D*I~]

استاد با چه شرطی من برای t1, t3 , t2 تعریف کنم که هر کدوم از دوتای دیگه پر شد حاصل سومی بدست باید

اگر t1 اولین تکست باکس باشه که پر میشه براش کدی نباید در نظر گرفت t2 به محض اینکه ازش خارج بشیم باید مقدارش با t1 جمع بشه و در t3 قرار بگیره یعنی باید برای t2 از event exit که تو لینک بهش اشاره کردم استفاده بشه

[amin.t]

اگر t1 اولین تکست باکس باشه که پر میشه براش کدی نباید در نظر گرفت t2 به محض اینکه ازش خارج بشیم باید مقدارش با t1 جمع بشه و در t3 قرار بگیره یعنی باید برای t2 از event exit که تو لینک بهش اشاره کردم استفاده بشه

استاد
سلام
من برای t2 کد زیرو وارد می کنم ولی بعد از ران یوزرفرم ایراد می گیره "

Private Sub T2_exit()
Val(T3.Text) = T1.Text.Value * T2.Text.Value
End Sub

فکر کنم باید جلوی پرانتز exit چیزی وارد کنم
میشه راهنمایی کنید.

[امين اسماعيلي]

با درود

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = TextBox2.Value * TextBox1.Value
End Sub

این جواب داد - من نمیدونم چرا خودن ایونتو نوشتی - کافی که مثلا رو تکس باکست دبل کلیک کنی و بعدش بین خطوط قرار بگیری و از منو کشوی بالا سمت راست ایونت exit رو انتخاب کن- خود به خود کد ایونت میاد حالا کد ها رو بینش بنویس- اون ایونت اظافی رو هم پاک کن در ضمن اگر تو ایونت Change هم بنویسی شاید بهتر باشه البته بسته به کار داره

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Value = ""
TextBox3.Value = TextBox2.Value * TextBox1.Value
End Sub

بعدش چرا نوشتی textbox.text.value؟

[amin.t]

با درود

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = TextBox2.Value * TextBox1.Value
End Sub

این جواب داد - من نمیدونم چرا خودن ایونتو نوشتی - کافی که مثلا رو تکس باکست دبل کلیک کنی و بعدش بین خطوط قرار بگیری و از منو کشوی بالا سمت راست ایونت exit رو انتخاب کن- خود به خود کد ایونت میاد حالا کد ها رو بینش بنویس- اون ایونت اظافی رو هم پاک کن در ضمن اگر تو ایونت Change هم بنویسی شاید بهتر باشه البته بسته به کار داره

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Value = ""
TextBox3.Value = TextBox2.Value * TextBox1.Value
End Sub

بعدش چرا نوشتی textbox.text.value؟

سلام
امین جان یه دنیا ممنون
فایلم با کد اولتون درست شد
t2.text.value روهمینطوری وارد کرذم