Добрый день. Наверное сразу оговорюсь что я новичек в среде VBA, VB проходили в базовом курсе института, но мало что помнится )) В общем тут такой момент. По работе нужно сделать пару макросов, но они все однотипные. Итак нужно расчитать число по формуле =D10-(D10*10%)-(E10*1,5%) и занести его в С10. Но при условии что в А10 находится определенный текст. Быстренько накидал примерный код:[vba]
Код
Sub macros1() Dim i As Long For i = 2 To 2000 If Cells(i, 1).Text = "Вывоз и утилизация ТБО" Then Cells(i, 3).FormulaLocal = "=D10-(D10*10%)-(E10*1,5%)" End If Next i End Sub
[/vba]Собственно вот в чем вопрос, как внедрить переменную вместо D10 и Е10 и т.д. ибо записей очень много
Добрый день. Наверное сразу оговорюсь что я новичек в среде VBA, VB проходили в базовом курсе института, но мало что помнится )) В общем тут такой момент. По работе нужно сделать пару макросов, но они все однотипные. Итак нужно расчитать число по формуле =D10-(D10*10%)-(E10*1,5%) и занести его в С10. Но при условии что в А10 находится определенный текст. Быстренько накидал примерный код:[vba]
Код
Sub macros1() Dim i As Long For i = 2 To 2000 If Cells(i, 1).Text = "Вывоз и утилизация ТБО" Then Cells(i, 3).FormulaLocal = "=D10-(D10*10%)-(E10*1,5%)" End If Next i End Sub
[/vba]Собственно вот в чем вопрос, как внедрить переменную вместо D10 и Е10 и т.д. ибо записей очень много Cudass
Сообщение отредактировал Cudass - Среда, 25.09.2013, 05:51