اكواد اكسل رائعة

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

انشاء ملف Word بنفس القيم الموجودة فى ملف الاكسيل

Sub proWord()
Dim varDoc As Object

        Set varDoc = CreateObject("Word.Application")

                  varDoc.Visible = True
                  Sheets("ورقة1").Range("A1:B15").Copy
                  varDoc.documents.Add
                  varDoc.Selection.Paste
                  varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "منتديات اوفيسنا.doc"
                  varDoc.documents.Close

        varDoc.Quit
         Application.CutCopyMode = False
End Sub

جمع اكثر من خلية فى خلية

Sub جمع()
Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9"))
End Sub

جمع عمود فى خلية

Sub جمع_عمود()
Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4"))
End Sub

تحديد مجموعة خلايا

Sub شكلبيضوي8_نقر()
Range("A1:G5").Select
End Sub

مرفق ملف به كل الاكواد

 

123.rar

[ابو اياد ( الاسيوطى )]

استاذى الحبيب // قنديل الصياد

 

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

 

تقبل تحياتى

[حمادة عمر]

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

اخي الحبيب / قنديل الصياد

[حسام مصطفي]

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

 

لك ارق التحيات

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

استاذى الحبيب // قنديل الصياد

 

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

 

تقبل تحياتى

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

 

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

اخي الحبيب / قنديل الصياد

 

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

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

تجميعيه رائعه بارك الله فيك وفى جميع اعمالك

 

لك ارق التحيات

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب قنديل الصياد جزاك الله خيرا

اكواد رائعة وفيها فائدة كبيرة

تقبل فائق احترامي وتقديري

[علي المصري]

شكرا وبارك الله فيكم

[Yasser Fathi Albanna]

تسلم إيديك يا أستاذ قنديل

هاتفضل رائع فى جميع أعمالك

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

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب قنديل الصياد جزاك الله خيرا

اكواد رائعة وفيها فائدة كبيرة

تقبل فائق احترامي وتقديري

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

شكرا وبارك الله فيكم

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

 

تسلم إيديك يا أستاذ قنديل

هاتفضل رائع فى جميع أعمالك

 

[؛ أحمد النجار ؛]

أكواد رائعة كروعة جميع اعملك

 

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

 

تقبل تحيتي

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

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

كود لاخفاء اشرطة الادوات مع اظهار اسمائها فى الخلية A

Sub HideAllToolbars()
Dim TB As CommandBar
    Dim TBNum As Integer
    Dim mySheet As Worksheet
    Set mySheet = Sheets("ورقة1")
    Application.ScreenUpdating = False

    mySheet.Cells.Clear
    
    TBNum = 0
    For Each TB In CommandBars
        If TB.Type = msoBarTypeNormal Then
            If TB.Visible Then
                TBNum = TBNum + 1
                TB.Visible = False
                mySheet.Cells(TBNum, 1) = TB.Name
            End If
        End If
    Next TB
    Application.ScreenUpdating = True
End Sub

كود لاظهار اشرطة الادوات

Sub RestoreToolbars()
    Dim mySheet As Worksheet
    Set mySheet = Sheets("ورقة1")
    Application.ScreenUpdating = False

    On Error Resume Next
    For Each cell In mySheet.Range("A:A").SpecialCells(xlCellTypeConstants)
        CommandBars(cell.Value).Visible = True
    Next cell
    Application.ScreenUpdating = True
End Sub

مرفق ملف به الاكواد

 

قنديل.rar

 

 

 

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

كود لعمل انقسام لورقة اكسيل

Sub SplitWindow()
Dim freezeMode As Boolean, win As Window
  If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
 
  Set win = ActiveWindow
  freezeMode = win.FreezePanes
  win.FreezePanes = False
  
  If win.Split Then win.Split = False: Exit Sub
  win.SplitRow = ActiveCell.Row - win.ScrollRow
  win.SplitColumn = ActiveCell.Column - win.ScrollColumn
  win.FreezePanes = freezeMode
End Sub

مرفق ملف به الكود

 

قنديل_1.rar

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

اخفاء واظهار خطوط الشبكة ورؤس الصفوف والاعمدة

Sub ToggleHeadingsGrids()
Dim gridMode&, headingsMode&
 
  On Error Resume Next
 
  headingsMode = ActiveWindow.DisplayHeadings
  gridMode = ActiveWindow.DisplayGridlines
 
  If headingsMode And Not gridMode Then
    headingsMode = False
  ElseIf Not headingsMode And Not gridMode Then
    gridMode = True
  ElseIf Not headingsMode And gridMode Then
    headingsMode = True
  Else
    gridMode = False
  End If
 
  ActiveWindow.DisplayHeadings = headingsMode
  ActiveWindow.DisplayGridlines = gridMode
End Sub

مرفق ملف به التطبيق على الكود

 

قنديل_1.rar

 

[أسامة عطاالله]

السلام عليكم

شكرا لمجهودك

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

[أبو حنــــين]

سلمت يمينك أخي قنديل الصياد

تقبل تحياتي

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

 

السلام عليكم

شكرا لمجهودك

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

 

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

سلمت يمينك أخي قنديل الصياد

تقبل تحياتي

[أم عبد الله]

الأستاذ الفاضل / قنديل الصياد

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذه الأكواد الجميلة. جعل الله جميع أعمالك في ميزان حسناتك.

[احمد فضيله]

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

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

الأستاذ الفاضل / قنديل الصياد

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذه الأكواد الجميلة. جعل الله جميع أعمالك في ميزان حسناتك.