Как сделать автодобавление столбца(ов) - Страница 2

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

Как сделать автодобавление столбца(ов) (Макросы Sub)

Как сделать автодобавление столбца(ов)

AmonRA2010

Дата: Пятница, 21.02.2014, 17:30 | Сообщение № 21

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

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

Сообщений: 42

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

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

Excel 2010

Цитата Stormy, 21.02.2014 в 17:29, в сообщении № 20

Дата на всех листах повторяется?

Это не иммет значения. Главное в ячейках С3 везде ставаил 0, не получается, везде 1 тоже не выходит, в разнобой стоят значения тоже не выходит. Всегда считается только 1 вкладка.

Ответить

Stormy

Дата: Пятница, 21.02.2014, 17:52 | Сообщение № 22

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

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

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

Excel 2010

В каждый модуль листа ( на которых будет происходить скрытие и открытие) нужно вставить это

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Call Hide
End Sub

[/vba]

В обычный модуль добавить макрос Hide

[vba]

Код

Sub Hide()
If Range("C3") = 1 Then
         Columns("P:Q").Select
     Selection.EntireColumn.Hidden = True
     End If
         If Range("C3") <> 1 Then
         Columns("O:R").Select
     Selection.EntireColumn.Hidden = False
     End If
    End Sub

[/vba]

Место для рекламы.

Ответить

AmonRA2010

Дата: Пятница, 21.02.2014, 17:56 | Сообщение № 23

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

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

Сообщений: 42

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

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

Excel 2010

работает, в понедельник поправлю до конца
Спасибо.

Ответить

Stormy

Дата: Пятница, 21.02.2014, 18:21 | Сообщение № 24

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

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

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

Excel 2010

Успехов

Место для рекламы.

Ответить

AmonRA2010

Дата: Понедельник, 24.02.2014, 10:52 | Сообщение № 25

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

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

Сообщений: 42

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

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

Excel 2010

Доброе утро.

Сейчас оставил только одну ячейку для изменений, котороя будет в документе, в остальных листах будут появляться/исчезать столбцы в зависимости от значения в ней. Сделал ссылки в модуле на изменение именно этой ячейки. Покакой-то причине работает только на первой странице, остальные не работают...

К сообщению приложен файл: 8148674.xlsm (30.6 Kb)

Ответить

Wasilich

Дата: Понедельник, 24.02.2014, 11:14 | Сообщение № 26

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

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

Сообщений: 1232

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

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

2003

А так?
[vba]

Код

If Worksheets("Лист1").Range("C3") = 1 Then
         Worksheets("Лист1").Columns("P:Q").Hidden = True
         Worksheets("Лист2").Columns("P:Q").Hidden = True
         Worksheets("Лист").Columns("P:Q").Hidden = True
     Else
         Worksheets("Лист1").Columns("P:Q").Hidden = False
         Worksheets("Лист2").Columns("P:Q").Hidden = False
         Worksheets("Лист3").Columns("P:Q").Hidden = False
     End If

[/vba]

Ответить

AmonRA2010

Дата: Понедельник, 24.02.2014, 11:38 | Сообщение № 27

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

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

Сообщений: 42

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

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

Excel 2010

Работает как часы, без подтверждения. Спасибо

Ответить

Как сделать автодобавление столбца(ов) (Макросы Sub)

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