Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
ЗАМЕНИТЬ ЗАПЯТУЮ НА ТОЧКУ В КОНКРЕТНОЙ ЯЧЕЙКЕ
 
#1
28.05.2011 11:55:11
Приветствую форумчан. Пытаюсь заменить запятую на точку в конкретной ячейке (значение) при помощи кода:  
 
Cells(XM1, 10).Replace ",", ".", xlPart  
 
Замена не происходит. Подозреваю, что нужно поменять xlPart  
на что-то другое. Подскажите, плиз, кто знает...  
Заранее благодарен.
 
 
 
#2
28.05.2011 12:00:55
Cells(XM1, 10) = Replace(Cells(XM1, 10), ",", ".")
 
 
 
#3
28.05.2011 12:18:23
ALEX1377, забыл Вам сказать - проверьте клавишу Caps Lock на своей клавиатуре.
 
 
 
#4
28.05.2011 13:27:17
Если в ячейке - число, то не сработает ни то, ни другое. Так надо:  
Cells(XM1, 10).formulalocal = Replace(Cells(XM1, 10), ",", ".")
 
 
 
#5
30.05.2011 10:36:36
Спасибо, помогло!!!  
Запятую меняю на точку, чтобы в ячейку с десятичной дробью добавить умножение на другую ячейку. Теперь получилось так:  
 
'Значение в ячейке Cells(X,Y) числовое, с запятой - например 31,256  
X = 2  
Y = 1  
 
Cells(X, Y).FormulaLocal = Replace(Cells(X, Y), ",", ".")  
 
ZN = Cells(X, Y)  
 
Cells(X, Y).Formula = "=" & ZN & "*A1"  
 
Если без замены на точку - VBA ругается...  
 
Попутный вопросик - это самый упрощённый вариант, или можно код ещё упростить???
 
 
 
#6
30.05.2011 10:44:44
Додул сам )))  
Достаточно так:  
 
Cells(X, Y).FormulaLocal = "=" & Cells(X, Y) & "*A1"  
 
Всё пытаюсь овладеть премудростями VBA EXCEL... Посоветуйте какую-нибудь полезную книжку, желательно в формате PDF (не люблю читать от корки до корки - проще пользоваться поиском в PDF). У самого есть полезная книжка в PDF:    
 
Профессиональное программирование на VBA в Excel 2003.pdf  
 
Всё что мог, из нёё почерпнул... Многое чего не понял. Нужен уровень для начинающих и середнячков... Предлагаю обменяться. Пишите на info@stroy-expert1.ru   Для обмена можно воспользоваться файлообменником - ссылку для закачки и скачки скину...)))
 
 
 
#7
30.05.2011 12:48:29
{quote}{login=ALEX1377}{date=30.05.2011 10:36}{thema=}{post}Спасибо, помогло!!!  
Запятую меняю на точку, чтобы в ячейку с десятичной дробью добавить умножение на другую ячейку. {/post}{/quote}  
А зачем что-то менять в ячейке? cells(1,1)=cells(1,2)*cells(1,3)
 
 
 
#8
30.05.2011 16:53:48
Потому что необходимо было ячейку со значением преобразовать в формулу с использованием значения в ячейке. Можно, конечно, использовать вспомогательную ячейку - но если можно обойтись одной ячейкой - нужно обходиться одной (на листе и так всё забито))))) Спасибо за помощь....
 
 
 
#9
30.05.2011 16:56:50
А зачем вообще кодом вставлять в ячейку формулу? Вычисляйте всё в коде.
 
 
 
#10
30.05.2011 17:30:17
...при изменении определённых значений на листе, должен пересчитываться весь лист, поэтому необходима формула....)))))) У меня теперь новый вопросик по упрощению. использую следующее условие: <<STRONG>Удалено</STRONG>> Читаем Правила.
 
 
 
Страницы: 1
Читают тему
Наверх