Napisałem coś takiego, ale nie działa:
Mógłby ktoś to poprawić ?


Sub qaz()
'
' n Makro

ilErr = 0
t = Array(1, 12, 23, 34, 45, 56, 102, 111)
For i = 0 To 8
If ActiveCell.Value <> 0 Then
ilErr = 1
MsgBox ("powinno być" & t(i))
End If
ActiveCell.Offset(A, 8).Select
Next
If ilErr = 0 Then
MsgBox ("wartości zgodne")
Else
MsgBox ("ilość błędów " & ilErr)
End If

End Sub

Muszę zrobić jedno zadanko z makropoleceń na informatykę. Szczerze za bardzo się na tym nie znam.. Proszę was o pomoc.

Oto one:

http://img202.imageshack.us/i/makroz.jpg/

[img]http://img202.imageshack.us/img202/9927/makroz.jpg[/img]

'
' n Makro

ilErr = …..
t = Array(1, 12, 23, 34, 45, 56, 102, 111)
For i = 0 To …….
If ActiveCell.Value <> …….. Then
ilErr = ………….
MsgBox ("………… " & ……)
End If
ActiveCell.Offset(….,….).Select
Next
If Err =……… Then
MsgBox ("………….")
Else
MsgBox ("………. " & ……..)
End If
End Sub