Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2012, 22:13   #1
Antik888
 
Регистрация: 29.01.2012
Сообщений: 4
По умолчанию vba создание таблицы с диапзоном активных ячеек

Всем привет.

Подскажите, как должен выглядеть вба, если мне нужно вставить таблицу с диапозоном выделенных ячеек.

Код:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1"), , xlYes).Name = "Table24"
Чем заменить Range("$A$1") ?

Заранее спасибо)
Antik888 вне форума Ответить с цитированием
Старый 29.01.2012, 23:06   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

selection.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 30.01.2012, 00:47   #3
Antik888
 
Регистрация: 29.01.2012
Сообщений: 4
По умолчанию

Спасибо.

Ещё вопрос - как сделать так, чтобы имя таблицы постоянно менялось, неважно какое? Может время сейчас туда поставить? Как это сделать?
Antik888 вне форума Ответить с цитированием
Старый 30.01.2012, 23:22   #4
Antik888
 
Регистрация: 29.01.2012
Сообщений: 4
По умолчанию

Вот в этом коде

Код:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A2"), , xlYes).Name = _
        "Table3"
нужно поменять name на функцию сейчас. Как это сделать?
Antik888 вне форума Ответить с цитированием
Старый 30.01.2012, 23:36   #5
RAN.
Форумчанин
 
Аватар для RAN.
 
Регистрация: 05.07.2011
Сообщений: 208
По умолчанию

Name = Now
Name = Date
RAN. вне форума Ответить с цитированием
Старый 31.01.2012, 21:23   #6
Antik888
 
Регистрация: 29.01.2012
Сообщений: 4
По умолчанию

Цитата:
Сообщение от RAN. Посмотреть сообщение
Name = Now
Name = Date
Пожалуйста, напишите полный код.
Antik888 вне форума Ответить с цитированием
Старый 01.02.2012, 02:49   #7
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Код:
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A2"), , xlYes).Name =now
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Высота ячеек таблицы Lawliet32 HTML и CSS 0 30.10.2011 17:40
VBA Word Перенос текста из ячеек таблицы одного файла в другой bietins Microsoft Office Word 2 13.09.2011 16:04
Выделение ячеек в VBA Munchkin Microsoft Office Excel 2 08.06.2011 17:06
Перестановка ячеек таблицы longfello Microsoft Office Excel 9 16.11.2010 15:54
Создание таблицы через VBA mchip Microsoft Office Excel 0 01.10.2009 23:50