Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/в ячейке надпись а/b,а надо сделать наоборот b/а - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » в ячейке надпись а/b,а надо сделать наоборот b/а (Макросы/Sub)
в ячейке надпись а/b,а надо сделать наоборот b/а
dmitriy25 Дата: Среда, 25.11.2015, 01:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Подскажите, пожалуйста, как можно сделать в Excel макрос:
в ячейке надпись: "TA3.A:3S1/X1:11", а надо сделать "X1:11/TA3.A:3S1"
и так для каждой ячейки.
Заранее ограмное спасибо! и очень надеюсь на Вашу помощь!)
 
Ответить
СообщениеЗдравствуйте!
Подскажите, пожалуйста, как можно сделать в Excel макрос:
в ячейке надпись: "TA3.A:3S1/X1:11", а надо сделать "X1:11/TA3.A:3S1"
и так для каждой ячейки.
Заранее ограмное спасибо! и очень надеюсь на Вашу помощь!)
Автор - dmitriy25
Дата добавления - 25.11.2015 в 01:13
wild_pig Дата: Среда, 25.11.2015, 08:05 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
[vba]
Код
Sub uuu()
    For Each cel In ActiveSheet.UsedRange
        If InStr(cel.Value, "/") > 0 Then
            sp = Split(cel.Value, "/")
            cel.Value = sp(1) & "/" & sp(0)
        End If
    Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub uuu()
    For Each cel In ActiveSheet.UsedRange
        If InStr(cel.Value, "/") > 0 Then
            sp = Split(cel.Value, "/")
            cel.Value = sp(1) & "/" & sp(0)
        End If
    Next
End Sub
[/vba]
Автор - wild_pig
Дата добавления - 25.11.2015 в 08:05
dmitriy25 Дата: Среда, 25.11.2015, 12:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, все работает, только мне надо,чтобы старые значения оставались, к примеру я выделил несколько ячеек, выполнил макрос, старые значения остались,а рядом в другой ячейке появились перевернутые значения
 
Ответить
СообщениеСпасибо, все работает, только мне надо,чтобы старые значения оставались, к примеру я выделил несколько ячеек, выполнил макрос, старые значения остались,а рядом в другой ячейке появились перевернутые значения
Автор - dmitriy25
Дата добавления - 25.11.2015 в 12:01
RAN Дата: Среда, 25.11.2015, 12:07 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
cel.Next.Value = sp(1) & "/" & sp(0)
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
cel.Next.Value = sp(1) & "/" & sp(0)
[/vba]
Автор - RAN
Дата добавления - 25.11.2015 в 12:07
sv2014 Дата: Среда, 25.11.2015, 12:15 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
dmitriy25, добрый день,можно пользовательской функцией в ячейке B1 файл-примера

[vba]
Код
Function yyy$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "(.+)\/(.+)"
  If .test(t) Then yyy = .Execute(t)(0).Submatches(1) & "/" & .Execute(t)(0).Submatches(0)
End With
End Function
[/vba]
К сообщению приложен файл: revers.xls (34.5 Kb)


Сообщение отредактировал sv2014 - Среда, 25.11.2015, 12:17
 
Ответить
Сообщениеdmitriy25, добрый день,можно пользовательской функцией в ячейке B1 файл-примера

[vba]
Код
Function yyy$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "(.+)\/(.+)"
  If .test(t) Then yyy = .Execute(t)(0).Submatches(1) & "/" & .Execute(t)(0).Submatches(0)
End With
End Function
[/vba]
Автор - sv2014
Дата добавления - 25.11.2015 в 12:15
Kuzmich Дата: Среда, 25.11.2015, 16:10 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Offtop
Интересно ник sv2013, sv2014, sv2015 на разных форумах
это реинкарнация одного и того же человека?
 
Ответить
СообщениеOfftop
Интересно ник sv2013, sv2014, sv2015 на разных форумах
это реинкарнация одного и того же человека?
Автор - Kuzmich
Дата добавления - 25.11.2015 в 16:10
wild_pig Дата: Среда, 25.11.2015, 17:04 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Цитата dmitriy25, 25.11.2015 в 01:13, в сообщении № 1
в ячейке надпись: "TA3.A:3S1/X1:11", а надо сделать "X1:11/TA3.A:3S1"

Где тут про соседнюю ячейку?
Цитата dmitriy25, 25.11.2015 в 01:13, в сообщении № 1
и так для каждой ячейки.

А тут про выделенные несколько ячеек?
[vba]
Код
Sub uuu()
    For Each cel In Selection
        sp = Split(cel.Value, "/")
        cel.Next.Value = sp(1) & "/" & sp(0)
    Next
End Sub
[/vba]


Сообщение отредактировал wild_pig - Среда, 25.11.2015, 17:06
 
Ответить
Сообщение
Цитата dmitriy25, 25.11.2015 в 01:13, в сообщении № 1
в ячейке надпись: "TA3.A:3S1/X1:11", а надо сделать "X1:11/TA3.A:3S1"

Где тут про соседнюю ячейку?
Цитата dmitriy25, 25.11.2015 в 01:13, в сообщении № 1
и так для каждой ячейки.

А тут про выделенные несколько ячеек?
[vba]
Код
Sub uuu()
    For Each cel In Selection
        sp = Split(cel.Value, "/")
        cel.Next.Value = sp(1) & "/" & sp(0)
    Next
End Sub
[/vba]
Автор - wild_pig
Дата добавления - 25.11.2015 в 17:04
sv2014 Дата: Среда, 25.11.2015, 17:51 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, добрый вечер,да у меня разный ник на разных форумах.
 
Ответить
СообщениеKuzmich, добрый вечер,да у меня разный ник на разных форумах.
Автор - sv2014
Дата добавления - 25.11.2015 в 17:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » в ячейке надпись а/b,а надо сделать наоборот b/а (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!