جمع عدة تكستات

[ابو حمادة]

السلام عليكم ورحمة الله وبركاته

الاخوة الافاضل اساتذتي الكرام

محتاج من خبراء الاكسل مساعه في الاتى

مرفق ملف  كود جمع.rar

[TOLBA14]

0

[ابو حمادة]

دا معناه ايه دا تريقه ولا ايه ؟؟

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اكتب هذا الكود فى حدث الزر "جمع"

Private Sub CommandButton1_Click()
Dim i As Long, p As Long
p = 0
For i = 28 To 59
If Me.Controls("TextBox" & i).Value = "" Then Exit Sub
p = p + Val(Me.Controls("TextBox" & i).Value)
    Me.TextBox60.Value = p
 Next
Exit Sub
End Sub

 

[ابو حمادة]

21 دقائق مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اكتب هذا الكود فى حدث الزر "جمع"

Private Sub CommandButton1_Click()
Dim i As Long, p As Long
p = 0
For i = 28 To 59
If Me.Controls("TextBox" & i).Value = "" Then Exit Sub
p = p + Val(Me.Controls("TextBox" & i).Value)
    Me.TextBox60.Value = p
 Next
Exit Sub
End Sub

 

الف الف شكر استاذي الفاضل

مجهود رائع تسلم ايدك

لي استفسار بعد اذنك

هل من الممكن لو فيه حساب ضرب  لمجموعه تكستات مثلا من التكست 30الى تكست 40 يتم ضربهم في قيمة التكستات من تكست 41 الي تكست 51 

القيمه الثابته 

تكست 1 يضرب في تكست  30 في تكست 41 وهكذا الى اخر التكستات

تكست 1 قيمه ثابته كما في الصورة

تم تعديل يوليو 10, 2017 بواسطه ابو حمادة

[ابراهيم الحداد]

السلام عليكم ورحمة الله

تفضل اخى الكريم

Private Sub CommandButton1_Click()
Dim i As Long, p As Long
For i = 30 To 40
If Me.Controls("TextBox" & i).Value = "" Then Exit Sub
p = Val(Me.Controls("TextBox" & i).Value) * Val(Me.TextBox1.Value)
    Me.Controls("TextBox" & i + 11).Value = p
 Next
Exit Sub
End Sub

 

[ابو حمادة]

في ١١‏/٧‏/٢٠١٧ at 01:34, زيزو العجوز said:

السلام عليكم ورحمة الله

تفضل اخى الكريم

Private Sub CommandButton1_Click()
Dim i As Long, p As Long
For i = 30 To 40
If Me.Controls("TextBox" & i).Value = "" Then Exit Sub
p = Val(Me.Controls("TextBox" & i).Value) * Val(Me.TextBox1.Value)
    Me.Controls("TextBox" & i + 11).Value = p
 Next
Exit Sub
End Sub

 

شكرا استاذي الغالي علي مجهودك

لو ممكن شرح الكود دا   عايز اعرف ازى احدد ليه التكستات الموجود بها النسب المئويه

وجزاك الله    خيرا