Автозаполнение таблицы переменной ширины / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автозаполнение таблицы переменной ширины

6 сообщений из 6, страница 1 из 1

Автозаполнение таблицы переменной ширины

#36676708

LeCrunch

Гость

Имеется шаблон xlt, содержащий таблицу из шапки и одной образцовой строки.
После его открытия макрос запрашивает требуемое кол-во строк и автозаполняет их.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Public Sub Auto_Open()
    Dim oBook, oSheet As Object
    Dim tbl, SourceRange, FillRange As Range
    Dim NN As Integer  'кол-во

    Set oBook = ActiveWorkbook
    Set oSheet = oBook.Worksheets( 1 )
    
    NN = Application.InputBox _
        (prompt:="Количество строк?", Type:= 1 )
    If NN = False Then Exit Sub

Application.ScreenUpdating = False
    
    Set SourceRange = oSheet.Range("A2:BK2")
    Set FillRange = oSheet.Range("A2:BK" & NN +  1 ) ' шапка
    
    SourceRange.AutoFill Destination:=FillRange, Type:=xlFillDefault

Application.ScreenUpdating = True

End Sub

Однако в будущем таблица будет увеличиваться, поэтому вопрос - как сделать универсальным указание диапазона для образцовой строки - SourceRange и FillRange; без указания абсолютных координат ячеек типа "A2:BK2"?

...

Рейтинг:

0 / 0

08.06.2010, 23:06

| Ответить | Цитировать | Написать

Автозаполнение таблицы переменной ширины

#36676933

sergeyvg

Гость

Если правильно понял, то увеличиваться будет в количестве столбцов, строки и так уже вводятся. Тогда можно так

Код: plaintext

1.
2.
3.
4.
5.
6.

    CN = Application.InputBox _
        (prompt:="Количество столбцов?", Default:= 63 , Type:= 1 )
    If CN = False Then Exit Sub
...
    Set SourceRange = oSheet.Range("A2").Resize( 1 , CN)
    Set FillRange = oSheet.Range("A2").Resize(NN, CN) ' шапка

...

Рейтинг:

0 / 0

09.06.2010, 08:30

| Ответить | Цитировать | Написать

Автозаполнение таблицы переменной ширины

#36679295

LeCrunch

Гость

Объяснил наверное нечётко - кол-во столбцов будет увеличиваться не макросом, а просто с течением времени.
Нужно предусмотреть это в коде макроса, чтобы не переписывать его всякий раз.

Пока решил так:

Код: plaintext

1.
2.
3.
4.

...
    Set SourceRange = oSheet.Range("A2").EntireRow
    Set FillRange = oSheet.Range("A2").Resize(NN, SourceRange.Columns.Count)
...

...

Рейтинг:

0 / 0

09.06.2010, 21:33

| Ответить | Цитировать | Написать

Автозаполнение таблицы переменной ширины

#36679739

nilem

Гость

LeCrunch,

Так попробуйте:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Option Explicit

Public Sub Auto_Open()
    Dim oBook As Workbook, oSheet As Worksheet
    Dim tbl As Range, SourceRange As Range, FillRange As Range
    Dim NN As Integer  'кол-во

    Set oBook = ActiveWorkbook
    Set oSheet = oBook.Worksheets( 1 )

    NN = Application.InputBox(prompt:="Количество строк?", Type:= 1 )
    If NN = False Then Exit Sub

Application.ScreenUpdating = False

With oSheet
    Set SourceRange = Range([A2], .Cells( 2 , .Cells( 2 , Columns.Count).End(xlToLeft).Column))
    Set FillRange = Range([A2], .Cells(NN +  1 , .Cells( 2 , Columns.Count).End(xlToLeft).Column))
End With

SourceRange.AutoFill Destination:=FillRange, Type:=xlFillDefault

Application.ScreenUpdating = True
End Sub

...

Рейтинг:

0 / 0

10.06.2010, 08:35

| Ответить | Цитировать | Написать

Автозаполнение таблицы переменной ширины

#36679750

nilem

Гость

nilem,

Просмотрел строчку, вот так надо
If NN = 0 Then Exit Sub

...

Рейтинг:

0 / 0

10.06.2010, 08:45

| Ответить | Цитировать | Написать

Автозаполнение таблицы переменной ширины

#36679950

LeCrunch

Гость

nilem,

Спасибо, но выделение влево не срабатывают в шаблоне таблицы с пустыми ячейками.

...

Рейтинг:

0 / 0

10.06.2010, 10:54

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автозаполнение таблицы переменной ширины

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36676933&tid=2178009]:	0ms
get settings:	11ms
get forum list:	20ms
check forum access:	4ms
check topic access:	4ms
track hit:	213ms
get topic data:	10ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	255ms

total:	558ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы