Witam!
Mam problem z napisaniem programu.
POLECENIE ZADANIA: W istniejących arkuszach danego skoroszytu znajdują się dwa wiersze liczb. Należy je znaleźć i traktując 1 jako ciąg argumentów, a jako wartości wyliczyć całkę oznaczoną metodą trapezów. Wyróżnić liczby pierwsze czerwonym tłem.
Sub tablice()
'Dim tabl(1 To 100, 1 To 25) As Variant
Dim argument()
For i = 1 To 100
For j = 1 To 25
' tabl(i, j) = Worksheets("Arkusz1").Cells(i, j).Value
zawartosc = Cells(i, j).Value
If Not IsEmpty(Cells(i, j).Value) Then
If Not IsEmpty(Cells(i, j + 1).Value) Then
ReDim argument(j)
argument(j) = (Cells(i, j).Value)
End If
End If
Next j
Next i
'MsgBox tabl(1, 1)
'MsgBox tabl(1, 2)
'MsgBox tabl(12, 7)
'MsgBox tabl(13, 23)
End Sub
Próbowałem sprawdzać kolejną komórkę czy jest pusta i dodawać do tablicy. Niestety jest pusta. Dalej nie wiem jak zrobić, aby przy sprawdzaniu kolejnego wiersza wrzucało do nowej tablicy. Może to trzeba innym sposobem?
Jestem początkujący i średnio mi to idzie.