Расчет значения и вывод данных в ячейки слева

@dj_oni · Регистрация: 02.10.2013

Студворк — интернет-сервис помощи студентам

Заранее извиняюсь если решение где то есть, но я его не нашел.
Есть значение в ячейке S в зависимости от его значения меняется коэффициент. Далее еще должно идти одно сравнение и расчет нескольких переменных которые нужно вывести в соседние слева ячейки от ячейки S
естественно строк с такими переменными много и как тут решить проблему вообще понять не могу

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function PR(value As String) As String
Dim kpf, As String
If value <= 1000 Then kpf = 1.038
If value <= 2500 Then kpf = 1.034
If value <= 5000 Then kpf = 1.03
 
If value >= 4700 Then
PR1 = value * kpf
PR2 = PR1 * kpf
PR3 = PR2 * kpf
ActiveSheet.Cells(, -2) = PR1
ActiveSheet.Cells(, -3) = PR2
ActiveSheet.Cells(, -4) = PR3
If value >= 2800 Then
PR1 = value * kpf * 0.2
PR2 = PR1 * kpf * 0.3
PR3 = PR2 * kpf * 0.3
ActiveSheet.Cells(, -2) = PR1
ActiveSheet.Cells(, -3) = PR2
ActiveSheet.Cells(, -4) = PR3
End Function

У меня работает или подсчет или вывод по отдельности, но вместе этот бардак не работает,то что у меня написано конечно не совсем верно, но думаю так суть понятна.
Заранее спасибо

@dj_oni · 06.10.2013, 20:57 **[ТС]**

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

@Igor_Tr · 06.10.2013, 21:38

У toiai все хорошо. У Вас ищите. Или при вызове функции не передаете аргумент, или он пустой, или "не в диапазоне". Вот как раз Debug может Вам помочь
Сразу после Dim r&, c& (ниже), пропишите

Visual Basic
1
2
stop
debug.print myValue

