Отобразить таблицу с первой ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить таблицу с первой ячейки (Макросы/Sub)

Serj

Дата: Воскресенье, 23.10.2016, 23:47 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте! Есть таблицы на листах, которые выбираются на первом листе, при переходе на лист не могу отобразить таблицу с первой ячейки, приходиться вручную. Вопрос возможно ли это выполнить в авто режиме. Заранее спасибо!

К сообщению приложен файл: Tab.xls (42.0 Kb)

Ответить

krosav4ig

Дата: Понедельник, 24.10.2016, 00:02 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте
Так нужно?[vba]

Код

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Лист1" Then
        Application.ScreenUpdating = False
        Select Case Sheets("Лист1").[a2]
            Case 1
                Columns("a:k").Hidden = False
                Columns("l:aa").Hidden = True
                Columns("ab:ak").Hidden = True
            Case 2
                Columns("a:k").Hidden = True
                Columns("l:aa").Hidden = False
                Columns("ab:ak").Hidden = True
            Case 3
                Columns("a:k").Hidden = True
                Columns("l:aa").Hidden = True
                Columns("ab:ak").Hidden = False
            Case Else
                Columns("a:k").Hidden = False
                Columns("l:aa").Hidden = False
                Columns("ab:ak").Hidden = False
        End Select
        Application.Goto Cells.SpecialCells(12).Areas(1).Cells(1, 1), 1
        Application.ScreenUpdating = True
    End If
End Sub

[/vba]

UPD Фигню спорол, исправил

К сообщению приложен файл: Tab1.xls (40.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 24.10.2016, 00:16

Ответить

Serj

Дата: Понедельник, 24.10.2016, 00:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Огромное спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить таблицу с первой ячейки (Макросы/Sub)

Страница 1 из 1
1