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

Вход

Регистрация

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

 

= Мир MS Excel/замена со звёздочкой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена со звёздочкой (Макросы/Sub)
замена со звёздочкой
emkub Дата: Четверг, 20.09.2018, 15:57 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Подскажите пожалуйста, как правильно написать такую штуку:
[vba]
Код

k = Replace(Cells(i, "f"), "(*)", "")
[/vba]
т.е. нужно убрать скобки и всё, что в них.
 
Ответить
СообщениеЗдравствуйте!
Подскажите пожалуйста, как правильно написать такую штуку:
[vba]
Код

k = Replace(Cells(i, "f"), "(*)", "")
[/vba]
т.е. нужно убрать скобки и всё, что в них.
Автор - emkub
Дата добавления - 20.09.2018 в 15:57
_Boroda_ Дата: Четверг, 20.09.2018, 16:06 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Такой вариант
[vba]
Код
aaa = "fdgdfg (ggggggg) dsfgdfg"
    bbb = Left(aaa, InStr(aaa, "(") - 1) & Right(aaa, Len(aaa) - InStrRev(aaa, ")"))
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТакой вариант
[vba]
Код
aaa = "fdgdfg (ggggggg) dsfgdfg"
    bbb = Left(aaa, InStr(aaa, "(") - 1) & Right(aaa, Len(aaa) - InStrRev(aaa, ")"))
[/vba]
Автор - _Boroda_
Дата добавления - 20.09.2018 в 16:06
emkub Дата: Четверг, 20.09.2018, 16:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
вариант.
А почему со звёздочкой такие сложности?
Если записать эту замену макрорекордером, то всё работает. А после "правок" уже не хочет.
Есть подозрения, что тут нужно использовать регулярное выражение, что бы работало со звёздочкой...
 
Ответить
Сообщениевариант.
А почему со звёздочкой такие сложности?
Если записать эту замену макрорекордером, то всё работает. А после "правок" уже не хочет.
Есть подозрения, что тут нужно использовать регулярное выражение, что бы работало со звёздочкой...
Автор - emkub
Дата добавления - 20.09.2018 в 16:48
_Boroda_ Дата: Четверг, 20.09.2018, 17:00 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Есть функция Replace (примерно как ПОДСТАВИТЬ в Excel), а есть метод (это как Контрл+h в Excel)
https://docs.microsoft.com/ru-ru....unction
https://docs.microsoft.com/ru-ru/office/vba/api/Excel.Range.Replace
Вы пытаетесь функции задать условия для метода

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсть функция Replace (примерно как ПОДСТАВИТЬ в Excel), а есть метод (это как Контрл+h в Excel)
https://docs.microsoft.com/ru-ru....unction
https://docs.microsoft.com/ru-ru/office/vba/api/Excel.Range.Replace
Вы пытаетесь функции задать условия для метода
Автор - _Boroda_
Дата добавления - 20.09.2018 в 17:00
sboy Дата: Четверг, 20.09.2018, 17:24 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата emkub, 20.09.2018 в 16:48, в сообщении № 3 ()
Есть подозрения, что тут нужно использовать регулярное выражение

можно
[vba]
Код
Pattern = "\(.+\)"
[/vba]

Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата emkub, 20.09.2018 в 16:48, в сообщении № 3 ()
Есть подозрения, что тут нужно использовать регулярное выражение

можно
[vba]
Код
Pattern = "\(.+\)"
[/vba]
Автор - sboy
Дата добавления - 20.09.2018 в 17:24
emkub Дата: Четверг, 20.09.2018, 17:50 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
благодарю за ответы!
 
Ответить
Сообщениеблагодарю за ответы!
Автор - emkub
Дата добавления - 20.09.2018 в 17:50
KuklP Дата: Четверг, 20.09.2018, 21:21 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я не понял вопроса. Невнимательно прочел)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 20.09.2018, 21:43
 
Ответить
СообщениеЯ не понял вопроса. Невнимательно прочел)
Автор - KuklP
Дата добавления - 20.09.2018 в 21:21
emkub Дата: Четверг, 20.09.2018, 22:50 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Код, написанный в топике, не работает. А хотелось сделать замену с помощью звёздочки, т.е. удалить скобки и всё их содержимое.
И вопрос в том, как записать этот код, но что бы он работал :)
 
Ответить
СообщениеКод, написанный в топике, не работает. А хотелось сделать замену с помощью звёздочки, т.е. удалить скобки и всё их содержимое.
И вопрос в том, как записать этот код, но что бы он работал :)
Автор - emkub
Дата добавления - 20.09.2018 в 22:50
StoTisteg Дата: Пятница, 21.09.2018, 10:14 | Сообщение № 9
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
emkub, так вот Вам и объясняют, что Вы перепутали Replace (функцию языка программирования) и Range.Replace (метод объекта Range).

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Пятница, 21.09.2018, 10:14
 
Ответить
Сообщениеemkub, так вот Вам и объясняют, что Вы перепутали Replace (функцию языка программирования) и Range.Replace (метод объекта Range).
Автор - StoTisteg
Дата добавления - 21.09.2018 в 10:14
emkub Дата: Пятница, 21.09.2018, 15:33 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
да, это я уже понял. С первого раза :)
 
Ответить
Сообщениеда, это я уже понял. С первого раза :)
Автор - emkub
Дата добавления - 21.09.2018 в 15:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » замена со звёздочкой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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