Код остановится на stop, а в окне immediate сможете посмотреть, что там (но перед запуском очистите immediate.

@dj_oni · 06.10.2013, 22:52 **[ТС]**

Вы правы заработало, почти заработало
В ячейке в которой я забиваю PR(K10) естественно пишет ошибку #знач!, но даже это не беда, беда в том чтобы получить различные PR в отображении нужно нажать "показать этапы вычислений" вручную... что в итоге сводит все на нет ... как с этим бороться???

@Igor_Tr · 06.10.2013, 23:53

Бороться просто. Нужно по максимуму использовать возможности VBE. Это и окно, которое Вы уже знаете, и окна Locals и Watch, и..., ...etc. Идти по коду вручную и вылавливать "клещи", как я на собаках каждую весну.

@dj_oni · 08.10.2013, 07:15 **[ТС]**

Igor_Tr, это просто когда знаешь особенности языка программирования.

@Igor_Tr · 08.10.2013, 09:45

Стоит убить какое-то время, что б с этим разобраться. День за книгой сэкономит кучу времени. Ну, еще можно попробовать книгу под подушку ночью.

@dj_oni · 09.10.2013, 21:02 **[ТС]**

Спасибо, классный совет изучить язык программирования, который мне совсем не интересен и нужен лишь на один раз

@Igor_Tr · 09.10.2013, 21:32

Я не по ошибке нажал Вам спасибо! Клянусь!!! Теперь мне обясните, ну пожалуйста, Вам занятся нечем? Заплатите кому-нибудь здесь на форуме - Вам быстренько сделают, а Вы в то время можете спокойно заниматься тем, что интересно и приносит деньги. Больше и больше денег, чем нужно заплатить за "один раз"!

Святая Мария! Мне кажется, я здесь что-то не то или не так наговорил....

@dj_oni · 14.10.2013, 16:25 **[ТС]**

Igor_Tr, Занятся мне есть чем, но поскольку я вроде не совсем идиот, то наивно хотел решить это сам, пологая что у мелкософта все будет просто. Но походу Вы правы, придется искать того кто это быстренько за денежку доведет до ума... что во общем то меня огорчает, не столько трата денежки, сколько сам сей факт

@Hugo121 · 14.10.2013, 16:31

Вот с "и нужен лишь на один раз" я бы поспорил. То, что Вы так думаете - с этим спорить не стану. Но вот с тем, что больше нигде никогда не смогли бы сократить часы и даже дни работы - поспорю. Ну если Вы конечно не уходите в дворники, который не ведёт никаких учётов мётел...

@Igor_Tr · 14.10.2013, 18:06

Никто никого тупым не считает!!!

Но если мне нужно что-то отфрезеровать - зачем становиться фрезеровщиком? Начертил, отдал, заплатил, забыл. Помнится только вкус пива, пока пришлось ждать.

Что же тут может огорчать?

А вот в второй раз - тогда и будет нужно подойти серьйозно. Забудьте!

@dj_oni · 14.10.2013, 18:56 **[ТС]**

Hugo121, то что я сейчас хочу получить, по сути дела специфика, для остального есть, стандартные функции excel и мелкие функции vba которые я или написал или прочитал как написать и они нормально работают.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	06.10.2013, 20:57 [ТС]
	toiai, не знаю в чем дело , моя конечно тоже не работала, но она хотя бы не ругалась, а здесь пишет: "у данной функции аргументов нет" 0

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	06.10.2013, 22:52 [ТС]
	Вы правы заработало, почти заработало В ячейке в которой я забиваю PR(K10) естественно пишет ошибку #знач!, но даже это не беда, беда в том чтобы получить различные PR в отображении нужно нажать "показать этапы вычислений" вручную... что в итоге сводит все на нет ... как с этим бороться??? 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	06.10.2013, 23:53
	Бороться просто. Нужно по максимуму использовать возможности VBE. Это и окно, которое Вы уже знаете, и окна Locals и Watch, и..., ...etc. Идти по коду вручную и вылавливать "клещи", как я на собаках каждую весну. 0

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	08.10.2013, 07:15 [ТС]
	Igor_Tr, это просто когда знаешь особенности языка программирования. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	08.10.2013, 09:45
	Стоит убить какое-то время, что б с этим разобраться. День за книгой сэкономит кучу времени. Ну, еще можно попробовать книгу под подушку ночью. 1

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	09.10.2013, 21:02 [ТС]
	Спасибо, классный совет изучить язык программирования, который мне совсем не интересен и нужен лишь на один раз 1

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	09.10.2013, 21:32
	Я не по ошибке нажал Вам спасибо! Клянусь!!! Теперь мне обясните, ну пожалуйста, Вам занятся нечем? Заплатите кому-нибудь здесь на форуме - Вам быстренько сделают, а Вы в то время можете спокойно заниматься тем, что интересно и приносит деньги. Больше и больше денег, чем нужно заплатить за "один раз"! Святая Мария! Мне кажется, я здесь что-то не то или не так наговорил.... 0

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	14.10.2013, 16:25 [ТС]
	Igor_Tr, Занятся мне есть чем, но поскольку я вроде не совсем идиот, то наивно хотел решить это сам, пологая что у мелкософта все будет просто. Но походу Вы правы, придется искать того кто это быстренько за денежку доведет до ума... что во общем то меня огорчает, не столько трата денежки, сколько сам сей факт 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.10.2013, 16:31
	Вот с "и нужен лишь на один раз" я бы поспорил. То, что Вы так думаете - с этим спорить не стану. Но вот с тем, что больше нигде никогда не смогли бы сократить часы и даже дни работы - поспорю. Ну если Вы конечно не уходите в дворники, который не ведёт никаких учётов мётел... 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	14.10.2013, 18:06
	Никто никого тупым не считает!!! Но если мне нужно что-то отфрезеровать - зачем становиться фрезеровщиком? Начертил, отдал, заплатил, забыл. Помнится только вкус пива, пока пришлось ждать. Что же тут может огорчать? А вот в второй раз - тогда и будет нужно подойти серьйозно. Забудьте! 0

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	14.10.2013, 18:56 [ТС]
	Hugo121, то что я сейчас хочу получить, по сути дела специфика, для остального есть, стандартные функции excel и мелкие функции vba которые я или написал или прочитал как написать и они нормально работают. 0