Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Gubanov
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Расстановка отпусков из диапазона в графике
 
#
27.04.2017 13:49:22
TheBestOfTheBest, не силен в написании макросов. Пароль: 96318645
Изменено: Gubanov - 28.04.2017 04:08:11
 
Перейти    
Расстановка отпусков из диапазона в графике
 
#
27.04.2017 13:07:01
Всем привет!

Помогите, пожалуйста, написать макрос, который будет проставлять отпуска в графике.
На странице "График работы", автоматически выставлять слово "отпуск" в ячейку столбца "Время работы" каждого сотрудника.
Дни отпуска искать из диапазона под ФИО сотрудника и сопоставлять со страницы "Отпуска", и если день выпадает на праздничный день, то отпуск продлевался.

Пароль: 96318645
Изменено: Gubanov - 27.04.2017 23:06:41
 
Перейти    
Отображение листов с помощью макроса, Отображение листов определенным пользователям с помощью макроса
 
#
30.08.2016 09:24:21
The_Prist,Нет, требуется прозрачная "авторизация".  
 
Перейти    
Отображение листов с помощью макроса, Отображение листов определенным пользователям с помощью макроса
 
#
30.08.2016 08:03:47
RAN, Спасибо, данный макрос отлично отрабатывает. А к доменной группе возможно привязать? Чтобы первый и второй лист отображались доменной группе?
 
Перейти    
Отображение листов с помощью макроса, Отображение листов определенным пользователям с помощью макроса
 
#
30.08.2016 06:38:07
JeyCi, требуется изменения в макросе, с файлом посложнее будет.
Пароль: 96318645

При открытии, если не разрешены макросы, отображать страницу Предупреждение - сейчас так и есть.
Если макросы разрешены, отображать 1 страницу всем.
Если имя пользователя e.shevskaya и a.gubanov отображать все страницы, кроме Предупреждение - сейчас так отрабатывает макрос.
Если имя пользователя, например: 1 пользователь, 2 пользователь, 3 пользователь и т.д. отображать первые две страницы.
Либо, возможно привязать к группам AD?  
 
Перейти    
Отображение листов с помощью макроса, Отображение листов определенным пользователям с помощью макроса
 
#
30.08.2016 05:46:49
Здравствуйте!

Помогите, пожалуйста, переделать макрос:
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = True
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = "Предупреждение" Then
            sh.Visible = True
        Else
            sh.Visible = xlSheetVeryHidden
        End If
    Next sh
    'сохраняемся перед выходом
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
    For Each sh In ThisWorkbook.Worksheets
        sh.Visible = True
    Next sh
    If Environ("USERNAME") <> "Первый" And Environ("USERNAME") <> "Второй" Then     'если пользователя не зовут
       Worksheets("Настройки").Visible = False     'скрываем Настройки
       Worksheets("Сотрудники").Visible = xlVeryHidden    'делаем лист Сотрудники суперскрытым
    End If
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = xlSheetVeryHidden
End Sub

Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="12345", UserInterfaceOnly:=True
End Sub
Лист предупреждения все также скрывается, при соглашении включения макросов.
Сейчас все листы отображаются только двоим сотрудникам, остальным первые две.
Нужно чтобы всем отображалась только первая страница, определенным пользователям две страницы, и еще пару пользователям все страницы, кроме Предупреждения.  
 
Перейти    
Макрос скрытия ячеек, Проблема с макросом
 
#
30.03.2016 05:28:20
Marchuk, Спасибо, сработало.
 
Перейти    
Макрос скрытия ячеек, Проблема с макросом
 
#
29.03.2016 05:20:15
Dima S,Такая же ошибка.
 
Перейти    
Макрос скрытия ячеек, Проблема с макросом
 
#
29.03.2016 04:37:58
Здравствуйте!

Помогите с формулировкой макроса:
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = True
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Name = "Предупреждение" Then
            sh.Visible = True
        Else
            sh.Visible = xlSheetVeryHidden
        End If
    Next sh
    'сохраняемся перед выходом
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
    Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
    For Each sh In ActiveWorkbook.Worksheets
        sh.Visible = True
    If Environ("USERNAME") <> "A.Gubanov" And Environ("USERNAME") <> "e.shevskaya" Then
        Worksheets("Настройки").Visible = False
        Worksheets("Сотрудники").Visible = xlVeryHidden
    Else
        For i = 1 To Worksheets.Count
            Worksheets(i).Visible = True 
        Next i
    End If
    Next sh
    'скрываем листы ПРЕДУПРЕЖДЕНИЕ
    Worksheets("Предупреждение").Visible = xlSheetVeryHidden
End Sub

Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="96318645", UserInterfaceOnly:=True
End Sub


