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

Как выглядит функция замены символа в VBA? В переменной mat хочу заменять запятую на точку. А перед этим есно проверять чего я там вбил . или ,
...
Рейтинг: 0 / 0
Замена символа
    #33573272
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По поводу замены символа смотри Replace.
А по поводу сроки ввода смотри переменную mat.
...
Рейтинг: 0 / 0
Замена символа
    #33573287
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасиба! Посмотрю.
...
Рейтинг: 0 / 0
Замена символа
    #33573329
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
k-nikeПо поводу замены символа смотри Replace.
А по поводу сроки ввода смотри переменную mat.
Нет. Я помню, что была ф-ция которая выдавала номер позиции искомого символа. И была ф-ция которой можно было указать с какой позиции и на что заменить.
...
Рейтинг: 0 / 0
Замена символа
    #33573376
5631
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эти ?
ActiveCell.FormulaR1C1 = "=FIND(""b"",RC[-1],1)"
Mid()
...
Рейтинг: 0 / 0
Замена символа
    #33573478
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
5631Эти ?
ActiveCell.FormulaR1C1 = "=FIND(""b"",RC[-1],1)"
Mid()
С Mid получается пробежать в цикле всю строку и проверить символы.
Теперь с заменой ченить придумаю. Пасиба !
...
Рейтинг: 0 / 0
Замена символа
    #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
Замена символа
    #33573499
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для поиска в строке InStr
...
Рейтинг: 0 / 0
Замена символа
    #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
Замена символа
    #33573509
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mat = Replace(mat, ",", ".")
...
Рейтинг: 0 / 0
Замена символа
    #33573534
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дмитmat = Replace(mat, ",", ".")
Гдеж ты раньше был? Пасиба !
...
Рейтинг: 0 / 0
Замена символа
    #33573661
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
k-nike ответил сразу, недожевал однако :)
...
Рейтинг: 0 / 0
Замена символа
    #33573703
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дмит k-nike ответил сразу, недожевал однако :)
Был бы talgat девушкой дожевал бы...)))
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Замена символа
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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