| Автор | Exel задача на массив |
|---|
для Солат:
Но эта задача вроде бы не через макрос;)
Так давай мы определимся: тебе надо через макросы или как ?
Макросы пишутся на VisualBasic для Excel. Если НЕ через макросы, то оговори конкретнее условие: что и как тебе надо ?
То бишь у тебя есть столбец (допустим "А") и из него надо выбрать отрицательные элементы и занести их в столбец "В" ?
Конкретнее распиши: что и как тебе надо ? |
Я тут накидал кое чо. Идейно это верно, но чо-то код не комплится, не знаю почему.
Sub gf()
n = Range("A5")
For i = 0 To n
For j = 0 To n
tmp = ActiveSheet.Range(Cells(i, j)).Value
If tmp < 0 Then
sum = sum + 1
End If
Next j
Next i
Range("A6") = sum
End Sub |
Sub www()
n = Range("A5")
i=1
For j = 1 To n
tmp = ActiveSheet.Range(Cells(i, j)).Value
If tmp < 0 Then
sum = sum + 1
End If
Next j
Range("A6") = sum
End Sub
Масив одноразмерный.
n = Range("A5") - Почему А5? |
| Я просто никогда Rnge нне использовал. Ток Cells/ |
| Ну, я подумал, что массив должен быть двумерным, с заданным в А5 размером. Кажется, это мой третий или четвёртый код в VBА) |
