Sub aaa()
Dim r As Range
Set r = Range(Cells(1, 1), Cells(9, 6))
Z = r
kn = 0: kp = 0
For Each a In Z
If a < 0 Then kn = kn + 1
If a > 0 Then kp = kp + 1
Next
Cells(12, 1) = "Положительных" + Str(kp)
Cells(13, 1) = "Отрицательных" + Str(kn)
End Sub
Во вложении рабочая книга MS Excel 2003
Информация — от латинского слова "information", что означает сведения, разъяснения, изложение. Информа́тика<span> — </span>наука<span> о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки </span>информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений. Программи́рование — процесс создания компьютерных программ.
Он обожал Моцарта, но главным его кумиром стал Людвиг ван Бетховен - соотечественник и современник
Бит-это единица измерения колличества информации в двоичной системе исчесления. Большая единица байт,1байт=8 бит