Program: wyszukujący kursy mniejsze od 1 (za miesiąc marzec).
Jak w opisie.
Kompilator: Microsoft Excel
Galeria:
Kod programu:
Sub makro_1()
licznik_wierszy = 3
For i = 2 To 37
Cells(i, 17).Clear
Cells(i, 18).Clear
Next i
Cells(2, 17) = "Waluta"
Cells(2, 18) = "Kurs"
For i = 3 To 37
If Cells(i, 6) < 1 Then
Cells(licznik_wierszy, 17) = Cells(i, 1)
Cells(licznik_wierszy, 18) = Cells(i, 6)
licznik_wierszy = licznik_wierszy + 1
End If
Next i
End Sub