أكواد أعجبتنى

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

اخوانى واساتذتى الاعزاء اليكم بعض الاكواد التى اعجبتنى

 

كود يقوم بحفظ واغلاق ملف الاكسل

Sub FermetureExcel()
    Dim Wb As Workbook
    
    For Each Wb In Application.Workbooks
        Wb.Save

    Next Wb

    Application.Quit
End Sub  

كود لتحويل الاحرف الكبيرة الى احرف صغيرة فى الخلايا النشطة من كبتل الى صمول

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 SelectToRight()
    Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub  

كود تحديد الخلية النشطة والخلايا التي على يسارها

Sub SelectToLeft()
    Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub 

كود زر أمر لكتابة ما تريد

Sub kandeel_elsiad()
Range("k1") = "أهلا ومرحبا بكم فى منتديات أوفيسنا"
End Sub

امسح الجملة المكتوبة ( اهلا ومرحبا بكم فى منتديات اوفيسنا ) واضغط على الكود لكى يكتب لك  ماتريد

 

 

تم تعديل يونيو 27, 2013 بواسطه قنديل الصياد

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

فيديو الترحيل باستخدام الفلترة

 

 

حمل من هنا

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / قنديل الصياد

بارك الله فيك

وجعل ذلك في ميزان حسناتك

 

ولاثراء الموضوع ... اليكم متابعة الرابط التالي

به اكواد متنوعة

http://www.officena.net/ib/index.php?showtopic=47468&hl=word

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