VPF::Vba в Excel - Форум программистов

spectre69

Дата 2.5.2006, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 2.5.2006
Где: Красноярск

Репутация: нет
Всего: нет

Есть текст в ячейке таблицы. По Alt+Enter я могу его разбить на несколько строк в пределах одной ячейки. Как это сделать средствами VBA? То есть какой макрос надо написать, чтобы в большой таблице преобразовать однотипные ячейки.

Например, у меня есть столбец ФИО - там данные расположены в строчку таким образом:
фамилия_имя_отчество.

Надо, чтобы было в столбец так:
фамилия
имя
отчество

Akina

Дата 2.5.2006, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Сервис-Макрос-Начать запись
Делаешь разбитие руками как описано тобой выше.
Остановить запись.
После чего изучаешь текст полученного (записанного) макроса.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

spectre69

Дата 2.5.2006, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 2.5.2006
Где: Красноярск

Репутация: нет
Всего: нет

Спасибо. Интересное решение, но так получается только для одной ячейки, так как там пишется что-то вроде:

Код


Sub Макрос1()

 Макрос1 Макрос
 Макрос записан 02.05.2006 (*)

    ActiveCell.FormulaR1C1 = "иванов" & Chr(10) & "иван" & Chr(10) & "иванович"
    With ActiveCell.Characters(Start:=1, Length:=20).Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select
End Sub

Мне же надо автоматически преобразовать несколько столбцов. Я только что нашел функцию Replace(...) и решил это следующим образом:
Dim sh As Excel.Worksheet
Set sh = ActiveSheet

For nCounter = 1 To ПоследняяЯчейка Step 1
sh.Cells(nCounter, 2) = Replace(sh.Cells(nCounter, 1), " ", Chr(10))
Next

Это сообщение отредактировал(а) Staruha - 3.5.2006, 19:58

Staruha

Дата 2.5.2006, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Как-то модератор mikle такой код подсказал

Код


list1.Range("A1").Value = "Line 1" & vbLf & "Line 2" & vbLf & "Line 3"

Это сообщение отредактировал(а) Staruha - 2.5.2006, 21:19

--------------------

Возмездие настигнет

Akina

Дата 3.5.2006, 09:34 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

spectre69, вместо тега Italic гораздо разумнее использовать тег Code

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »