جمع مقادیر دو تکست باکس

[mojtabaaaa]

سلام چگونه می توان در یک فرم حاصل جمع دو تکست باکس را در تکست باکس سوم داشت؟

[iranweld]

سلام چگونه می توان در یک فرم حاصل جمع دو تکست باکس را در تکست باکس سوم داشت؟

با سلام

پس از دانلود پسوند فایل را به xlsm تغییر دهید یا هنگام اجرا با yes پاسخ دهید

Private Sub TextBox2_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
Cells(1, 1).Value = TextBox1.Value
Cells(1, 2).Value = TextBox2.Value
Cells(1, 3).Value = TextBox3.Value
End Sub

[Ali Parsaei]

سلام،
يک کد را براي رويداد CHANE دو تکست باکس اول و دوم بايد بنويسيد:


Private Sub TextBox1_Change()
TextBox3.Value = (Val(TextBox1.Value) + Val(TextBox2.Value))
End Sub


Private Sub TextBox2_Change()
TextBox3.Value = (Val(TextBox1.Value) + Val(TextBox2.Value))
End Sub

يا اگر مي خواهيد با کليک يک کامند باتن جمع صورت گيرد يا .... همين کد فوق را در محل مقتضي استفاده کنيد

[Javid Mokhtari]

با سلام

پس از دانلود پسوند فایل را به xlsm تغییر دهید یا هنگام اجرا با yes پاسخ دهید

Private Sub TextBox2_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
Cells(1, 1).Value = TextBox1.Value
Cells(1, 2).Value = TextBox2.Value
Cells(1, 3).Value = TextBox3.Value
End Sub
با سلام.
آقای iranweld بابت پاسخگویی شما بینهایت سپاسگذاریم.اما حدالمقدور ساده ترین کد را به کاربر تازه کار پیشنهاد بدین تا ضمن اینکه بتونه کدهارو تحلیل کنه روند آموزشی سریعی رو طی کنه.

[mojtabaaaa]

7235 جواب صحیح یک میلیون و پانصد می شود ولی فرمول صحیح حساب نکرد چون دو مقدار عددی بصورت سه رقم سه رقم جدا شده اند لطفا دوباره بررسی فرمایید

[generalsamad]

با سلام
هر دو کدی که دوستان قرار دادند جواب درست میده
لطفا فایلتون رو ضمیمه کنید تا بررسی شه

[mojtabaaaa]

فایل و چطور بفرستم؟

[generalsamad]

طبق عکس
از روش شماره 1
یا روش شماره 2و سپس 3

7238

[Ali Parsaei]

اين را امتحان کنيد:


If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
TextBox3.Value = CSng(TextBox1.Value) + CSng(TextBox2.Value)
End If

[Ali Parsaei]

يا اين يکي:


TextBox1.Value = Format(TextBox1.Value, "#,##0")
TextBox2.Value = Format(TextBox2.Value, "#,##0")
TextBox3.Value = Format(TextBox3.Value, "#,##0")
TextBox3.Value = (Val(TextBox1.Value) + Val(TextBox2.Value))

[iranweld]

7235 جواب صحیح یک میلیون و پانصد می شود ولی فرمول صحیح حساب نکرد چون دو مقدار عددی بصورت سه رقم سه رقم جدا شده اند لطفا دوباره بررسی فرمایید
با سلام
فایلی که برای شما ارسال کردم جواب درست میدهد
7267

[mojtabaaaa]

دوست گرامی سلام
قطعا پاسخ قبلی شما درست بود ولی
لطفا کد ریر رو ملاحظه بفرمایید
'مبلغ الف
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.Text = Format(TextBox1.Text, "#,##")
If IsNumeric(TextBox1.Text) = False Then TextBox1.Text = Empty
Call sum_mablagh
End Sub
'مبلغ ب
Private Sub TextBox2_Change()
On Error Resume Next
TextBox2.Text = Format(TextBox2.Text, "#,##")
If IsNumeric(TextBox2.Text) = False Then TextBox2.Text = Empty
Call sum_mablagh
End Sub
'مبلغ نهایی
Private Sub sum_mablagh()
On Error Resume Next
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟
Call mablagh_abh
End Sub
لطفا کد فوق را طبق شروط زیر ویرایش نمایید....
ما در تکست باکس 3 مقدار جمع و یا به عبارت دیگر مقدار کل دو تکست باکس الف و ب رو می خواهیم
بطوری که اگر در دو تکست باکس مقدار عددی وارد شد به طور خودکار مبلغ کل را در تکست باکس 3 داشته باشیم .
اگر کاربر ما در یکی ار دو تکست باکسهای الف و یا ب مقدار عددی ، حتی صفر رو هم وارد نکرد بازهم مقدار کل را داشته باشیم
ضمنا عدد کل نیز برای راحتی به صورت سه رقم سه رقم از سمت راست همانند تکس باکسهای الف و ب توسط سمی کالون جدا شوند.
امیدوارم منظورمو رسونده باشم
با تشکر از لطف شما....