ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel. Прибавление одного и того же числа к диапозону строк.
20 сообщений из 20, страница 1 из 1
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34631537
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Здравствуйте,
Хочу несколько оптимизировать свою программу... У меня есть база данных, состоящая из чисел - и необходимо к определенному диапазону строк прибавить одно и то же число.
Раньше я построчно прибавлял к содержимому строки это число, что не эффективно - можно же как то одной командой это сделать... Только я этого не знаю...
За ранее спасибо, Эриксон Артем.
...
Рейтинг: 0 / 0
02.07.2007, 11:27
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34631612
Ден Программёр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ден Программёр
Участник
ErikssonЗдравствуйте,
Хочу несколько оптимизировать свою программу... У меня есть база данных, состоящая из чисел - и необходимо к определенному диапазону строк прибавить одно и то же число.
Раньше я построчно прибавлял к содержимому строки это число, что не эффективно - можно же как то одной командой это сделать... Только я этого не знаю...
За ранее спасибо, Эриксон Артем.

Это очень интересно, и бы хотел узнать, как можно не пробежав по нужным строкам и не прибавив к ним нужного числа всё сделать. Как ты себе это представляешь?
...
Рейтинг: 0 / 0
02.07.2007, 11:44
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34631629
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Как мне представляется... можно оперировать диапозоном... (Range), а не ячейкой.
...
Рейтинг: 0 / 0
02.07.2007, 11:47
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34632012
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
мне тоже интересен твой вопрос, вот что дал поиск по слову Evaluate
...
Рейтинг: 0 / 0
02.07.2007, 13:36
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34632310
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ErikssonКак мне представляется... можно оперировать диапозоном... (Range), а не ячейкой.
Ну так и делай
[A1:A10] = [A1:A10+5]
...
Рейтинг: 0 / 0
02.07.2007, 14:42
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34632322
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если с Рэнджем, то так
Код: plaintext
Range("A1:A10").Formula = Evaluate(Range("A1:A10").Address & "+5")
...
Рейтинг: 0 / 0
02.07.2007, 14:44
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34636660
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Спасибо )
...
Рейтинг: 0 / 0
04.07.2007, 08:06
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34636967
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
DeggasadЕсли с Рэнджем, то так
Код: plaintext
Range("A1:A10").Formula = Evaluate(Range("A1:A10").Address & "+5")


Я не спец в языках, но правильнее наверное всё-таки

Код: plaintext
Range("A1:A10").Value = Evaluate(Range("A1:A10").Address & "+5")

Хотя разницы вроде нет!
...
Рейтинг: 0 / 0
04.07.2007, 10:38
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649112
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Возникла проблемка с использованием этой команды... Она работает как надо и с большими и малыми значениями sum, но порой записывает в ячейки не то что надо: "#ЗНАЧ!", хотя когда пошагово прогоняешь программу все значения sum корректны и программа ошибок не выдает.

Записывал по разному, но эффекта 0:
Worksheets(1).Range(p2).Formula = Worksheets(1).Evaluate(Range(p2).Address & "+" & CStr(sum))
Worksheets(1).Range(p2).Formula = Worksheets(1).Evaluate(Range(p2).Address & "+" & CCur(sum))
Worksheets(1).Range(p2).Value = Worksheets(1).Evaluate(Range(p2).Address & "+" & CStr(sum))
Worksheets(1).Range(p2).Value = Worksheets(1).Evaluate(Range(p2).Address & "+" & CCur(sum))

За ранее спасибо, Эриксон Артем.
...
Рейтинг: 0 / 0
10.07.2007, 07:25
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649115
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Когда записываешь следующим образом

Worksheets(1).Range(p2).Formula = CCur(Worksheets(1).Evaluate(Range(p2).Address & "+" & CStr(sum)))

всегда возвращает 2015 - независимо от значений в ячейках и от переменной sum.
...
Рейтинг: 0 / 0
10.07.2007, 07:35
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649214
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ErikssonВозникла проблемка с использованием этой команды... Она работает как надо и с большими и малыми значениями sum, но порой записывает в ячейки не то что надо: "#ЗНАЧ
За ранее спасибо, Эриксон Артем.
За что спасибо то? Ведь ты вопрос даже не задал.
Сказал что есть проблема. И потом сразу Спасибо
Спасибо за то чтобы все тут голову сломали как? когда? при каких обстоятельствах возникает твоя проблема?
Я это всё к тому, что файл выкладывай с твоей проблемкой! Иначе нихто не догадается что там за бяка!
...
Рейтинг: 0 / 0
10.07.2007, 09:05
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649243
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
ErikssonКогда записываешь следующим образом

Worksheets(1).Range(p2).Formula = CCur(Worksheets(1).Evaluate(Range(p2).Address & "+" & CStr(sum)))

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

Вот список ошибок и их коды :
#ПУСТО! - 2000
#ДЕЛ/0! -2007
#ЗНАЧ! - 2015
#ССЫЛКА! - 2023
#ИМЯ! - 2029
#ЧИСЛО! - 2036
#Н/Д! - 2042
#ССЫЛКА! - 2023
Попробуй разложить действия на поддействия чтобы понять где ошибка.

З.Ы.
DeggasadИначе нихто не догадается что там за бяка!
"Самоуверенность это хорошо, но не всегда"
...
Рейтинг: 0 / 0
10.07.2007, 09:26
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649277
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
vkodor
З.Ы.
DeggasadИначе нихто не догадается что там за бяка!
"Самоуверенность это хорошо, но не всегда"
ниХто и несамоуверенный, с чего бы мне, я человек маленький.
Только вот то что там ошибка "#ЗНАЧ!" автор и так указал, что ж тут за открытие?
...
Рейтинг: 0 / 0
10.07.2007, 09:44
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649409
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Нашел причину ошибки... Она возникает из-за прибавления нецелочисленных значений переменных. Вот я быстро накидал пример проги, чтобы быстро можно было оттестировать варианты решения проблемы.
...
Рейтинг: 0 / 0
10.07.2007, 10:26
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649638
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Поменял тип переменной
Код: plaintext
Dim sum As Long
Всё заработало
А что такое такое Currency? что за тип?

З.ы.: Я же говорил файл нужно выложить. И никакой самоуверенности нет, просто помочь хотел!
...
Рейтинг: 0 / 0
10.07.2007, 11:26
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649667
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Long не пойдет - это только целочисленные значения... )
...
Рейтинг: 0 / 0
10.07.2007, 11:33
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649700
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
А мне приходится работать с большими значениями, в том числе и с дробными - currency как раз для этого подходит... Вот только не могу найти решения, чтобы складывать нецелочисленные значения (
...
Рейтинг: 0 / 0
10.07.2007, 11:45
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649763
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Может дело в разделителе?
попробуй так
Код: plaintext
Worksheets( 1 ).Range(p2).Formula = CCur(Worksheets( 1 ).Evaluate(Range(p2).Address & "+" & CStr(Replace(sum,",","."))))
...
Рейтинг: 0 / 0
10.07.2007, 11:59
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34649776
Eriksson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eriksson
Гость
Да) Заработало, спасибо )
...
Рейтинг: 0 / 0
10.07.2007, 12:01
| Ответить | Цитировать | Написать  
VBA и Excel. Прибавление одного и того же числа к диапозону строк.
    #34650034
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Я не то чтобы не хотел продолжать беседу - Сеть недоступна была.
...
Рейтинг: 0 / 0
10.07.2007, 12:58
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Excel. Прибавление одного и того же числа к диапозону строк.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34649700&tid=2163756]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 207ms
total:  476ms
созд. / загр.: 476ms
x
x
Закрыть


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