не получается разобраться с примером из книги Эйткена

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » не получается разобраться с примером из книги Эйткена (Макросы/Sub)

Davka

Дата: Суббота, 24.08.2019, 22:13 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте.
Решил изучить подробнее Excel и VBA, начал читать книгу Эйткена "Интенсивный курс программирования в Excel за выходные". Дошел до первого примера и сразу же не получилось)
Строки кода один в один с книги:
[vba]

Код

#Public Sub программа()
Range("B2").Select
ActiveCell.Value = InputBox("введите значение")
Range("B3").Select
ActiveCell.Value = InputBox("введите значение")
Range("B4").Select
ActiveCell.Value = InputBox("введите значение")
Range("B5").Select
ActiveCell.Value = InputBox("введите значение")
Range("B6").Select
ActiveCell.Value = InputBox("введите значение")
Range("B7").Select
ActiveCell.Formula = "=СУММ(B2:B6)"
ActiveWorkbook.SaveAs Filename:="программа.xls"
End Sub#

[/vba]

При запуске вначале все идет как и должно, просит ввести значение, и так 5 раз, записывает в ячейки В2 - В6
При вводе последнего значения В6, в ячейке В7 должна появиться сумма, но вместо нее выходит #ИМЯ?, но в строке функции формула указана верно: =СУММ(B2:B6)
Если мышкой нажать на формулу в строке функции ячейки В7, то пото формула срабатывает и выводится сумма.
В чем ошибка? Думаю не в коде, а в самом Excel, может я не в том формате сохраняю? хотя пробовал разные.
Может кто подскажет, буду благодарен. Еще прикреплю файл, если у себя откроете, и у вас все работает, дайте знать, значит и правда проблема в самом Excel

Код

К сообщению приложен файл: 5775665.xlsm (13.5 Kb)

Сообщение отредактировал Davka - Воскресенье, 25.08.2019, 08:01

Ответить

СообщениеЗдравствуйте.
Решил изучить подробнее Excel и VBA, начал читать книгу Эйткена "Интенсивный курс программирования в Excel за выходные". Дошел до первого примера и сразу же не получилось)
Строки кода один в один с книги:
[vba]

Код

Автор - Davka
Дата добавления - 24.08.2019 в 22:13

Pelena

Дата: Суббота, 24.08.2019, 23:41 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Davka, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Kuzmich

Дата: Воскресенье, 25.08.2019, 23:07 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Помогающим просьба воздержаться от ответов в этой теме до исправления замечания
Ответ удален.ТС еще не исправил замечание модератора

Сообщение отредактировал китин - Понедельник, 26.08.2019, 07:27

Ответить

Davka

Дата: Вторник, 27.08.2019, 22:54 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Код

Public Sub программа()
Range("B2").Select
ActiveCell.Value = InputBox("введите значение")
Range("B3").Select
ActiveCell.Value = InputBox("введите значение")
Range("B4").Select
ActiveCell.Value = InputBox("введите значение")
Range("B5").Select
ActiveCell.Value = InputBox("введите значение")
Range("B6").Select
ActiveCell.Value = InputBox("введите значение")
Range("B7").Select
ActiveCell.Formula = "=СУММ(B2:B6)"
ActiveWorkbook.SaveAs Filename:="программа.xls"
End Sub