Реферат: Система компьютерной обработки данных

3. «MS EXCEL и VBA. Примеры и задания», Панфилова Т.И.

Приложение 1

Макрос «Перевод года»

PrivateSubCommandButton1_Click()

msg = "Вы действительно хотите добавить год?"

opt = vbExclamation + vbYesNo + vbDefaultButton2

tit = ""

А = MsgBox(msg, opt, tit)

If A = vbYes Then

Worksheets("год2").Range("A1:BM25").Copy Destination:=Worksheets("год1").Range("A1:BM25")

Worksheets("год3").Range("A1:BM25").Copy Destination:=Worksheets("год2").Range("A1:BM25")

For i = 5 To 22

For j = 2 To 56

Worksheets("год3").Cells(i, j) = ""

Next j

Next i

Dim k, b As Integer

k = Val(Mid(Worksheets("год3").Cells(1, 17), 1, 5))

b = Val(Mid(Worksheets("год3").Cells(1, 17), 6, 5))

k = k + 1

b = b + 1

Worksheets("год3").Cells(52, 1) = Right(Str(b), 4)

Worksheets("год3").Cells(1, 17) = Right(Str(k), 4) + "-" + Right(Str(b), 4)

Worksheets("год3").Range("I4:I23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("I4:I23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("I4:I23").Interior.Color = RGB(255, 255, 0)

Worksheets("год3").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)

Worksheets("год2").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)

Worksheets("год1").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)