Sojusz Fallen

Ricko · Wysłany: Czw 20:01, 11 Mar 2010 Temat postu: Makra

Sprawdzian OB - Makra (VB)

Selection.EntireRow.Insert - Wstawianie wiersza
Selection.EntireColumn.Insert - Wstawianie kolumny
ActiveCell.Offset(1, 0).Select - Przenoszenie zaznaczonej komórki o jeden wiersz w dół
ActiveCell.Offset(0, 1).Select - Przenoszenie zaznaczonej komórki o jedną kolumnę w prawo
ActiveCell.Offset(1, 1).Select - Przenoszenie zaznaczonej komórki o jeden wiersz w dół i o jedną kolumnę w prawo
Dim a,b,c As Integer - deklarowanie zmiennych a,b i c
Range("D1").Select - zaznaczenie wybranej komórki np. D1
ActiveCell.Interior.ColorIndex = 4 - zmiana koloru zaznaczonej komórki np, na zielony (4)
Selection.Font.Bold = True - pogrubienie danych komórek
Selection.Font.Italic = True - pochylenie danych komórek
Selection.Font.Underline = xlUnderlineStyleSingle - podkreślenie danych komórek
ActiveCell.FormulaR1C1 = n - n oznacza wpisaną do komórki wartośc liczbową
ActiveCell.FormulaR1C1 = "n" - n oznacza wpisaną do komórki wartośc tekstową

ZADANIE 1 - KOLORY RÓŻNE PO SKOSIE

Sub zad1()
'
' zad1 Makro
' Makro zarejestrowane 2010-03-11, autor Ricko
'
For i = 1 To 50
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(1, 1).Select
Next i
'
End Sub

ZADANIE 2 - PRZEPLATANE KOLORY

Sub zad2()
'
' Makro2 Makro
' Makro zarejestrowane 2010-03-11, autor Ricko
'
For i = 1 To 50
ActiveCell.Interior.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
ActiveCell.Interior.ColorIndex = 46
ActiveCell.Offset(1, 0).Select
Next i
End Sub

ZADANIE 3 - 50 LICZB NIEPARZYSTYCH

Sub zad3()
'
' zad3 Makro
' Makro zarejestrowane 2010-03-11, autor Ricko
'
n = 1
For i = 1 To 50
ActiveCell.FormulaR1C1 = n
n = n + 2
ActiveCell.Offset(1, 0).Select
Next i
End Sub

ZAD 4 - WSTAWIANIE 10 PUSTYCH KOLUMN

Sub zad4()
'
' zad4 Makro
' Makro zarejestrowane 2010-03-11, autor Ricko
'

'
For i = 1 To 10
Selection.EntireColumn.Insert
Next i
End Sub

ZAD 5 - ZMIANA TŁA LICZB

Sub zad5()
'
' zad5 Makro
' Makro zarejestrowane 2010-03-11, autor Ricko
'

'
If IsEmpty(ActiveCell) Then
Exit Sub
End If
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="-1000000000000", Formula2:="100000000"
Selection.FormatConditions(1).Interior.ColorIndex = 37
End Sub