مجموعة اكواد اعجبتنى

[قنديل الصياد]

الكود الاول : تحويل النصوص ذات الاحرف الكبيرة الى صغيرة

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

[قنديل الصياد]

الكود السادس : تحديد كامل الورقة

Sub تحديد_الورقة()
Cells.Select
End Sub

الكود السابع: نسخ كامل الورقة

Sub نسخ_الورقة()
Selection.Copy
End Sub

الكود الثامن : لصق كامل الورقة في ورقة اخري

Sub لصق_الورقة()
ActiveSheet.Paste
End Sub

مرفق ملف به التطبيقات

 

 

نسخ ولصق.rar

 

[إبراهيم ابوليله]

الاخ قنديل

مشكورا على الجهد المبذول

فى توصيل معلومات مفيده للجميع

بارك الله فيك

[قنديل الصياد]

[حليم ناصر]

جزاك الله خيرا

[حمادة عمر]

جزاك الله خيرا

جزاك الله خيرا جزاك الله خيرا

جزاك الله خيراجزاك الله خيرا جزاك الله خيرا

جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا

جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا

جزاك الله خيرا جزاك الله خيرا

جزاك الله خيرا

 

[قنديل الصياد]

[hesham fahmy]

شكرا اخى الكريم لهذة المجموعة الجميلة

[قنديل الصياد]