Цитата |
---|
exspool написал: например в Word такое окошко и волшебство есть, называется "вставка таблицы" |
а в Excel есть более 800 различных функций, которые Word-у никогда не понять
Самый просто вариант со своими недостатками, это как написал
Ігор Гончаренко: меняем стиль ссылок на R1C1. Далее левее строки формул есть окно адреса(там обычно появляется адрес активной ячейки), вбиваем туда адрес последней нужной. Например, для таблицы на 5000 столбцов и 3000 строк это будет: R3000C5000. Будет выделена эта самая ячейка. Теперь зажимаете Shift+Ctrl, а далее стрелки вверх и вправо до тех пор, пока не получите прямоугольную область вплоть до ячейки А1. Далее делайте с этим выделением что угодно: хоть заливка, хоть границы, хоть еще что.
Самый очевидный недостаток: это невозможность по сути создать таблицу не от А1, а с другой ячейки - высчитывать придется.
Ну и у Excel есть еще одно встроенное средство: VBA.
Нажимаем Alt+F11 -Insert -Module. Вставляем туда код:
Код |
---|
Sub CreateCustomTable()
Dim lr_cnt As Long, lc_cnt As Long
lr_cnt = Val(InputBox("Укажите кол-во строк таблицы", "www.excel-vba.ru", 0))
If lr_cnt = 0 Then
MsgBox "Таблица не может быть из 0 строк", vbCritical, "www.excel-vba.ru"
Exit Sub
End If
lc_cnt = Val(InputBox("Укажите кол-во столбцов таблицы", "www.excel-vba.ru", 0))
If lc_cnt = 0 Then
MsgBox "Таблица не может быть из 0 столбцов", vbCritical, "www.excel-vba.ru"
Exit Sub
End If
ActiveCell.Resize(lr_cnt, lc_cnt).Borders.Color = vbBlack 'назначаем границы
End Sub |
теперь выделяете любую ячейку на листе -нажимаете Alt+F8 -выбираете макрос CreateCustomTable и нажимаете Выполнить. От активной ячейки будут выделены указанное кол-во строк и столбцов границами.