Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как рассчитать итоговою стоимость с использованием VBA-cells - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как рассчитать итоговою стоимость с использованием VBA-cells (Макросы/Sub)
Как рассчитать итоговою стоимость с использованием VBA-cells
Alex30208 Дата: Вторник, 19.01.2016, 15:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Помогите, никак не могу понять как делать макросы через VBA cells. В файле ниже проставлены все данные, нужно сделать так, чтобы к итоговой сумме тура добавлялся страховой сбор в размере 5% от стоимости тура, а после нажатия кнопки рассчитать появлялась итоговая стоимость тура, рассчитанная с помощью макроса через VBA Cells.
Заранее спасибо)
[moder]А что с прошлым вашим вопросом? Мы зря помогали там?
К сообщению приложен файл: 0198673.xlsm(70Kb)


Сообщение отредактировал _Boroda_ - Вторник, 19.01.2016, 15:47
 
Ответить
СообщениеЗдравствуйте! Помогите, никак не могу понять как делать макросы через VBA cells. В файле ниже проставлены все данные, нужно сделать так, чтобы к итоговой сумме тура добавлялся страховой сбор в размере 5% от стоимости тура, а после нажатия кнопки рассчитать появлялась итоговая стоимость тура, рассчитанная с помощью макроса через VBA Cells.
Заранее спасибо)
[moder]А что с прошлым вашим вопросом? Мы зря помогали там?

Автор - Alex30208
Дата добавления - 19.01.2016 в 15:41
Alex30208 Дата: Вторник, 19.01.2016, 20:22 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Нет, конечно, в прошлый раз с вашей помощью разобралась и все получилось)
 
Ответить
СообщениеНет, конечно, в прошлый раз с вашей помощью разобралась и все получилось)

Автор - Alex30208
Дата добавления - 19.01.2016 в 20:22
Alex30208 Дата: Среда, 20.01.2016, 11:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Кто-нибудь, пожалуйста, помогите!
 
Ответить
СообщениеКто-нибудь, пожалуйста, помогите!

Автор - Alex30208
Дата добавления - 20.01.2016 в 11:01
Pelena Дата: Среда, 20.01.2016, 12:11 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11601
Репутация: 2572 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Как рассчитывается итоговая стоимость?
Обязательно макросом с кнопкой? Формулы не предлагать?
Что такое макрос VBA Cells?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКак рассчитывается итоговая стоимость?
Обязательно макросом с кнопкой? Формулы не предлагать?
Что такое макрос VBA Cells?

Автор - Pelena
Дата добавления - 20.01.2016 в 12:11
Alex30208 Дата: Среда, 20.01.2016, 12:34 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да, нужно рассчитать так, чтобы складывалась выбранное количество номеров, умноженное на цену (в зависимости от выбранного отеля), плюс завтрак (если он выбран), и плюс 5% от полученного результата. Все это должно появляться в графе "итог" после нажатия кнопки "рассчитать", причём сделать это через макрос с помощью vba. Я в этом плохо разбираюсь, поэтому не очень понимаю что там делать)
 
Ответить
СообщениеДа, нужно рассчитать так, чтобы складывалась выбранное количество номеров, умноженное на цену (в зависимости от выбранного отеля), плюс завтрак (если он выбран), и плюс 5% от полученного результата. Все это должно появляться в графе "итог" после нажатия кнопки "рассчитать", причём сделать это через макрос с помощью vba. Я в этом плохо разбираюсь, поэтому не очень понимаю что там делать)

Автор - Alex30208
Дата добавления - 20.01.2016 в 12:34
Kuzmich Дата: Среда, 20.01.2016, 14:04 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 308
Репутация: 57 ±
Замечаний: 0% ±

Excel 2003
[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

[/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

[/vba]

Автор - Kuzmich
Дата добавления - 20.01.2016 в 14:04
Alex30208 Дата: Среда, 20.01.2016, 20:06 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Kuzmich, вау, спасибо большое, все работает! Может вы еще знаете, как посчитать тоже самое, только чтобы код выглядел как-то так: Range(...).Cells(...).Select
[moder]Я дико извиняюсь, но таки имею задать вопрос - а в чем тайный смысл сей конструкции?


Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 20:11
 
Ответить
СообщениеKuzmich, вау, спасибо большое, все работает! Может вы еще знаете, как посчитать тоже самое, только чтобы код выглядел как-то так: Range(...).Cells(...).Select
[moder]Я дико извиняюсь, но таки имею задать вопрос - а в чем тайный смысл сей конструкции?

Автор - Alex30208
Дата добавления - 20.01.2016 в 20:06
Pelena Дата: Среда, 20.01.2016, 21:15 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11601
Репутация: 2572 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
[offtop]
тоже самое, только
"У вас есть такой же, но с перламутровыми пуговицами? Нет? Будем искать... (с) "Бриллиантовая рука" :D
[/offtop]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение[offtop]
тоже самое, только
"У вас есть такой же, но с перламутровыми пуговицами? Нет? Будем искать... (с) "Бриллиантовая рука" :D
[/offtop]

Автор - Pelena
Дата добавления - 20.01.2016 в 21:15
Gnomoiad Дата: Четверг, 21.01.2016, 16:52 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
как посчитать тоже самое, только чтобы код выглядел


Может это чтоб было похоже, что макрорекодером записано?


Сообщение отредактировал Gnomoiad - Четверг, 21.01.2016, 16:53
 
Ответить
Сообщение
как посчитать тоже самое, только чтобы код выглядел


Может это чтоб было похоже, что макрорекодером записано?

Автор - Gnomoiad
Дата добавления - 21.01.2016 в 16:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как рассчитать итоговою стоимость с использованием VBA-cells (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!