Как произвести простые вычисления ячеек в VB

[Teslenko_EA]

Здравствуйте segail.
"перевести в VB" подобную конструкцию можно, но не вижу смысла, ведь у неё неверный синтаксис.
Евгений.

[segail]

Не понял, я ее собрал так, для примера, вроде работает…
Mне надо что то вроде такого

"Потери  "&([i+31,6]=0,0,([i+31,6]/[ i+31,3])*-100)&" %"

деление одного найденного (I плюс 31 ячейка,столбца 6) диапазона, на другой (I плюс 31 ячейка,столбца 3) с умножением на -100, и если деление на 0 то 0

[Teslenko_EA]

"...([i+31,6]=0,0,([i+31,6]/[ i+31,3])..." - и Вы можете внятно объяснить эту конструкцию
Если проблема - "Время нет для изучения" сохранилась, рекомендую Вам оставить занятие "программописания" до тех пор пока не появится время и Вы изучите элементарные вещи и у Вас появятся базовые познания.
Без них это бесполезная трата времени.
Евгений.

[segail]

Попробую объяснить так.

Private Sub ComboBox1_Change()
    Dim i As Integer
    For i = 1 To 1000
        	If Cells(i, 27).Text = ComboBox1.Text Then 'Поиск ячейки, по совпадению текстов
             Range("F4") =   'Строка i плюс 31 ячейка столбца 6, деленное на строку i плюс 31 ячейку столбца 3, умноженное на -100. Если деление происходит на ноль, то в сумме должен быть 0 
 	End If
    Next
End Sub

[Teslenko_EA]

 Dim i As Integer, j#
    For i = 1 To 1000
        If Cells(i, 27).Text = ComboBox1.Text Then 'Поиск ячейки, по совпадению текстов
            If Cells(i + 31, 3) = 0 Then j = 0 Else j = Cells(i + 31, 6) / Cells(i + 31, 3)
            Range("F4") = j
            ...

Евгений.

[segail]

Спасибо..............

[segail]

Здравствуйте

Подскажите. Необходимо значение Cells(i + 32, 6) сформировать в целое число, а после вычисления число должно иметь 3 десятичных знаков.
j = Round(((Cells(i + 32, 6),0) / Cells(i + 32, 28))) * -100), 3)

[doober]

Возможно так

j = Round((Round(Cells(i + 32, 6), 0) / Cells(i + 32, 28)) * -100, 3)

[segail]

Разобрался. Спасибо.