Visual Basic

Elemi makró-műveletek

Makró

Leírás

Megjegyzés

x ha a sor elején van, az egész sor megjegyzés lesz
x 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ő