Задача: В клетке В2 сделайте сообщение о том, какое число записано в клетку А2 – положительное, отрицательное или ноль. Для ее решения используется простая лесенка If Else If: Исходный код: Sub Button1_Click() If (Cells(2, 1).Value > 0) Then Cells(2, 2).Value = «Больше нуля» Else If (Cells(2, 1).Value < 0) Then Cells(2, 2).Value = «Меньше нуля»
Browsing tag: ячейки
17.11.2012
29.09.2012
Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим. Public Sub glav_diag() Dim i As Integer Dim j As Integer n = InputBox(«n=») For i = 1 To n For j = 1 To n If i = j Then Cells(i, j).Interior.Color = vbGreen End If If i < j Then Cells(i,