Добрый вечер!Помогите разобраться,ничего не могу найти по этому поводу.Есть табель рабочего времени на n работников.Нужно расставить по итогу месяца все больничные (б),трудовые отпуска(о) и отпуска без сохранения з/п (а). Что бы не искать глазами нужную ячейку,нужно зная дату и фамилию в ячейку пересечения этих двух параметром поставить нужную букву.Т.е. хочу сделать 3 ячейки:1-выпадающий список фамилий,2-выпадающий список дней месяца,а 3-прописывать нужную букву и чтоб она автоматом переносилась в нужную ячейку табеля.помогите,пожалуйста, в данном вопросе
Добрый вечер!Помогите разобраться,ничего не могу найти по этому поводу.Есть табель рабочего времени на n работников.Нужно расставить по итогу месяца все больничные (б),трудовые отпуска(о) и отпуска без сохранения з/п (а). Что бы не искать глазами нужную ячейку,нужно зная дату и фамилию в ячейку пересечения этих двух параметром поставить нужную букву.Т.е. хочу сделать 3 ячейки:1-выпадающий список фамилий,2-выпадающий список дней месяца,а 3-прописывать нужную букву и чтоб она автоматом переносилась в нужную ячейку табеля.помогите,пожалуйста, в данном вопросеЭлона
Private Sub Worksheet_Change(ByVal Target As Range) Dim FIO$, d&, s$, r&, col& FIO = Cells(2, 49).Value d = Cells(3, 49).Value s = Cells(4, 49).Value If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AW4")) Is Nothing Then r = Range("A:A").Find(What:=FIO).row col = Range("E1:AI1").Find(What:=d).Column Cells(r, col).Value = s End If End Sub
[/vba]
В модуль листа: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim FIO$, d&, s$, r&, col& FIO = Cells(2, 49).Value d = Cells(3, 49).Value s = Cells(4, 49).Value If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AW4")) Is Nothing Then r = Range("A:A").Find(What:=FIO).row col = Range("E1:AI1").Find(What:=d).Column Cells(r, col).Value = s End If End Sub
_Igor_61, Здравствуйте, я начала делать табель, мне надо по часам видеть сколько человек отработал, но хотелось бы доработать его: что бы поставив например «о», у меня в графе отпуск ставились количество отпусков например 3К*8=24 и итого я бы видела сколько часов человек был в командировке, так же с отпусками, отгулами и больничными. Понятно что это можно было бы сделать через =СЧЁТЕСЛИ но тогда время по часам не считается. А итоговое время в офисе важно. Проблема что график типа поставить цифру 8 мне не подходит, надо именно начало рабочего дня и окончание, что бы я первую цифру четко видела и могла контролировать время прихода и ухода
вариант 1 смогла там учесть обед вариант 2 там подход другой и я не смогла там считать время с обедом
Может хотя бы направить в правильном русле, пожалуйста, а то я совсем не специалист в эксель, а задачу поставили сделать…вот бьюсь уже второй день. Очень надеюсь на вашу поддержку и помощь.
_Igor_61, Здравствуйте, я начала делать табель, мне надо по часам видеть сколько человек отработал, но хотелось бы доработать его: что бы поставив например «о», у меня в графе отпуск ставились количество отпусков например 3К*8=24 и итого я бы видела сколько часов человек был в командировке, так же с отпусками, отгулами и больничными. Понятно что это можно было бы сделать через =СЧЁТЕСЛИ но тогда время по часам не считается. А итоговое время в офисе важно. Проблема что график типа поставить цифру 8 мне не подходит, надо именно начало рабочего дня и окончание, что бы я первую цифру четко видела и могла контролировать время прихода и ухода
вариант 1 смогла там учесть обед вариант 2 там подход другой и я не смогла там считать время с обедом
Может хотя бы направить в правильном русле, пожалуйста, а то я совсем не специалист в эксель, а задачу поставили сделать…вот бьюсь уже второй день. Очень надеюсь на вашу поддержку и помощь.irksky11