محمد طاهر عرفه قام بنشر أكتوبر 30, 2013 مشاركة قام بنشر أكتوبر 30, 2013 احتجت أن أقوم باختيار مجموعة من الخلايا ايا كان عددها كأعمدة أو صفوف ثم يتم دمج القيم الموجودة بها فى الصف الاعلي ، و حذف باقي الصفوف فقمت باعداد هذا الكود لتنفيذ المطلوب للتجربة قم باختيار اي مجموعة خلابا و شغل الكود Sub Merge_Selection() ' Merge Selected Rows (first cell only) Application.ScreenUpdating = False Dim Myrows As Integer, MyCols As Integer Myrows = Selection.Rows.Count MyCols = Selection.Columns.Count ActiveCell.Select For j = 1 To MyCols For i = 1 To Myrows - 1 If ActiveCell.Offset(i, 0).Value <> "" Then ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(i, 0).Value End If 'ActiveCell.Offset(1, 0).EntireRow.Delete 'Myrows = Myrows - 1 Next i ActiveCell.Offset(0, 1).Select Next j For i = 1 To Myrows - 1 ActiveCell.Offset(1, 0).EntireRow.Delete Next i End Sub Mergecellsup.rar 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 30, 2013 مشاركة قام بنشر أكتوبر 30, 2013 السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 30, 2013 مشاركة قام بنشر أكتوبر 30, 2013 السلام عليكم و رحمة الله وبركاته جزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أكتوبر 30, 2013 مشاركة قام بنشر أكتوبر 30, 2013 2 رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر أكتوبر 31, 2013 مشاركة قام بنشر أكتوبر 31, 2013 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل محمد طاهرالمحترم جزاك الله خيرا وبارك فيك تقبل فائق احترامي وتقديري 1 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 31, 2013 مشاركة قام بنشر أكتوبر 31, 2013 أستاذنا الكبير المهندس / محمد طاهر السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الكود الرائع. 1 رابط هذا التعليق شارك 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.