ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема VBA в Excel
4 сообщений из 4, страница 1 из 1
Проблема VBA в Excel
    #34070819
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
У меня следующая загвоздка.
Есть код:

Columns("d:d").Select
Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Т.е. я заменяю в колонке "D" два пробела на один (если где встречается).
Это очень не удобно, т.к. если пробелов стоит 10, то и 10 раз нужно запускать макрос.
Хотелось чтобы при запуске макроса я сам задавал с какой колонкой это нужно проделать и не 10 раз, а один.

Т.е. типа следующего:

Dim d As String

d = InputBox("В какой колонке Вы хотите удалить пробелы?")
Columns("d:d").Select
Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Так ничего не получается. Может вообще каким-то другим образом это можно осуществить?
Прошу помощи...
...
Рейтинг: 0 / 0
20.10.2006, 17:24:17
| Ответить | Цитировать | Написать  
Проблема VBA в Excel
    #34070988
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim rng As Range, rng2 As Range
    On Error Resume Next
    Set rng = Application.InputBox( _
      Prompt:="Где Вы хотите удалить пробелы?", _
      Title:="Выбор", Type:= 8 , Left:= 200 , Top:=- 65 )
    If Not rng Is Nothing Then
        For Each rng2 In rng
            If rng2.Value <> "" Then rng2.Value = Application.WorksheetFunction.Trim(rng2.Value)
        Next
    End If
...
Рейтинг: 0 / 0
20.10.2006, 18:07:07
| Ответить | Цитировать | Написать  
Проблема VBA в Excel
    #34070998
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Отлично! Большое спасибо. Все работает. Тему считаю закрытой
...
Рейтинг: 0 / 0
20.10.2006, 18:13:02
| Ответить | Цитировать | Написать  
Проблема VBA в Excel
    #34071090
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub test()
    Dim cell As Range, rng As Range
    On Error Resume Next
    Set cell = Application.InputBox(Prompt:="Выберите колонку, в которой Вы хотите удалить пробелы?", Type:= 8 )( 1 )
    Set rng = Intersect(cell.EntireColumn, cell.Parent.UsedRange)
    With rng
        .Offset(,  1 ).EntireColumn.Insert
        With .Offset(,  1 )
            .FormulaR1C1 = "=TRIM(RC[-1])"
            .Value = .Value
        End With
        .EntireColumn.Delete
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
20.10.2006, 18:43:36
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема VBA в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34070819&tid=2184103]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 53ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 208ms
total:  316ms
созд. / загр.: 316ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]