ابو مالك ابرش قام بنشر يوليو 5, 2017 مشاركة قام بنشر يوليو 5, 2017 السلام عليكم اخواني للافاضل اريد صيفة جمع عمود متغير الطول وتكون النتيجة باول خلية بطريقة vba رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 5, 2017 مشاركة قام بنشر يوليو 5, 2017 وعليكم السلام أخي الكريم قم بإرفاق ملف لتجد استجابة أفضل للموضوع ، مع وضع بعض النتائج المتوقعة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر يوليو 5, 2017 مشاركة قام بنشر يوليو 5, 2017 (معدل) 2 ساعات مضت, ياسر خليل أبو البراء said: استاذي ابو البراء. . . اعتقد بامكانك مساعدتي . https://www.officena.net/ib/topic/77975-كمبوبوكس-بطريقتين/# تم تعديل يوليو 5, 2017 بواسطه رشراش رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 6, 2017 مشاركة قام بنشر يوليو 6, 2017 ضع ملف مرفق هنا في الموضوع بدلاً من التشعب في موضوعات أخرى مع توضيح المطلوب بشيء من التفصيل أخي الكريم رشراش .. وهل المطلوب كود يتم تنفيذه أم كود يوضع في حدث التغير في ورقة العمل؟ رابط هذا التعليق شارك More sharing options...
ابو مالك ابرش قام بنشر يوليو 6, 2017 الكاتب مشاركة قام بنشر يوليو 6, 2017 السلام عليكم ورحمة الله و بركاته اخي عندي هاد الكود يجمع عمود a فقط وانا اريد ان يكرر العملية باكثر من عمود مثلا من العمود a الى العمود f مثلا Sub anwar_abo_malik_Sum() LstRow1 = Range("A" & Rows.Count).End(xlDown).Row Range("A" & LstRow1).Value = "" With Range("A4:A" & LstRow1) .Font.Bold = False .Interior.ColorIndex = 0 End With LstRow2 = Range("A" & Rows.Count).End(xlDown).Row X = Application.WorksheetFunction.Sum(Range("A4:A" & LstRow2)) Range("A1") = X With Range("A1") .Interior.ColorIndex = 8 .Font.Bold = True End With End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 6, 2017 مشاركة قام بنشر يوليو 6, 2017 أخي الكريم أبو مالك قم بطرح طلبك في موضوع مستقل مع وضع ملف مرفق ووضع الأكواد بين قوسي الكود ليظهر بشكل منضبط رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر يوليو 6, 2017 مشاركة قام بنشر يوليو 6, 2017 بعد اذن الاستاذ ياسر .. جرب هذا الكود Sub anwar_abo_malik_Sum() For i = 1 To 6 LstRow1 = Cells(Rows.Count, i).End(xlDown).Row Cells(LstRow1, i).Value = "" With Range(Cells(4, i), Cells(LstRow1, i)) .Font.Bold = False .Interior.ColorIndex = 0 End With X = Application.WorksheetFunction.Sum(Range(Cells(4, i), Cells(LstRow1, i))) Cells(1, i) = X With Cells(1, i) .Interior.ColorIndex = 8 .Font.Bold = True End With Next End Sub رابط هذا التعليق شارك More sharing options...
ابو مالك ابرش قام بنشر يوليو 6, 2017 الكاتب مشاركة قام بنشر يوليو 6, 2017 مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور اخ عبد السلام ابو العوافي ضبط 100% و شكرا لكل من تفاعل معي بس انا قمت بتغير بسيط بالنسبة لل FOR I= 1 TO 6 صارت FOR I = 6 TO 17 عشان تبقى تحسب من العمود F الى العمود Q رابط هذا التعليق شارك 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.