اكواد اكسل | مكتبة اكواد 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
تعليقات
إرسال تعليق