Здравствуйте! Помогите, никак не могу понять как делать макросы через VBA cells. В файле ниже проставлены все данные, нужно сделать так, чтобы к итоговой сумме тура добавлялся страховой сбор в размере 5% от стоимости тура, а после нажатия кнопки рассчитать появлялась итоговая стоимость тура, рассчитанная с помощью макроса через VBA Cells. Заранее спасибо) [moder]А что с прошлым вашим вопросом? Мы зря помогали там?
Здравствуйте! Помогите, никак не могу понять как делать макросы через VBA cells. В файле ниже проставлены все данные, нужно сделать так, чтобы к итоговой сумме тура добавлялся страховой сбор в размере 5% от стоимости тура, а после нажатия кнопки рассчитать появлялась итоговая стоимость тура, рассчитанная с помощью макроса через VBA Cells. Заранее спасибо) [moder]А что с прошлым вашим вопросом? Мы зря помогали там?Alex30208
Да, нужно рассчитать так, чтобы складывалась выбранное количество номеров, умноженное на цену (в зависимости от выбранного отеля), плюс завтрак (если он выбран), и плюс 5% от полученного результата. Все это должно появляться в графе "итог" после нажатия кнопки "рассчитать", причём сделать это через макрос с помощью vba. Я в этом плохо разбираюсь, поэтому не очень понимаю что там делать)
Да, нужно рассчитать так, чтобы складывалась выбранное количество номеров, умноженное на цену (в зависимости от выбранного отеля), плюс завтрак (если он выбран), и плюс 5% от полученного результата. Все это должно появляться в графе "итог" после нажатия кнопки "рассчитать", причём сделать это через макрос с помощью vba. Я в этом плохо разбираюсь, поэтому не очень понимаю что там делать)Alex30208
Sub Рассчитать() Dim iSumma As Double Dim Sl As Worksheet Set Sl = Sheets("Служебный") iSumma = Range("B8") * (Sl.Range("O16") - 1) + Range("C8") * (Sl.Range("P16") - 1) + Range("D8") * (Sl.Range("Q16") - 1) If Sl.Range("D24") Then iSumma = iSumma + Range("B14") End If Range("B15") = iSumma * 1.05 End Sub
[/vba]
[vba]
Код
Sub Рассчитать() Dim iSumma As Double Dim Sl As Worksheet Set Sl = Sheets("Служебный") iSumma = Range("B8") * (Sl.Range("O16") - 1) + Range("C8") * (Sl.Range("P16") - 1) + Range("D8") * (Sl.Range("Q16") - 1) If Sl.Range("D24") Then iSumma = iSumma + Range("B14") End If Range("B15") = iSumma * 1.05 End Sub
Kuzmich, вау, спасибо большое, все работает! Может вы еще знаете, как посчитать тоже самое, только чтобы код выглядел как-то так: Range(...).Cells(...).Select [moder]Я дико извиняюсь, но таки имею задать вопрос - а в чем тайный смысл сей конструкции?
Kuzmich, вау, спасибо большое, все работает! Может вы еще знаете, как посчитать тоже самое, только чтобы код выглядел как-то так: Range(...).Cells(...).Select [moder]Я дико извиняюсь, но таки имею задать вопрос - а в чем тайный смысл сей конструкции?Alex30208
Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 20:11