Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2022, 14:22   #1
wadsspire
 
Регистрация: 07.04.2022
Сообщений: 7
По умолчанию Нужно написать код на VBA в Excel

Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4,
…, 2 кг конфет.


значения нужно вводить в InputBox, результаты в MsgBox.
Использовать цикл For...Next
wadsspire вне форума Ответить с цитированием
Старый 01.05.2022, 14:40   #2
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

мы вас сразу узнали: вы на прошлую помощь ничего не ответили

https://programmersforum.ru/showthre...26#post1847026

и парадоксально здесь примените ту же программу
и пишите ваш вариант в эту тему

причём у меня все ответы такие: программы мои 3-х летние
помогают через 5-летку
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 01.05.2022, 14:50   #3
wadsspire
 
Регистрация: 07.04.2022
Сообщений: 7
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
мы вас сразу узнали: вы на прошлую помощь ничего не ответили

https://programmersforum.ru/showthre...26#post1847026

и парадоксально здесь примените ту же программу
и пишите ваш вариант в эту тему

причём у меня все ответы такие: программы мои 3-х летние
помогают через 5-летку
написал вот такую программу, но тут, видимо, что-то не так, потому что ответы неверные выводит
Код:
Sub wfwf()
Dim c, b
с = InputBox("Bедите стоимость 1кг конфет")
For i = 1 To 5
b = (1 + i / 5) = (c * (1 + i / 5))
MsgBox b
Next
End Sub
wadsspire вне форума Ответить с цитированием
Старый 01.05.2022, 17:08   #4
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

применив знания из 1990-х по qbasic & укнц & zx spectrum
особенно шаг цикла
и задав переменные импортными буквами

Код:
Sub konfet()
Dim c, b
c = InputBox("Vvedite Zenu Konfet")
For i = 1 To 2 Step 0.2 ' kg konfet
b = c * i
MsgBox b
Next
End Sub
зато если потребуются все ответы в 1 окне
лично я создал бы строку символов ответов и вывелось
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 01.05.2022 в 17:12.
сфинкс вне форума Ответить с цитированием
Старый 01.05.2022, 20:29   #5
wadsspire
 
Регистрация: 07.04.2022
Сообщений: 7
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
применив знания из 1990-х по qbasic & укнц & zx spectrum
особенно шаг цикла
и задав переменные импортными буквами

Код:
Sub konfet()
Dim c, b
c = InputBox("Vvedite Zenu Konfet")
For i = 1 To 2 Step 0.2 ' kg konfet
b = c * i
MsgBox b
Next
End Sub
зато если потребуются все ответы в 1 окне
лично я создал бы строку символов ответов и вывелось
а как сделать так, чтобы все ответы вывелись в одном месседж боксе, а не в пяти?
wadsspire вне форума Ответить с цитированием
Старый 02.05.2022, 00:01   #6
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

народ мне тоже интересно как в 1 строку а пока решение необычное:

Код:
Sub konfet()
Dim c, b, a$
c = InputBox("Vvedite Zenu Konfet")
For i = 1 To 2 Step 0.2 ' kg konfet
b = c * i
a$ = a$ + Str$(b) + ", "
Next
MsgBox a$
End Sub
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать код на VBA в Excel, помогите пожалуйста wadsspire Помощь студентам 1 13.04.2022 13:12
Excel как в Excel написать формулу: если это название, то заданное число orlov_vov Помощь студентам 5 28.02.2019 10:07
помогите написать программу 'Трёхцветная раскраска графа Петерсена' нужно написать на языке С# под консольном приложения вижуал студио lysi Фриланс 4 04.07.2017 22:58
CreateObject("Excel.Application"), процесс Excel продолжает висеть в диспетчере, когда это уже не нужно Vceznayka Microsoft Office Excel 5 29.12.2011 13:40