اكواد اكسل | مكتبة اكواد vba Excel

 اكواد اكسل | مكتبة اكواد vba Excel

انشاء ملف 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

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

Sub جمع()

Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9"))

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

Sub جمع_عمود()

Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4"))

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

Sub شكلبيضوي8_نقر()

Range("A1:G5").Select

End Sub

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

Sub HideAllToolbars()

Dim TB As CommandBar

Dim TBNum As Integer

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

Next TB

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

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

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

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