Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как удалять автоматич. столбцы чисел в зависимости от месяца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалять автоматич. столбцы чисел в зависимости от месяца (Иное/Other)
Как удалять автоматич. столбцы чисел в зависимости от месяца
Яриша Дата: Среда, 13.01.2016, 17:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

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

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


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

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

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


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

Спасибо.

Автор - Яриша
Дата добавления - 13.01.2016 в 17:41
_Boroda_ Дата: Среда, 13.01.2016, 17:51 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
По старому файлу
Код
=СЧЁТЕСЛИ(C$13:AG$14;">2")-СЧЁТЗ(C15:AG15)
К сообщению приложен файл: 12345_1.xlsx(17Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
По старому файлу
Код
=СЧЁТЕСЛИ(C$13:AG$14;">2")-СЧЁТЗ(C15:AG15)

Автор - _Boroda_
Дата добавления - 13.01.2016 в 17:51
Яриша Дата: Среда, 13.01.2016, 18:12 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ой, опять забыла файл)))) :D
[moder]Поздно.
К сообщению приложен файл: 12345.xlsx(17Kb)


Сообщение отредактировал _Boroda_ - Среда, 13.01.2016, 18:13
 
Ответить
СообщениеОй, опять забыла файл)))) :D
[moder]Поздно.

Автор - Яриша
Дата добавления - 13.01.2016 в 18:12
Яриша Дата: Четверг, 14.01.2016, 18:19 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Яриша
Дата добавления - 14.01.2016 в 18:19
Manyasha Дата: Четверг, 14.01.2016, 19:39 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 1823
Репутация: 765 ±
Замечаний: 0% ±

Excel 2007, 2010
Яриша, формулы не умеют скрывать столбцы.
Так подойдет?
[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(23Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеЯриша, формулы не умеют скрывать столбцы.
Так подойдет?
[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]
Чтобы посмотреть код, правой кнопкой мыши щелкните по ярлычку листа-исходный текст.

Автор - Manyasha
Дата добавления - 14.01.2016 в 19:39
_Boroda_ Дата: Четверг, 14.01.2016, 22:00 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 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]
К сообщению приложен файл: 12345_10_2.xlsm(23Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
[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]

Автор - _Boroda_
Дата добавления - 14.01.2016 в 22:00
Яриша Дата: Пятница, 15.01.2016, 19:31 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Manyasha, я знаю, мне об этом говорили
 
Ответить
СообщениеManyasha, я знаю, мне об этом говорили

Автор - Яриша
Дата добавления - 15.01.2016 в 19:31
Яриша Дата: Пятница, 15.01.2016, 19:39 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Manyasha, _Boroda_, спасибо Вам большое уважаемые!!! deal yes B)


Сообщение отредактировал Яриша - Пятница, 15.01.2016, 19:39
 
Ответить
СообщениеManyasha, _Boroda_, спасибо Вам большое уважаемые!!! deal yes B)

Автор - Яриша
Дата добавления - 15.01.2016 в 19:39
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалять автоматич. столбцы чисел в зависимости от месяца (Иное/Other)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!