|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.08.2011, 05:45 | #1 |
Пользователь
Регистрация: 25.07.2011
Сообщений: 42
|
Проблема с макросом в Excel
Есть книга Excel на в которой прописан макрос:
Код:
Создаю новую книгу там пишу там точно такой же макрос и он не работает. Подскажите в чем проблема. И если не сложно прокоментите код по строчкам а то я не когда не писал на VBA. Даже не знаю что происходит. |
04.08.2011, 07:30 | #2 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Когда вы создаете новую книгу то в ней должен быть лист
НСС (в макросе к нему идет обращение Worksheets("НСС")) На этом листе в ячейке Y1 (Range("Y1")) должно находится имя папки куда будет сохраняться файл Вроде все!
Заказать макрос можно на сайте http://excel4you.ru/
|
04.08.2011, 07:34 | #3 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
04.08.2011, 09:45 | #4 |
Пользователь
Регистрация: 25.07.2011
Сообщений: 42
|
Спасибо большое за помошь
|
04.08.2011, 12:08 | #5 |
Регистрация: 23.06.2011
Сообщений: 4
|
У меня по проще проблемка...
Dim K, N, M As Double K = 145.12 N = 1.2 K = K * 100 M = K Mod N Почему M равно нулю, хоть убей не догоняю... |
04.08.2011, 12:22 | #6 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
А что вы хотите получить в результате? То, что вы написали эквивалентно 14512\1. Какой тут остаток от деления? Правильно - 0.
Вот справка: The modulus, or remainder, operator divides number1 by number2 (rounding floating-point numbers to integers) and returns only the remainder as result. For example, in the following expression, A (result) equals 5. A = 19 Mod 6.7
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
04.08.2011, 12:38 | #7 |
Регистрация: 23.06.2011
Сообщений: 4
|
Хочу получить 0,4. Почему делится на 1, а не на 1,2?
|
04.08.2011, 13:06 | #8 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Вы вообще не понимаете что такое оператор Mod. Этот оператор возвращает остаток от целочисленного деления. Т.е.
3 mod 3=0 4 mod 3=1 5 mod 3=2 6 mod 3=0 и т.д. Вот эта строка: operator divides number1 by number2 (rounding floating-point numbers to integers) означает, что числа с плавающей запятой округляются до целого, в вашем случае 14512\1. Дальше см. мой предыдущий пост.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
04.08.2011, 13:18 | #9 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Не знаю, откуда взялось 0.4, так можно получить остаток от дробного деления:
Public Sub www() Dim K As Double, N As Double, M As Double ' Иначе K,N - variant K = 145.12 N = 1.2 K = K * 100 M = K / N - Fix(K / N) End Sub М=0,333333333333781
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 04.08.2011 в 13:21. |
04.08.2011, 13:31 | #10 |
Регистрация: 23.06.2011
Сообщений: 4
|
Я руководствовался этим:
В следующем примере оператор Mod используется для деление одного числа на другое и возврата только остатка. Если оба числа являются числами с плавающей запятой, результат является числом с плавающей запятой, представляющим остаток. Dim testResult As Double testResult = 10 Mod 5 testResult = 10 Mod 3 testResult = 12 Mod 4.3 testResult = 12.6 Mod 5 testResult = 47.9 Mod 9.35 Выражения в предыдущем примере возвращает значения 0, 1, 3.4, 2.6 и 1.15. Оригинал тут: http://msdn.microsoft.com/ru-ru/library/se0w9esz.aspx Соответственно: 14512 mod 1,2 должно быть 0,4 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отправка почты макросом Excel | hunter27 | Microsoft Office Excel | 110 | 21.08.2014 13:48 |
переименование файлов в папке макросом из Excel | xamillion | Microsoft Office Excel | 32 | 14.10.2013 11:48 |
Импорт данных из Word в Excel макросом | vv66 | Microsoft Office Excel | 17 | 27.01.2012 14:49 |
Импорт данных из Excel в Excel макросом | vnmz | Microsoft Office Excel | 2 | 04.03.2011 18:04 |