Как удалять автоматич. столбцы чисел в зависимости от месяца

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалять автоматич. столбцы чисел в зависимости от месяца (Иное/Other)

Яриша

Дата: Среда, 13.01.2016, 17:41 | Сообщение № 1

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

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

Сообщений: 10

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

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

Excel 2010

Уважаемые форумчане, подскажите ещё момент один, по формулам предложенным уважаемыми _Boroda_ и китин, когда меняется месяц с 31 на 30 ну или 29, то остается один-два пустых столбца, и они считаются в выходные так как не заполнены, понятно, что можно поставить в AI15

Код

=СЧЁТЕСЛИ(C15:AG15;"В")

выходные уже конечно не считаются, но не эстетично получается.... как их скрывать\удалять автоматически? :shy:

Спасибо.

Ответить

_Boroda_

Дата: Среда, 13.01.2016, 17:51 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
По старому файлу

Код

=СЧЁТЕСЛИ(C$13:AG$14;">2")-СЧЁТЗ(C15:AG15)

К сообщению приложен файл: 12345_1.xlsx (16.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Яриша

Дата: Среда, 13.01.2016, 18:12 | Сообщение № 3

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

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

Сообщений: 10

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

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

Excel 2010

Ой, опять забыла файл)))) :D
[moder]Поздно.

К сообщению приложен файл: 12345.xlsx (17.5 Kb)

Сообщение отредактировал _Boroda_ - Среда, 13.01.2016, 18:13

Ответить

Яриша

Дата: Четверг, 14.01.2016, 18:19 | Сообщение № 4

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

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

Сообщений: 10

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

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

Excel 2010

_Boroda_, ну не совсем так, чтобы не считались пустые ячейки за выходные это я решила, даже проще , но об этом я писала в первом посте, а вот чтобы столбцы "прятались" или удалялись, как это решить? Один умный человек, что это могут только МАКРОСы ,а кто это такие и как их варить я не знаю.

Ответить

Manyasha

Дата: Четверг, 14.01.2016, 19:39 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

Яриша, формулы не умеют скрывать столбцы.
Так подойдет?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("p10")) Is Nothing Then
        Dim kol As Integer
        kol = Cells(10, "t") - Cells(10, "p")
        Columns(3).Resize(, kol + 1).Hidden = False
        If kol < 30 Then Columns(3 + kol + 1).Resize(, 31 - kol - 1).Hidden = True
    End If
End Sub

[/vba]
Чтобы посмотреть код, правой кнопкой мыши щелкните по ярлычку листа-исходный текст.

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

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Четверг, 14.01.2016, 22:00 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Еще вариант
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "P10" Then Exit Sub
    Application.ScreenUpdating = 0
    For i = 31 To 33
        If Cells(13, i) = 2 Then
            Columns(i).Hidden = True
        Else
            Columns(i).Hidden = False
        End If
    Next i
End Sub

[/vba]