Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
 Аватар для Qwastro
0 / 0 / 0
Регистрация: 20.11.2014
Сообщений: 4

Макрос не считает суммарную стоимость всех рейсов в заданный город

20.11.2014, 17:49. Показов 1512. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте вообще столкнулся с такой проблемой vba не хочет считать сумму , вроде правильно пишу , но мне просто ничего не выводит в текст бокс , сами данные лежат на втором листе excel , пишу на 6-ый баттон(на нем написанно 5-ый баттон) и ещё я бы хотел реализовать в своей программе листбокс в который будут записываться занятые места , но не имею понятия как его описать, заранее спасибо!
P.S. заранее спасибо!
Вложения
Тип файла: rar finalochka.rar (118.9 Кб, 5 просмотров)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.11.2014, 17:49
Ответы с готовыми решениями:

Определить общее количество рейсов в заданный город
Работаю с проектом в VBA, нужна помощь. Помогите сделать так, чтобы можно было определить общее количество рейсов в заданный город ...

Определить суммарную стоимость всех товаров, используя рекурсию (VBA)
Всем привет! Помогите, пожалуйста, доделать работу. Нужно определить суммарную стоимость всех товаров, используя рекурсию - это одно из...

Найти минимальную и максимальную возможную суммарную стоимость всех заготовок в ящике
в ящике лежат заготовки 4 видов.вес заготовки каждого вида составляет 4,8,2,5кг.стоимость заготовки каждого вида состовляет 200,500,300,400...

1
 Аватар для pashulka
4138 / 2242 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
20.11.2014, 18:47
Лучший ответ Сообщение было отмечено Qwastro как решение

Решение

Если решить поставленную задачу необходимо именно с помощью цикла, то :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton6_Click()
 
Dim i%, sum#, city$, time As Date
 
city = ComboBox3.Text
time = CDate(ComboBox4.Text)
 
For i = 3 To 100
    If (Лист2.Cells(i, 1) = city) And (CDate(Лист2.Cells(i, 3)) = time) Then
       sum = sum + Лист2.Cells(i, 8)
    End If
Next i
TextBox2.Text = sum
 
End Sub
Но сомнительно, что Вам нужно посчитать именно сумму, ибо маловероятно, что в один город, причём в одно и тоже время, вылетают несколько рейсов ... скорее всего Вам достаточно найти нужный рейс и определить его стоимость, т.е.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton6_Click()
 
Dim i%, city$, time As Date
 
city = ComboBox3.Text
time = CDate(ComboBox4.Text)
 
For i = 3 To 100
    If (Лист2.Cells(i, 1) = city) And (CDate(Лист2.Cells(i, 3)) = time) Then
       TextBox2.Text = Лист2.Cells(i, 8): Exit For
    End If
Next i
 
End Sub
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.11.2014, 18:47
Помогаю со студенческими работами здесь

Арифметические операции с числами из файла - определить суммарную стоимость всех купленных товаров
Прошу помочь мне в написании программы: Создать программу , которая по текстовому файлу,каждая строка которого содержит 2...

Зная стоимость каждой единицы оборудования, определить суммарную стоимость и кол-во единиц оборуд-я, проработавших > 10 лет
Здрастуйте) помогите задачку по С++ на цикл с постусловием В цехе установлено 15 единиц оборудования, каждое из каких отработало срок...

Структура: Вывести информацию обо всех маршрутах, в которых заданный город является или конечной или начальной точкой...
код маршрута, начальная точка маршрута (город), конечная точка маршрута (город), время в пути (минуты). Операция: пользователь вводит...

Задача "Магазин животных": Посчитать суммарную стоимость всех животных.
Доброго времени суток Прошу помощи в решении задачи Исходный файл: CAT Mike 3 3700 DOG Tom 2 2900 CAT Tick 4.5 3500 DOG...

Определить суммарную стоимость билетов
Необходимо сделать задачу, пожалуйста!! завтра зачет, а я не успеваю. препод достал! и так уже слезы пускала... Если есть кто желающий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru