gamalin قام بنشر مايو 19, 2008 مشاركة قام بنشر مايو 19, 2008 السلام عليكم ورحمة الله وبركاته ارجوا ان تستكمل مساعداتكم الرائعة بكودين احدهما لادراج صفحتين احدما باسم m1 والاخرى m2 والكود الاخر لحذفهما رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 19, 2008 الكاتب مشاركة قام بنشر مايو 19, 2008 عذرا التكرار غير مقصود رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 20, 2008 الكاتب مشاركة قام بنشر مايو 20, 2008 للرفع رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 20, 2008 مشاركة قام بنشر مايو 20, 2008 السلام عليكم استخدم الكود التالى لاضافة و رقتين : Sub addsheets() Application.Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=2 Sheets(Worksheets.Count).Activate ActiveSheet.Name = "m1" With ActiveSheet .Previous.Name = "m2" End With End Sub رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مايو 20, 2008 مشاركة قام بنشر مايو 20, 2008 و هنا للحذف Application.DisplayAlerts = False Sheets("m1").Delete Sheets("m2").Delete Application.DisplayAlerts = True رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 20, 2008 الكاتب مشاركة قام بنشر مايو 20, 2008 السهل الممتنع اخي الفاضل جزاك الله خير الجزاء وفتح عليك اشكرك جدا اضافة رائعة وهو بالضبط من ابحث عنه جزاك الله خيرا رابط هذا التعليق شارك 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.