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

Вход

Регистрация

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

 

= Мир MS Excel/Подстановка знаков квадратных скобок в текст! - Мир MS Excel

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

Excel 2010
Можт кто поможет решить проблему как сделать так что бы в экселе в столбце каждое слово заключалось в квадратные скобки и как это сделать применить сразу ко всему столбцу с помощью vba. Получилось сделать что бы с левой стороны выставлялись скобки

[vba]
Код
Sub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
MsgBox "Жми и будет счастье!)"
For Each cell In Range("E2:E" & lastRow)
If cell.Value <> "" Then
cell.Value = "[" & cell.Value
End If
Next
End Sub
[/vba]

Получилось только сделать что бы выставлялась скобка с лева а вот с права так и не получилось сделать. Прикладываю к вопросу файл
К сообщению приложен файл: google_adwords.xlsm (23.3 Kb)


Сообщение отредактировал Serge_007 - Суббота, 19.07.2014, 21:05
 
Ответить
СообщениеМожт кто поможет решить проблему как сделать так что бы в экселе в столбце каждое слово заключалось в квадратные скобки и как это сделать применить сразу ко всему столбцу с помощью vba. Получилось сделать что бы с левой стороны выставлялись скобки

[vba]
Код
Sub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
MsgBox "Жми и будет счастье!)"
For Each cell In Range("E2:E" & lastRow)
If cell.Value <> "" Then
cell.Value = "[" & cell.Value
End If
Next
End Sub
[/vba]

Получилось только сделать что бы выставлялась скобка с лева а вот с права так и не получилось сделать. Прикладываю к вопросу файл
Автор - Gudvin
Дата добавления - 19.07.2014 в 20:57
Serge_007 Дата: Суббота, 19.07.2014, 21:07 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
[vba]
Код
Sub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Sub Keyword_skobki()
Dim lastRow&
lastRow = [e2].End(xlDown).Row
'MsgBox "Жми и будет счастье!)"
     For Each cell In Range("E2:E" & lastRow)
         If cell.Value <> "" Then
             cell.Value = "[" & cell.Value & "]"
         End If
     Next cell
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 19.07.2014 в 21:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подстановка знаков квадратных скобок в текст! (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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