powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с программой
9 сообщений из 34, страница 2 из 2
Помогите с программой
    #36510793
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
поскольку нет поддержки поиска подстроки, в практическом плане он практически неприменим.
...
Рейтинг: 0 / 0
Помогите с программой
    #36518603
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
задание:
Рассчитать столбец «Среднее значение суммы» для каждой строки (средствами VBA). Указания к выполнению задания:
• Для расчета среднего значения суммы по каждому номеру счета использовать оператор цикла FOR;
• Для движения по счетам - оператор цикла Do While.


саму таблицу я отпринтскринила и вставила в ворд, этот документ прилагается...

в коде нужно использовать 2 цикла...
сначала я написала с двумяциклами for... но ибо по заданию для передвижения по счетам необходимо использовать Do While, начал все это переделывать и вот что получилось

Sub заполнить_таблицу()
Dim i, k As Integer
Do
k = 4
k = k + 1
While k <= 12
Loop
For i = 2 To 11
Sheets("лист12").Cells(k, 12) = Sheets("лист12").Cells(k, 12) + Sheets("лист12").Cells(k, i) / 10
Next i
End Sub

но программа не работает((( наверно я не правильно совмещаю циклы... либо использую неправильный подход...
...
Рейтинг: 0 / 0
Помогите с программой
    #36518774
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
white_rat, чтобы программа работала, её надо исправить так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub заполнить_таблицу()
Dim i As Integer, k As Integer
k =  4 
Do While k <=  12 
k = k +  1 
For i =  2  To  11 
Sheets("лист12").Cells(k,  12 ) = Sheets("лист12").Cells(k,  12 ) + Sheets("лист12").Cells(k, i) /  10 
Next i
Loop
End Sub
но вот правильно ли она работает, не вникал, только вот заметил, что надо Do While k <= 11 или Do While k < 12, т.к. позже к увеличивается на 1 и у Вас доходит до 13.
...
Рейтинг: 0 / 0
Помогите с программой
    #36518784
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проверил, правильно, если изначально k = 3
Хотя вот такое вычисление среднего -
Sheets("лист12").Cells(k, 12) = Sheets("лист12").Cells(k, 12) + Sheets("лист12").Cells(k, i) / 10
я вижу наверное первый раз, хотя я не математик (да и не программист)...
...
Рейтинг: 0 / 0
Помогите с программой
    #36518928
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
white_rat, Вариант №2 - наладил программу, только переставив местами строки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub заполнить_таблицу()
Dim i As Integer, k As Integer
k =  4 
Do While k <=  12 
For i =  2  To  11 
Sheets("лист12").Cells(k,  12 ) = Sheets("лист12").Cells(k,  12 ) + Sheets("лист12").Cells(k, i) /  10 
Next i
k = k +  1 
Loop
End Sub
...
Рейтинг: 0 / 0
Помогите с программой
    #36519075
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Hugo121, очень вам благодарна!)

[...Хотя вот такое вычисление среднего -
Sheets("лист12").Cells(k, 12) = Sheets("лист12").Cells(k, 12) + Sheets("лист12").Cells(k, i) / 10
я вижу наверное первый раз, хотя я не математик (да и не программист)...]

я тоже вижу первый раз) ибо я студент экономического вуза...и информатика нас касается опосредованно, тут выбирать мне не приходилось, в голову больше ничего не пришло. пусть страшный, зато работающий вариант среднего)...
но так как меня этот вопрос заинтересовал, я бы хотела вас спросить, а как можно было бы еще вычислить среднюю сумму значений ячеек?
...
Рейтинг: 0 / 0
Помогите с программой
    #36519087
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
white_rat, большая просьба не мусорить в чужом топике. Есть вопрос - заведите свой.

а) люди могут быть подписаны на тему, и уведомления по вашим проблемам им неинтересны
б) топик может "вести" кто-то из отвечающих, и ваша проблемы могут оказаться не по его профилю
в) часть людей, единожды заглянув в топик, может туда больше не заглядывать, не сочтя эту тему интересной (вам же хуже, уменьшается количество потенциальных ответов на ваш вопрос)

Читайте правила форума.
...
Рейтинг: 0 / 0
Помогите с программой
    #36519094
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
white_rat, из школы помню - сумму слагаемых делить на количество слагаемых.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub заполнить_таблицу2()
Dim i As Integer, k As Integer, ind As Integer, tmp As Double
k =  4 
Do While k <=  12 
For i =  2  To  11 
tmp = tmp + Sheets("лист12").Cells(k, i)
ind = ind +  1 
Next i
Sheets("лист12").Cells(k,  12 ) = tmp / ind
ind =  0 : tmp =  0 
k = k +  1 
Loop
End Sub
в tmp накапливается сумма, параллельно считается количество слагаемых (избавляемся от жёстко заданного числа 10), затем делим одно на другое, обнуляем временные переменные.
...
Рейтинг: 0 / 0
Помогите с программой
    #36519099
white_rat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Hugo121, спасибо.
Shocker.Pro, приношу свои извинения. и удаляюсь)
...
Рейтинг: 0 / 0
9 сообщений из 34, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с программой
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]