Как написать макрос на перемену данных в одной ячейке - Microsoft Office Excel

nadia111 · 19.12.2009, 11:02

Всем, привет. Не могу нигде найти макрос по изменению данных в ячейке в процентном соотношении. Если использовать текст по столбцам, а потом через амперсанд проценты теряются. В одной ячейке есть данные: хл70%, пэ30%, как можно через макрос сделать так: 70%хл, 30%пэ?????

Pavel55 · 19.12.2009, 12:45

Попробуйте так. Выделите ячейки с данными и запустите макрос

Код:

Sub Макрос1()
Dim iCell As Range
    For Each iCell In Selection
        If Not IsEmpty(iCell) Then
            iCell = Mid(iCell, 3, Len(iCell) - 2) & Left(iCell, 2)
        End If
    Next iCell
    MsgBox "Конец", 64, ""
End Sub

Teslenko_EA · 19.12.2009, 12:55

Здравствуйте nadia111.
"В одной ячейке...", если применение "макроса" не критично, результат можно получить формулой:
=ПСТР(A1;3;3)&ЛЕВСИМВ(A1;2)&", "&ПСТР(A1;10;3)&ПСТР(A1;8;2)
Евгений.

nadia111 · 19.12.2009, 13:00

PAVEL55 Огромное вам СПАСИБО

nadia111 · 19.12.2009, 13:17

Евгений, вам тоже спасибо.

19.12.2009, 11:02	#1
nadia111 Регистрация: 19.12.2009 Сообщений: 8	Как написать макрос на перемену данных в одной ячейке Всем, привет. Не могу нигде найти макрос по изменению данных в ячейке в процентном соотношении. Если использовать текст по столбцам, а потом через амперсанд проценты теряются. В одной ячейке есть данные: хл70%, пэ30%, как можно через макрос сделать так: 70%хл, 30%пэ?????

19.12.2009, 12:45	#2
Pavel55 Форумчанин Регистрация: 21.08.2007 Сообщений: 292	Попробуйте так. Выделите ячейки с данными и запустите макрос Код: `Sub Макрос1() Dim iCell As Range For Each iCell In Selection If Not IsEmpty(iCell) Then iCell = Mid(iCell, 3, Len(iCell) - 2) & Left(iCell, 2) End If Next iCell MsgBox "Конец", 64, "" End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одна буква в одной ячейке	Palantir	Microsoft Office Excel	8	10.12.2009 19:09
Помогите плиз правильно написать макрос обновления данных из разных файлов	Legame	Microsoft Office Excel	10	10.09.2009 10:39
Как написать макрос для копирования диапазонов данных с приращением	Yevgen_pro	Microsoft Office Excel	0	09.09.2009 16:12
как разделить данные в одной ячейке, которые разделены ";", на строки?	Margaritka	Microsoft Office Excel	2	10.03.2009 20:16
Как запустить макрос по изменению значения в ячейке?	zander	Microsoft Office Excel	4	23.02.2009 10:46

19.12.2009, 12:55	#3
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте nadia111. "В одной ячейке...", если применение "макроса" не критично, результат можно получить формулой: =ПСТР(A1;3;3)&ЛЕВСИМВ(A1;2)&", "&ПСТР(A1;10;3)&ПСТР(A1;8;2) Евгений.

19.12.2009, 13:00	#4
nadia111 Регистрация: 19.12.2009 Сообщений: 8	PAVEL55 Огромное вам СПАСИБО

19.12.2009, 13:17	#5
nadia111 Регистрация: 19.12.2009 Сообщений: 8	Евгений, вам тоже спасибо.