محمد عبدالله المسعودي قام بنشر أغسطس 2, 2016 مشاركة قام بنشر أغسطس 2, 2016 السلام عليكم الحقيقة لاحظت ابداع في كثير من الحلول التي قام بها الاساتذة وفقهم الله المطلوب في الملف المرفق اذا ممكن عمل معادلة تقوم باحصاء عدد الاعداد الموجودة بمدى محدد لكن بشرط ليس جميع الاعداد في هذا المدى وانما اول الاعداد قبل اول نص فقط هل يمكن عمل ذلك بمعادلة او كود وفقكم الله وجزاكم الله خيرا احصاء الاعداد فقط قبل اول نص.rar رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أغسطس 2, 2016 مشاركة قام بنشر أغسطس 2, 2016 تفضل اخي الكريم بالكود جرب المرفق احصاء الاعداد فقط قبل اول نص.rar 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 2, 2016 مشاركة قام بنشر أغسطس 2, 2016 بعد اذن الاخ ياسر الغربي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("B" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [k1] = t + 1 End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد عبدالله المسعودي قام بنشر أغسطس 2, 2016 الكاتب مشاركة قام بنشر أغسطس 2, 2016 السلام عليكم الاستاذ الفاضل ياسر العربي الاستاذ الفاضل سليم حاصبيا يعجز اللسان عن شكري وتقديري لمساهماتكم الرائعة الاكواد رائعة تم تجربة الكودين والنتائج مبهرة وفقكم الله وجزاكم الله خيرا جعلها الله في ميزان حسناتكم لكم حبي واحترامي وتقديري رابط هذا التعليق شارك More sharing options...
محمد عبدالله المسعودي قام بنشر أغسطس 2, 2016 الكاتب مشاركة قام بنشر أغسطس 2, 2016 السلام عليكم اساتذتي الكرام تعديل بسيط يحفظكم الله الكودين لايعملان اذا كانت الاعداد تاتي بالمعادلات تغيير الاحصاء يكون من A27:A4 وليس B استطعت ان اغير كود الاستاذ سليم حاصبيا جزاه الله خيرا ويعمل بشكل ممتاز Private Sub Worksheet_Change(ByVal Target As Range) 'الاستاذ سليم حاصبيا If Target.Column <> 1 Then Exit Sub Start = 4: t = 0 Do Until Not IsNumeric(Range("a" & Start).Offset(1, 0)) t = t + 1 Start = Start + 1 Loop [f1] = t + 1 End Sub لكن لم استطع تغيير كود الاستاذ ياسر العربي جزاه الله خيرا ليعمل على العمود الاول A ارجوالتدخل من الاستاذ ياسر العربي جزاه الله خيرا او احد الاساتذة الكرام لتغيير عمود الاحصاء وفق الله الجميع لما فيه الخير والمحبة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 2, 2016 مشاركة قام بنشر أغسطس 2, 2016 اخي في هذا الموضوع لا حاجة الكود اعتقد ان الامر يمكن تطبيقه بمعادلة بسيطة انظر الى المرفق احصاء الاعداد فقط قبل اول نصsalim.rar 2 رابط هذا التعليق شارك More sharing options...
محمد عبدالله المسعودي قام بنشر أغسطس 2, 2016 الكاتب مشاركة قام بنشر أغسطس 2, 2016 الله يعطيك الف عافية استاذي سليم حاصبيا وفقكم الله فعلا ملك للمعادلات جعله الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أغسطس 3, 2016 مشاركة قام بنشر أغسطس 3, 2016 معادلة رائعة اخي سليم ولكن للتسهيل على الاخ محمد تفضل الدالة المعرفة دي ضع هذا الكود داخل موديول Function YAS(x As Range) For Each Rng In x If IsNumeric(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function وفي اي مكان ضع المعادلة التالية =YAS(B4:B200) وتستطيع ان تحدد النطاق الذي تريده ضمن اي عمود المثال مرفق لتجنب بعض عيوب الدالة التى قد تظهر في بعض الحالات تستطيع استبدالها بالكود الاتي Function YAS(x As Range) For Each Rng In x If Application.WorksheetFunction.IsNumber(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function حسب المناسب لك احصاء الاعداد فقط قبل اول نص.rar 2 رابط هذا التعليق شارك More sharing options...
محمد عبدالله المسعودي قام بنشر أغسطس 3, 2016 الكاتب مشاركة قام بنشر أغسطس 3, 2016 السلام عليكم الاستاذ ياسر العربي وفقكم الله اعمالكم كبيرة ومتقنه لكم تحياتي وفائق احترامي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.