При первом открытии книги этих:
Цитата
If Environ("USERNAME") <> "A.Gubanov" And Environ("USERNAME") <> "e.shevskaya" Then
если разрешить выполнение макросов, выходит ошибка


После повторного запуска открывает книгу нормально и если имя пользователя не указано, то книга нормально отрабатывает макрос и без ошибки открывает ее.
 
Перейти    
Сопоставление отпуска в графике
 
#
23.03.2016 16:34:24
ber$erk, Код меня устраивает, спасибо. Просто уточнил возможности. Пусть так будет.  
 
Перейти    
Сопоставление отпуска в графике
 
#
23.03.2016 06:44:43
ber$erk, А смотрите, если отпуск идет с переходом на другой месяц, то число он уже не переносит.
Если вдруг был праздник в первом периоде месяца.
 
Перейти    
Сопоставление отпуска в графике
 
#
22.03.2016 11:45:15
ber$erk, Спасибо. То что нужно.  
 
Перейти    
Сопоставление отпуска в графике
 
#
22.03.2016 05:50:52
ber$erk, Да, макрос пишет что 8 марта это праздник, но отпускной день не продлевается.
 
Перейти    
Сопоставление отпуска в графике
 
#
21.03.2016 13:02:03
ber$erk, праздничный день не сдвигается. И почему-то первый сотрудник не с первого раза заполняется.
 
Перейти    
Сопоставление отпуска в графике
 
#
21.03.2016 07:41:27
Здравствуйте!

Возможно ли в графике работы, на странице "Приложение", автоматически выставлять слово "отпуск" в ячейку столбца "Смены" каждого сотрудника.
Дни отпуска искались и сопоставлялись со страницы "Сотрудники", и если день выпадает на праздничный день, то отпуск продлевался.

Если возможно, пример реализации через макрос.
Спасибо!
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 15:15:33
Catboyun,Спасибо, кавычки были лишние. Задача решена.  
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 14:31:32
Цитата
vikttur написал: Озадачили )
Я имел введу формулу. "Она сделала"
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 13:09:24
Такс, для смен использовал =СЧЁТЕСЛИ(W8:W38;">0")
Для замены:
=ЕСЛИ(ЕЧИСЛО(ПОИСК("ОФИС";AB8));"8";ЕСЛИОШИБКА(ПСТР(AB8;9;2)-ЛЕВБ(AB8;2)-1;AB8))
сделала, что нужно, но теперь не считает не смены, не часы. Выдает несогласующуюся форму.
Изменено: Gubanov - 18.03.2016 14:30:50
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 10:30:50
Сергей,Спасибо, сработало.  
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 08:40:14
В минутах указываются нули.
Надо чтоб формула определяла что в соседней ячейке:
1. Если часы работы, то время работы;
2. Если стоит слово, то дублировал;
3. Если ячейка пустая, то 0.
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
18.03.2016 04:28:26
А если нет данных то вывести 0 или если есть текст, то дублировать текст?
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
17.03.2016 10:33:00
Здравствуйте!

Вопрос все по табелю, помогите с формулой.
Пример числа: 11:00 - 20:00
Нужно чтобы было вычитание: 20 - 11 - 1 и ответ вывелся в рядом стоящую ячейку.
В данном случае, в ячейке должно встать: 8
 
Перейти    
Автозаполнение определенных строк графика
 
#
18.12.2015 04:20:44
А как сделать заполнение только определенных дней недели в месяце? Например, в понедельник один офис, во вторник второй офис и т.д.
 
Перейти    
Автозаполнение определенных строк графика
 
#
09.12.2015 06:47:12
Здравствуйте!

Подскажите как сделать автозаполнение определенных строк в графике фамилиями сотрудников.
Чтобы сотрудники шли по порядку, повторение только в случае полного прохождения списка.
И если день выпадает на праздник, то день пропускается, если в какие-то дни сотрудник отдыхает, то его пропускает.

Например: В понедельник едет один сотрудник УРМ, во вторник два сотрудника на разные УРМ.
 
Перейти    
График работы, Несколько вопросов по графику
 
#
03.12.2015 07:02:31
На странице УРМ есть график, каждый день определенный сотрудник уезжает рабочее место.
УРМ может не повторяться, на некоторые места уезжают 1 раз в неделю.
На одно УРМ по 2 сотрудника.
 
Перейти    
График работы, Несколько вопросов по графику
 
#
03.12.2015 04:49:58
Здраствуйте.
Подскажите, пожалуйста, формулу, которая будет автоматически брать фамилию из списка и заполнять определенные дни в месяце.
Главное условие чтобы фамилии повторялись, если список закончился.  
 
Перейти    
Страницы: 1
Наверх