2saad قام بنشر أكتوبر 13, 2023 مشاركة قام بنشر أكتوبر 13, 2023 غخواني اعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته لدي ملف به فورم الفورم به بوتن اوبشن باسم ( محمد - احمد - عمر ) عايز لما اضغط علي اي بوتن اوبشن ( محمد او احمد او عمر ) يوجد بالفورم ( تكست بوكس رقم 50 ) عندما اكتب به رقم من العمود الملون باللون الأصفر واضغط علي زر ( استعلام عن مجموع ) يعطيني مجموع الخلايا التي بها هذا الرقم ويعطيني مجموع الخلايا التي بها ارقام في ( التكست بوكس رقم 51 ) مني 2.xlsm ولكم جزيل الشكر ووافر الاحترام رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 13, 2023 مشاركة قام بنشر أكتوبر 13, 2023 العمود باللون الاصفر به قيم نصية ماهي الارقام المطلوب جمع قيمتها رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أكتوبر 13, 2023 الكاتب مشاركة قام بنشر أكتوبر 13, 2023 شكرا لرد حضرتك يا استاذ محمد وانا اسف فعلا العمود به نصوص وليست ارقام وانا ارفقت ملف به في العمود ارقام ونصوص هل ينفع يعد النصوص مثلا كلمة ( الزهور ) وكمان ارقام مثل ( 1 أو 2 ) مني 2.xlsm رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 13, 2023 مشاركة قام بنشر أكتوبر 13, 2023 Private Sub CommandButton14_Click() Dim ColNum As Long, MyValue As String, Col As Range MyValue = Me.TextBox50 ColNum = 15 If Me.TextBox50 = "" Then: Exit Sub Set Col = ActiveSheet.Columns(ColNum).Find(what:=MyValue, LookIn:=xlValues, lookat:=xlWhole) If Not Col Is Nothing Then Me.TextBox51 = WorksheetFunction.CountIf(Columns(ColNum), MyValue) Else MsgBox "غير موجود" Me.TextBox50 = Empty End If End Sub مني 2 (2).xlsm 1 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أكتوبر 13, 2023 الكاتب مشاركة قام بنشر أكتوبر 13, 2023 شكرا جزيلا وبارك الله فيك وجعله في ميزان حسناتك معلش لي سؤال لو انا حبيت اعمل تكست بوكس آخر في الفورم بحيث اول ما اضغط علي الاوبشن بوتن يظهر لي مجموع الخلايا التي بها ارقام ونصوص ازود ايه علي الكود السابق معلش انا بتعبك معاي رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 13, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 13, 2023 Me.TextBox52.Value = Evaluate("SUM(0+(O10:O" & Cells(Rows.Count, "O").End(xlUp).row & "<>""""))") مني 3.xlsm 2 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر أكتوبر 13, 2023 الكاتب مشاركة قام بنشر أكتوبر 13, 2023 شكرا جزيلا وبارك الله فيك وفي أمثالك وكل اعضاء المنتدي الكرام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان