Замена фиксированной позиции текста - Microsoft Office Excel

roborrr · 29.04.2011, 12:20

В ячейке записан текст длиной 15, нужно заменить четвертую позицию текста пробелом, независимо от того, что содержитсья в ней. Подскажите пожалуйста соответсвующий код VBA.

Hugo121 · 29.04.2011, 12:38

Код:

Sub tt()
Dim str_$
str_ = "123456789012345"
Mid(str_, 4, 1) = " "
End Sub

даже просто

Код:

Mid(str_, 4) = " "

vikttur · 30.04.2011, 08:47

Обязательно пару строк VBA?
Формула листа, одной строкой:

Код:

=ЗАМЕНИТЬ(A1;4;1;" ")

29.04.2011, 12:20	#1
roborrr Математик Форумчанин Регистрация: 27.02.2011 Сообщений: 123	Замена фиксированной позиции текста В ячейке записан текст длиной 15, нужно заменить четвертую позицию текста пробелом, независимо от того, что содержитсья в ней. Подскажите пожалуйста соответсвующий код VBA.

29.04.2011, 12:38	#2
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Код: `Sub tt() Dim str_$ str_ = "123456789012345" Mid(str_, 4, 1) = " " End Sub` даже просто Код: `Mid(str_, 4) = " "` webmoney: E265281470651 Z422237915069 R418926282008

30.04.2011, 08:47	#3
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	Обязательно пару строк VBA? Формула листа, одной строкой: Код: `=ЗАМЕНИТЬ(A1;4;1;" ")`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск текста с позиции найденного слова "+1"	artemavd	Общие вопросы Delphi	12	09.04.2011 19:59
Замена текста в ячейке	Пашка_1977	Microsoft Office Excel	3	17.08.2010 22:54
Замена текста	Lived08	Microsoft Office Excel	11	28.07.2010 14:20
замена текста	designer999	Общие вопросы Delphi	5	23.03.2010 17:31
замена текста	zetrix	Microsoft Office Excel	0	31.10.2006 07:54