Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как задать псевдоним ячеек? / 4 сообщений из 4, страница 1 из 1
30.08.2005, 10:43:44
    #33240372
Аленочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать псевдоним ячеек?
В Excel может импортироваться от 2 до 1000 строк.
Между строками могут быть пустые строки.
Как автоматически импортированному диапазону ячеек присвоить псевдоним?
Может быть кто-нибудь сталкивался с подобным?
...
Рейтинг: 0 / 0
30.08.2005, 22:13:07
    #33242234
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать псевдоним ячеек?
АленочкаВ Excel может импортироваться от 2 до 1000 строк.
Между строками могут быть пустые строки.
Как автоматически импортированному диапазону ячеек присвоить псевдоним?
Может быть кто-нибудь сталкивался с подобным?
Не понял, а как пробелы между строчками соотносятся с необходимостью присваивать диапазону ячеек имя?
Имя диапазону присваивается следующим образом:
Код: plaintext
1.
2.
ActiveWorkbook.Names.Add _
    Name:="tempRange", _
    RefersTo:="=Sheet1!$A$1:$D$3"
А удаление пустых строк - вопрос алгоритмизации - способов масса
...
Рейтинг: 0 / 0
31.08.2005, 03:30:12
    #33242357
Аленочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как задать псевдоним ячеек?
Нет, это не подойдет, так как импортируемый диапазон заранее не известен.
Пустые строчки обязательно должны быть (для распечатки отчетов).
Так вот, необходимо обозначить весь только что вставленный диапазон ячеек (вместе с пустыми строками) и например поменять высоту строк в диапазоне.

Можно сделать цикл по строкам, но не нужно.
Удобнее присвоить имя диапазону ячеек и затем работать с ним.

Например, Worksheets(1).Range("Primer").ClearContents
...
Рейтинг: 0 / 0
31.08.2005, 08:43:40
    #33242444
Как задать псевдоним ячеек?
Как вариант при вставке данных.

Код: plaintext
1.
2.
3.
4.
Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveWorkbook.Names.Add _
      Name:="tempRange", _
      RefersTo:="=Sheet1!" & Selection.Address
End Sub

Можно также задать более жесто диапазон куда будем копировать.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как задать псевдоним ячеек? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]