Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символа / 13 сообщений из 13, страница 1 из 1
01.03.2006, 12:24:16
    #33573257
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Упарился в англ. хелпе искать. Вопрос простой. Код:
mat = InputBox(Range("J" & строка), "Стоимость материалов =")
Если ввожу дробную часть через точку то усе нормально. Он сам в ячейке заменяет на запятую. Если через запятую то число воспринимается как текст и арифмет. функции не работают.

Как выглядит функция замены символа в VBA? В переменной mat хочу заменять запятую на точку. А перед этим есно проверять чего я там вбил . или ,
...
Рейтинг: 0 / 0
01.03.2006, 12:28:27
    #33573272
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
По поводу замены символа смотри Replace.
А по поводу сроки ввода смотри переменную mat.
...
Рейтинг: 0 / 0
01.03.2006, 12:30:43
    #33573287
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Спасиба! Посмотрю.
...
Рейтинг: 0 / 0
01.03.2006, 12:37:49
    #33573329
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
k-nikeПо поводу замены символа смотри Replace.
А по поводу сроки ввода смотри переменную mat.
Нет. Я помню, что была ф-ция которая выдавала номер позиции искомого символа. И была ф-ция которой можно было указать с какой позиции и на что заменить.
...
Рейтинг: 0 / 0
01.03.2006, 12:46:44
    #33573376
5631
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Эти ?
ActiveCell.FormulaR1C1 = "=FIND(""b"",RC[-1],1)"
Mid()
...
Рейтинг: 0 / 0
01.03.2006, 13:03:37
    #33573478
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
5631Эти ?
ActiveCell.FormulaR1C1 = "=FIND(""b"",RC[-1],1)"
Mid()
С Mid получается пробежать в цикле всю строку и проверить символы.
Теперь с заменой ченить придумаю. Пасиба !
...
Рейтинг: 0 / 0
01.03.2006, 13:06:34
    #33573494
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Все получилось. Вот код
mlen = Len(mat)
newmat = ""
For i = 1 To mlen
a = Mid(mat, i, 1)
If a = "," Then a = "."
newmat = newmat & a
Next i
mat = newmat
...
Рейтинг: 0 / 0
01.03.2006, 13:07:35
    #33573499
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Для поиска в строке InStr
...
Рейтинг: 0 / 0
01.03.2006, 13:08:18
    #33573503
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
авторDescription

Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing substring to replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If omitted, the default value is –1, which means make all possible substitutions.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.
Одна проблема. По-моему, она не поддерживается в 97 экселе.
...
Рейтинг: 0 / 0
01.03.2006, 13:10:13
    #33573509
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
mat = Replace(mat, ",", ".")
...
Рейтинг: 0 / 0
01.03.2006, 13:17:53
    #33573534
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Дмитmat = Replace(mat, ",", ".")
Гдеж ты раньше был? Пасиба !
...
Рейтинг: 0 / 0
01.03.2006, 13:51:10
    #33573661
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
k-nike ответил сразу, недожевал однако :)
...
Рейтинг: 0 / 0
01.03.2006, 14:00:39
    #33573703
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена символа
Дмит k-nike ответил сразу, недожевал однако :)
Был бы talgat девушкой дожевал бы...)))
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символа / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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