Выборка нужного диапазона из таблицы по словам. - Страница 3

Старая форма входа

Страница 3 из 3 « 1 2 3
Модератор форума: китин, _Boroda_

Выборка нужного диапазона из таблицы по словам.

AlexM

Дата: Воскресенье, 12.05.2013, 15:14 | Сообщение № 41

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Так?

К сообщению приложен файл: 5579511_new.xls (58.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

llluckyman

Дата: Воскресенье, 12.05.2013, 16:21 | Сообщение № 42

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

С суммой получмлось спасибо. Почему просил для листов потому-что для книг нет рабочего варианта.Поэтому пока буду доделывать руками. По поводу сопоставления хорошая идея я думал над этим НО вы изменили мой исходник а там все верно одинаковые таблицы встречаются в этом то и сложность, я исходник не составляю. Но может можно прописать алгоритм при нахождении таблицы с уже существуещим именем молоток присваивать книге имя молоток1, и т.д.

Сообщение отредактировал llluckyman - Воскресенье, 12.05.2013, 16:24

Ответить

AlexM

Дата: Воскресенье, 12.05.2013, 18:15 | Сообщение № 43

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

можно сделать так.
Добавить переменную ifile As Long
а строку
[vba]

Код

ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & .Range("E4") & ".xls")

[/vba]
заменить на
[vba]

Код

ifile = ifile + 1
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & .Range("E4") & "_" & ifile & ".xls")

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 12.05.2013, 18:15

Ответить

llluckyman

Дата: Вторник, 14.05.2013, 18:17 | Сообщение № 44

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Хочу выразить вам глубокую признательность но у меня снова вопросы ))
1) Почему ваш макрос работает только в вашей книге.
2) Как мне задать размеры ячеек в таблице ширина высота.
3)Не добавляются линии при добавлении строки +5и т.д.
[vba]

Код

'.Range("a" & last + 4).Value = String(78, "_")

[/vba]

Сообщение отредактировал llluckyman - Вторник, 14.05.2013, 18:20

Ответить

AlexM

Дата: Вторник, 14.05.2013, 20:53 | Сообщение № 45

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

1. не знаю
2. Ширина задается Формат - Столбец - Ширина. Высота задается Формат - строка - высота.
3. В последнем макросе линии сделаны иначе.
[vba]

Код

.Range("a" & last + 4 & ":f" & last + 5).Borders(xlEdgeTop).LineStyle = xlContinuous
.Range("a" & last + 4 & ":f" & last + 5).Borders(xlEdgeBottom).LineStyle = xlContinuous
.Range("a" & last + 4 & ":f" & last + 5).Borders(xlInsideHorizontal).LineStyle = xlContinuous

[/vba]
Сртока которую вы показали закомментирована, т.е. в начале стоит апостроф. Удалите его.