قنديل الصياد قام بنشر أكتوبر 27, 2013 مشاركة قام بنشر أكتوبر 27, 2013 الكود الاول : تحويل النصوص ذات الاحرف الكبيرة الى صغيرة Sub Lowercase() For Each x In Selection x.Value = LCase(x.Value) Next End Sub الكود الثاني : عرض دقة الشاشة Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Sub AfficherResolution() Largeur = GetSystemMetrics(0) Hauteur = GetSystemMetrics(1) MsgBox "عرض دقة الشاشة هو: " & Largeur & " على " & Hauteur End Sub الكود الثالث : اغلاق برنامج الاكسل Sub FermetureExcel() Dim Wb As Workbook For Each Wb In Application.Workbooks Wb.Save Next Wb Application.Quit End Sub الكود الرابع : احتواء تلقائي لجميع الاعمدة Sub احتواء_تلقائي_للاعمدة() Cells.Select Selection.Columns.AutoFit End Sub الكود الخامس : احتواء تلقائي لعمود واحد Sub احتواء_تلقائي_لعمود() Columns("L:L").EntireColumn.AutoFit End Sub مرفق ملف به التطبيقات Book1.rar 1 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أكتوبر 27, 2013 الكاتب مشاركة قام بنشر أكتوبر 27, 2013 الكود السادس : تحديد كامل الورقة Sub تحديد_الورقة() Cells.Select End Sub الكود السابع: نسخ كامل الورقة Sub نسخ_الورقة() Selection.Copy End Sub الكود الثامن : لصق كامل الورقة في ورقة اخري Sub لصق_الورقة() ActiveSheet.Paste End Sub مرفق ملف به التطبيقات نسخ ولصق.rar 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أكتوبر 28, 2013 مشاركة قام بنشر أكتوبر 28, 2013 الاخ قنديل مشكورا على الجهد المبذول فى توصيل معلومات مفيده للجميع بارك الله فيك رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أكتوبر 28, 2013 الكاتب مشاركة قام بنشر أكتوبر 28, 2013 رابط هذا التعليق شارك More sharing options...
حليم ناصر قام بنشر أكتوبر 28, 2013 مشاركة قام بنشر أكتوبر 28, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أكتوبر 28, 2013 مشاركة قام بنشر أكتوبر 28, 2013 جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيراجزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أكتوبر 28, 2013 الكاتب مشاركة قام بنشر أكتوبر 28, 2013 رابط هذا التعليق شارك More sharing options...
hesham fahmy قام بنشر أكتوبر 30, 2013 مشاركة قام بنشر أكتوبر 30, 2013 شكرا اخى الكريم لهذة المجموعة الجميلة رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أكتوبر 30, 2013 الكاتب مشاركة قام بنشر أكتوبر 30, 2013 رابط هذا التعليق شارك 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.