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
عادل حنفي قام بنشر مارس 13, 2009 قام بنشر مارس 13, 2009 السلام عليكم هذا الكود اخي يعمل علي الخلايا الموجوده للصف المحدد تم تعديله ليعمل علي العمود المراد تحياتي ____1.rar
عادل حنفي قام بنشر مارس 13, 2009 قام بنشر مارس 13, 2009 السلام عليكم وهذا اخي الملف مع شرح الكود تحياتي ____1.rar
abouelhassan قام بنشر مارس 13, 2009 الكاتب قام بنشر مارس 13, 2009 شكرى وتقديرى لشخصكم الكريم بارك الله فيك اخى تحياتى و احترامى اخيك
الجزيرة قام بنشر مارس 13, 2009 قام بنشر مارس 13, 2009 بارك الله فيك أخي عادل لتجاوبك السريع والغير مستغرب من كريم مثلك اخوك / أبو عبدالله
عادل حنفي قام بنشر مارس 13, 2009 قام بنشر مارس 13, 2009 السلام عليكم و بارك الله فيك اخي الجزيره و اشكرك علي كلماتك الجميله تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.