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

Вход

Регистрация

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

 

= Мир MS Excel/Basic (Excel).Как тут добавить вывод результата? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Basic (Excel).Как тут добавить вывод результата? (Макросы/Sub)
Basic (Excel).Как тут добавить вывод результата?
cn8614086 Дата: Суббота, 20.11.2021, 22:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Задача: определить среднемесячную рентабельность работы предприятия за 4 квартал предыдущего года по формуле:

Р=П/(ОФ+ОБФ)*100,

где П- прибыль,
ОФ- основные фонды
ОБФ- обратные фонды за данный период.

По данной дате окончания периода определить начальную дату периода, по которой подводят итоги.

Вот мой код. Он явно с ошибками в расчётах, плюс, я не пойму как добавить тут вывод результата(((((
[vba]
Код

'Режим обязательного объявления переменных
Option Explicit

'Объявление глобальных переменных
Public DtmSegodnya As Date, DtmPotChas As Date

Private Sub CmdЗапуск_Click()
'Объявление переменных
Dim SngPribyl As Single, SngOsnovniyFondi As Single, SngObratniyFond As Single, SngPribyl As Single
Dim SngOsnovniyFondi As Single
Dim DtmStart As Date
Dim DtmFinish As Date
Dim IntDelta As Integer
Dim StrPovidoml As String

'Ввод входных данных
SngPribyl = CSng(TxtПрибыль.Text)
SngOsnovniyFondi = CSng(TxtОсновныеФонды.Text)
SngObratniyFond = CSng(TxtОбратныеФонды.Text)

'Расчёты
DtmStart = Now
TxtСтарт.Text = FormatDateTime(DtmStart, vbLongTime)
SngPribyl = SngPribyl / (SngOsnovniyFondi + SngObratniyFond) * 100
DtmFinish = DateAdd("n", SngPribyl, DtmStart)

'Вывод данных

End Sub
[/vba]
 
Ответить
СообщениеЗадача: определить среднемесячную рентабельность работы предприятия за 4 квартал предыдущего года по формуле:

Р=П/(ОФ+ОБФ)*100,

где П- прибыль,
ОФ- основные фонды
ОБФ- обратные фонды за данный период.

По данной дате окончания периода определить начальную дату периода, по которой подводят итоги.

Вот мой код. Он явно с ошибками в расчётах, плюс, я не пойму как добавить тут вывод результата(((((
[vba]
Код

'Режим обязательного объявления переменных
Option Explicit

'Объявление глобальных переменных
Public DtmSegodnya As Date, DtmPotChas As Date

Private Sub CmdЗапуск_Click()
'Объявление переменных
Dim SngPribyl As Single, SngOsnovniyFondi As Single, SngObratniyFond As Single, SngPribyl As Single
Dim SngOsnovniyFondi As Single
Dim DtmStart As Date
Dim DtmFinish As Date
Dim IntDelta As Integer
Dim StrPovidoml As String

'Ввод входных данных
SngPribyl = CSng(TxtПрибыль.Text)
SngOsnovniyFondi = CSng(TxtОсновныеФонды.Text)
SngObratniyFond = CSng(TxtОбратныеФонды.Text)

'Расчёты
DtmStart = Now
TxtСтарт.Text = FormatDateTime(DtmStart, vbLongTime)
SngPribyl = SngPribyl / (SngOsnovniyFondi + SngObratniyFond) * 100
DtmFinish = DateAdd("n", SngPribyl, DtmStart)

'Вывод данных

End Sub
[/vba]

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

вот файл, если что
К сообщению приложен файл: vba.xlsm(17.6 Kb)
 
Ответить
Сообщениевот файл, если что

Автор - cn8614086
Дата добавления - 20.11.2021 в 23:20
R_Dmitry Дата: Воскресенье, 21.11.2021, 09:55 | Сообщение № 3
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
Вам бы теорию подучить
Вывод данных


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Сообщение отредактировал R_Dmitry - Воскресенье, 21.11.2021, 09:55
 
Ответить
СообщениеВам бы теорию подучить
Вывод данных

Автор - R_Dmitry
Дата добавления - 21.11.2021 в 09:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Basic (Excel).Как тут добавить вывод результата? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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