ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Excel (Задачка)
10 сообщений из 10, страница 1 из 1
VBA - Excel (Задачка)
    #37571934
AnastasiLya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnastasiLya
Гость
Уж полночь близится решения все нет...
Сижу над задачкой, след. содержания :

"Дана заработная плата работников предприятия и размер потребительской корзины. Разработать функцию пользователя, определяющую количество работников предприятия, заработная плата которых меньше размера потребительской корзины."

В общем нарисовала я табличку http://clip2net.com/s/1oync , накалякала какой-то код, который не работает =) http://clip2net.com/s/1oyBa

Прошу помощи, хоть подсказку дайте,я чайник в VBA,а решить то нужно =(
...
Рейтинг: 0 / 0
12.12.2011, 23:49
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37571957
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Включи макрорекордер.
Запиши процесс внесения в какую-либо ячейку подсчёт требуемого количества (используя функцию СЧЁТЕСЛИ) и последующего удаления значения. Останови запись.
Между занесением и удалением добавь получение в переменную значения (value) изменяемой ячейки, перед кодом - процесс поиска пустой ячейки и использования именно её для операции, после кода - вывод значения переменной (скажем в msgbox).
Код готов.
...
Рейтинг: 0 / 0
13.12.2011, 00:09
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37571960
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А зачем тут VBA? Функция СЧЕТЕСЛИ, если не ошибаюсь.
...
Рейтинг: 0 / 0
13.12.2011, 00:11
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37571970
AnastasiLya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnastasiLya
Гость
Нужно не функцией счетесли, а именно кодом
...
Рейтинг: 0 / 0
13.12.2011, 00:20
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37571981
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AnastasiLyaхоть подсказку дайт

Подсказка №1 - типы переменных q и r - неправильные
Подсказка №2 - необязательно делать скриншот кода, его, предстваьте, можно копировать
...
Рейтинг: 0 / 0
13.12.2011, 00:29
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37571982
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Подсказка №3 - что это за ="<9000"?
...
Рейтинг: 0 / 0
13.12.2011, 00:30
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37572005
AnastasiLya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AnastasiLya
Гость
Почему не Long?
Эммм... а как нужно,если не "<9000"
...
Рейтинг: 0 / 0
13.12.2011, 01:08
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37572024
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AnastasiLyaПочему не Long?а почему Long? Хоть какое-то есть понимание о типе данных?
AnastasiLyaЭммм... а как нужно,если не "<9000"а как бы вы в обычной математике записани, что одно число больше другого?
...
Рейтинг: 0 / 0
13.12.2011, 01:34
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37572033
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Раз автору картинки больше нравятся и сам пытался что-то сделать - уважим
...
Рейтинг: 0 / 0
13.12.2011, 02:09
| Ответить | Цитировать | Написать  
VBA - Excel (Задачка)
    #37572092
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Код: vbnet
1.
2.
3.
' r - диапазон
' Condition - условие ( строка либо ссылка )
Function BeCycleCountIF&(r as Range, Condition): BeCycle = WorksheetFunction.CountIf(r, Condition): End Function
...
Рейтинг: 0 / 0
13.12.2011, 06:59
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA - Excel (Задачка)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=90&tid=2158238]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 12ms
total:  133ms
созд. / загр.: 133ms
x
x
Закрыть


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