abouelhassan قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 الاخوة الاساتذة الافاضل احد الاساتذة الاخوة الافاضل اهدانى هذا الكود عندما اغير اسم الورقة لرقم تتغير الى الشهر واريد تنفيذه على هذه الورقة ارجو شرحه Private Sub Worksheet_Change(ByVal Target As Range) i = 3 [dx100] = 0 For r = 2 To 63 Application.ScreenUpdating = False [dx100] = [dx100] + 1 [dx101] = ActiveSheet.Name Cells(i, r) = ActiveSheet.Name & "/" & [dx100] If Cells(i - 1, r).Value = [dx101] Then Cells(i, r).EntireColumn.Hidden = False Cells(i, r).ColumnWidth = 26 r = r + 1 Else Cells(i, r).EntireColumn.Hidden = True End If Next [dx100] = "" [dx101] = "" Application.ScreenUpdating = False End End Sub ; احترامى اخيكم ____.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 السلام عليكم هذا الكود اخي يعمل علي الخلايا الموجوده للصف المحدد تم تعديله ليعمل علي العمود المراد تحياتي ____1.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 السلام عليكم وهذا اخي الملف مع شرح الكود تحياتي ____1.rar رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر مارس 13, 2009 الكاتب مشاركة قام بنشر مارس 13, 2009 شكرى وتقديرى لشخصكم الكريم بارك الله فيك اخى تحياتى و احترامى اخيك رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 بارك الله فيك أخي عادل لتجاوبك السريع والغير مستغرب من كريم مثلك اخوك / أبو عبدالله رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر مارس 13, 2009 مشاركة قام بنشر مارس 13, 2009 السلام عليكم و بارك الله فيك اخي الجزيره و اشكرك علي كلماتك الجميله تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان