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

Страницы: 1
Расстановка отпусков из диапазона в графике
 
#
27.04.2017 13:07:01
Всем привет!

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

Пароль: 96318645
Изменено: Gubanov - 27.04.2017 23:06:41
 
Перейти    
Отображение листов с помощью макроса, Отображение листов определенным пользователям с помощью макроса
 
#
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
Лист предупреждения все также скрывается, при соглашении включения макросов.
Сейчас все листы отображаются только двоим сотрудникам, остальным первые две.
Нужно чтобы всем отображалась только первая страница, определенным пользователям две страницы, и еще пару пользователям все страницы, кроме Предупреждения.  
 
Перейти    
Макрос скрытия ячеек, Проблема с макросом
 
#
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
если разрешить выполнение макросов, выходит ошибка


После повторного запуска открывает книгу нормально и если имя пользователя не указано, то книга нормально отрабатывает макрос и без ошибки открывает ее.
 
Перейти    
Сопоставление отпуска в графике
 
#
21.03.2016 07:41:27
Здравствуйте!

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

Если возможно, пример реализации через макрос.
Спасибо!
 
Перейти    
Вычетание двух чисел одной ячейки
 
#
17.03.2016 10:33:00
Здравствуйте!

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

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

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