Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изменить точку на запятую при трансляции данных
 
#1
26.02.2013 12:01:25
Помогите изменить "точку" на "запятую" при трансляции данных. В ячейку С лист "данные" идет трансляция курса доллара с "точкой" и при отправке на лист "январь" тоже транслирует с "точкой" и в ячейку N5 лист "данные" тоже также с "точкой". А необходимо чтобы была "запятая"! И получается некоректный пересчет формул! Как изменить чтобы была везде "запятая"? Помогите пожалуйста.
 
 
 
#2
26.02.2013 12:14:05
А если попробовать так: Ctrl+H "найти" . (точка), "заменить на" , (запятая).
У меня в Вашем файле везде запятые. Может в настройках Excel в качестве разделителя у Вас указана точка?
Изменено: Алексей К - 26.02.2013 12:17:23
 
 
 
#3
26.02.2013 12:40:44
Не могу выполнить замену-меняет везде точки на запятые, а мне необходимо только в ячейке С. А как изменить в настройках Excel? Мне необходимо чтобы данные в ячейку С лист "данные" поступали с "запятой", тогда формулы будут корректны. Еще раз проверил файл- там в ячейке С данные с "точкой".
 
 
 
#4
26.02.2013 12:53:07
Файл-Параметры-Дополнительно-Использовать системные разделители (в окошке должна стоять ,) Это для 2010 офиса.
 
 
 
#5
26.02.2013 13:07:58
В код листа "Данные"
Код
?
1
2
3
4
5
6
7
Private Sub Worksheet_Activate()
r = Cells(Rows.Count, 3).End(xlUp).Row
Set rr = Range(Cells(4, 3), Cells(r, 3))
For Each x In rr
x.Value = Val(x)
Next
End Sub
 
 
 
#6
26.02.2013 17:46:29
спасибо Алексей. так вышел пока из ситьуации. а если нужна запятая, то опять менять все назад- и везде будет запятая?
к61 также спасибо за помощь, но как вставить это в код листа-не знаю. ломаю голову. может подскажите или сделайте плиз в моем файле
 
 
 
#7
26.02.2013 18:08:58
В Вашем файле, правой кнопкой мыши на ярлычке листа - исходный текст.
 
 
 
#8
26.02.2013 18:11:15
Цитата
В код листа "Данные"
x.Value = Val(x)
Заменить на:
Код
?
1
If Not IsNumeric(x) Then x.Value = Val(x)

Иначе при второй активации листа отбрасывает дробную часть.
Изменено: k61 - 26.02.2013 18:30:53
 
 
 
#9
26.02.2013 19:28:28
Я обычно пользуюсь вот этим:
Код
?
1
2
3
Sub StrToNum()
    Cells.Replace ".", ".", 2
End Sub

При этом надо учитывать совет из ответа #2. Такой код ничего не поменяет в нечисловых ячейках, а числовые станут восприниматься Эксом правильно.
Я сам - дурнее всякого примера! ...
 
 
 
#10
25.12.2024 04:31:04
Цитата
написал:
Cells.Replace ".", ".", 2
А что означает 2 в этой строке подскажите пожалуйста
Изменено: novinky - 25.12.2024 04:31:15
 
 
 
#11
25.12.2024 08:01:31
novinky, добрый день!
Думаю, что нужно посмотреть справку по VBA по методу Range.Replace и XlLookAt
 
 
 
#12
25.12.2024 12:07:10
Cells.Replace ".", ".", 2

Несколько часов назад пробовал работал. А сейчас, точку убирает а запятую не подставляет. Подскажите пожалуйста как исправить
Изменено: novinky - 25.12.2024 12:39:47
 
 
 
Страницы: 1
Читают тему
Loading...