|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
26.10.2008, 11:37 | #11 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Перед строкой iSS = iSS + Cells(i + 13, 5) * val(Cells(i + 13, 4).Value)
добавьте строку Cells(i + 13, 5).Interior.ColorIndex = 3 После этого измените любую ячейку в 4 или 5 столбце. При этом ячейки, для которых будут выполняться вычисления, окрасятся в красный цвет. Сразу видно, что суммируются данные совсем не из того диапазона, из которого нужно... После чего измените эти строки на Cells(i , 5).Interior.ColorIndex = 3 iSS = iSS + Cells(i , 5) * Cells(i , 4) Теперь выделение цветом подскажет, что вычисления производятся верно. Кроме того, вместо использования кода Код:
(через меню Данные - Проверка) Цитата:
(рано или поздно Ваш бухгалтер всё равно снова вместо числа занесёт в ячейку что-нибудь неподходящее) Можете использовать подобный код в качестве обёртки для получения числового значения ячейки: Код:
Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 26.10.2008 в 11:55. |
|
26.10.2008, 12:17 | #12 | ||
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Цитата:
С остальным, разбираюсь! |
||
26.10.2008, 12:33 | #13 | |||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Цитата:
Результатом выражения Cells(1, 1).Value Like String(8, "#") будет True, если все 8 символов ячейки Cells(1, 1) являются цифрами. Код If Not Cells(1, 1).Value Like String(8, "#") Then Cells(1, 1).Value = "" будет удалять содержимое ячейки Cells(1, 1), если в неё введено что-либо кроме 8-значного числа Цитата:
Данные - Проверка Тип данных - целое число, Значение - между, Минимум - 10000000, Максимум - 99999999 Сообщение об ошибке - Действие - Останов Пусть потом Ваш так называемый "бух." попытается вбить в ячейку что-нибудь кроме 8-значного числа...
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 26.10.2008 в 12:47. |
|||
26.10.2008, 13:07 | #14 | ||
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Цитата:
Вводится № в яч. К34:К39 и далее с шагом 51(К85:К90,....) |
||
26.10.2008, 13:18 | #15 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Цитата:
Код:
|
||
26.10.2008, 13:31 | #16 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Указать нужный тип переменной | KiDoki | Общие вопросы Delphi | 3 | 06.10.2008 17:11 |
Как указать в регулярке............ | Adamant | PHP | 12 | 25.03.2008 10:11 |
Указать критерии поиска? | фЁдОр | БД в Delphi | 28 | 18.02.2008 17:17 |
Как указать путь компилируемуму exe файлу | shurik_7866 | Общие вопросы Delphi | 2 | 18.07.2007 23:24 |
Как указать диапазон чисел? | Inbox | Общие вопросы Delphi | 2 | 29.06.2007 01:21 |