Excel VBA (часть 2) - [3548] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)

Модерирует : ShIvADeSt
ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Gunslighter

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Function ListN(Optional Napravlenie As Byte = 0) As String
Dim Lnm As String
Application.Volatile
With Application.ThisCell.Parent
If Napravlenie = 1 Or Napravlenie = 3 Then
If .Index = Sheets.Count Then
Lnm = Sheets(1).Name
Else: Lnm = .Next.Name
End If
Else
If .Index = 1 Then
Lnm = Sheets(Sheets.Count).Name
Else: Lnm = .Previous.Name
End If
End If
If Napravlenie > 1 Then
ListN = "[" & .Parent.Name & "]" & Lnm
Else: ListN = Lnm
End If
End With
End Function

Примеры использования:
1. Если нужно сослаться на значение A1 предыдущего листа, то пишем:
=ДВССЫЛ(listn()&"!A1")

2. Если нужно сделать ГИПЕРссылку на следующий лист:
=ГИПЕРССЫЛКА(listn(3)&"!A1";"К след. листу >>")

Всего записей: 32 | Зарегистр. 10-11-2007 | Отправлено: 13:25 06-08-2009 | Исправлено: Gunslighter, 13:27 06-08-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)
ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC