Megjegyzések
' ha a sor elején van, az egész sor megjegyzés lesz
' ha a sor belsejében van, ami utána áll, az megjegyzés lesz
Munkafüzet-műveletek
Workbooks.Open Filename:="C:\xx\mf.xls" munkafüzet nyitása
Workbooks("mf.xls").Activate munkafüzet aktív lesz (nyitva kell lennie)
Munkalap-műveletek
Sheets(1).Activate 1. lap aktív/aktuális lesz
Sheets("lap").Activate a "lap" aktív lesz
Sheets("lap").Select a "lap" kijelölt lesz
Sheets(Array("lap2","lap5")).Select a megadott két lap kijelölése
Sheets(Array(1, 4, 3)).Select az adott sorszámú lapok kijelölése
Sheets.Add beszúrás az aktív lap elé
Sheets.Add After:=ActiveSheet beszúr az aktív lap mögé
Sheets.Add After:=Sheets(3) beszúr a 3. után
Sheets.Add Type:=xlWorksheet, Count:=3 3 munkalap beszúrása (aktuális elé)
Sheets.Add Type:=xlChart, Count:=2 2 diagramlap beszúrása
ActiveSheet.Delete aktív munkalap törlése
Worksheets(3).Delete 3. törlése
Sheets("lap").Copy After:=Sheets(5) a "lap" másolása az 5. lap mögé
Sheets("lap").Copy másik munkafüzet létrehozása belemásolással !!!!
ActiveSheet.Name = "újnév" aktív lap átnevezése
Sheets("lap").Tab.Color = vbRed a lapfül színe vörös lesz
Sheets(1).Tab.ColorIndex = 7 az 1. lapfül színe lila lesz
Tartomány-műveletek
Columns("B:F").Select oszlopok kijelölése
Rows("2:5").Select sorok kijelölése
Range("D10:G16").Select 7x4-es tartomány kijelölése
ActiveCell.Range("A1:D7").Select kijelölés, de relatíven
Range("D10:G16, F14:H19").Select únió kijelölése
Range("D10:G16 F14:H19").Select metszet kijelölése
Cella-műveletek
Range("B3").Activate B3 cella aktív lesz
ActiveCell.Offset(3,-1).Range("A1").Select aktuális cellától: 3 sorral le, 1 oszloppal balra lévő
Mintaprogramok
Makró Leírás
Munkafüzet-műveletek
Workbooks.Open Filename:="C:\xx\mf.xls" munkafüzet nyitása
Workbooks("mf.xls").Activate munkafüzet aktív lesz (nyitva kell lennie)
Munkalap-műveletek
Sheets(1).Activate 1. lap aktív/aktuális lesz
Sheets("lap").Activate a "lap" aktív lesz
Sheets("lap").Select a "lap" kijelölt lesz
Sheets(Array("lap2","lap5")).Select a megadott két lap kijelölése
Sheets(Array(1, 4, 3)).Select az adott sorszámú lapok kijelölése
Sheets.Add beszúrás az aktív lap elé
Sheets.Add After:=ActiveSheet beszúr az aktív lap mögé
Sheets.Add After:=Sheets(3) beszúr a 3. után
Sheets.Add Type:=xlWorksheet, Count:=3 3 munkalap beszúrása (aktuális elé)
Sheets.Add Type:=xlChart, Count:=2 2 diagramlap beszúrása
ActiveSheet.Delete aktív munkalap törlése
Worksheets(3).Delete 3. törlése
Sheets("lap").Copy After:=Sheets(5) a "lap" másolása az 5. lap mögé
Sheets("lap").Copy másik munkafüzet létrehozása belemásolással !!!!
ActiveSheet.Name = "újnév" aktív lap átnevezése
Sheets("lap").Tab.Color = vbRed a lapfül színe vörös lesz
Sheets(1).Tab.ColorIndex = 7 az 1. lapfül színe lila lesz
Tartomány-műveletek
Columns("B:F").Select oszlopok kijelölése
Rows("2:5").Select sorok kijelölése
Range("D10:G16").Select 7x4-es tartomány kijelölése
ActiveCell.Range("A1:D7").Select kijelölés, de relatíven
Range("D10:G16, F14:H19").Select únió kijelölése
Range("D10:G16 F14:H19").Select metszet kijelölése
Cella-műveletek
Range("B3").Activate B3 cella aktív lesz
ActiveCell.Offset(3,-1).Range("A1").Select aktuális cellától: 3 sorral le, 1 oszloppal balra lévő
Selection.Clear - kitörli a kijelölésünkből a tartalmat
Selection.Cells(1).Value - kijelölésünk első cellájának értéke a MergeText változó lesz
Selection.Merge - kijelölésünk összes celláját összevonja egy cellává
Selection.WrapText = True - ez pedig azért elég egyértelmű
Megjegyzések
Megjegyzés küldése