Сравните предполагаемые дни с рабочими днями в Excel скачать в хорошем качестве

Сравните предполагаемые дни с рабочими днями в Excel

Сравните предполагаемое количество дней с рабочими днями в Excel. Отслеживайте задания по рабочим дням с помощью штрихкодов в Excel. Отслеживайте время, затраченное на задание, относительно выделенного или предполагаемого времени. Учитывайте только рабочие дни. Бесплатные шаблоны и шаблоны с кодом доступны для покупки за 50 долларов США. https://www.easyexcelanswers.com/temp... Дополнительные шаблоны могут быть доступны по запросу. Ознакомьтесь с моим введением в VBA:    • Introduction to VBA for Excel   Перейдите по этой ссылке, чтобы ознакомиться с моими индивидуальными тренингами: http://www.calendly.com/easyexcelanswers Для получения дополнительной помощи посетите мой сайт www.easyexcelanswers.com или напишите мне по адресу easyexcelanswers@gmail.com. Свяжитесь со мной, чтобы настроить этот шаблон под ваши нужды. Нажмите для онлайн-консультации по Excel: http://www.calendly.com/easyexcelanswers Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене. Я использую Tube Buddy для продвижения своих видео. Посмотрите их: https://www.Tubebuddy.com/easyexcelan... Подпишитесь на меня в Facebook:   / easyexcel.answers   IG @barbhendersonconsulting Вы можете помочь и создать перевод на свой язык: http://www.youtube.com/timedtext_cs_p... *Это описание может содержать партнёрские ссылки. При переходе по ним я могу получить небольшую комиссию бесплатно. Я рекомендую только те продукты и услуги, которые сам использовал или с которыми имею опыт. Option Explicit Sub toolsout() Dim barcode As String Dim rng, rng1 As Range Dim rownumber As Long barcode = ActiveSheet.Cells(2, 2) Если barcode = "" Then Exit Sub Если barcode не равен "" Then 'поиск barcode Set rng = Sheet1.Columns("a:a").Find(What:=barcode, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) If rng Is Nothing Then MsgBox "Задание не найдено" GoTo end Else rownumber = rng.Row If Cells(rownumber, 4) = "" Then Лист1.Ячейки(номер_строки, 4).Выбрать ActiveCell.Значение = Дата ActiveCell.ЧисловойФормат = "м/д/гггг" Лист1.Ячейки(2, 1) = "" Перейти к концу Иначе rownumber = rng.Строка ActiveSheet.Ячейки(номер_строки, 5).Выбрать ActiveCell.Значение = Дата ActiveCell.ЧисловойФормат = "м/д/гггг" Лист1.Ячейки(2, 2) = "" Конец Если Конец Если Конец Если конец: Call numdays Лист1.Ячейки(2, 2) = "" Лист1.Ячейки(2, 2).Выбрать Конец Подпрограммы Sub numdays() Dim start As Date Dim lastrow, r As Long Dim nday As Long lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row r = 4 Для r = 4 До последней строки Если Sheet1.Cells(r, 5) не равно "", то Sheet1.Cells(r, 6) = Application.NetworkDays(Sheet1.Cells(r, 4), Date) Если Sheet1.Cells(r, 6).Value больше = Sheet1.Cells(r, 2).Value И Sheet1.Cells(r, 4) не равно "", то Sheet1.Cells(r, 6).Interior.ColorIndex = 3 Конец Если Конец Если Следующий r Конец Подчинённого Частный Подчинённый Рабочий_лист_Изменение(ПоЗначению Целевой Как Диапазон) Если Не Пересечь(Целевой, Я.Диапазон("A2")) Есть Ничего, то Вызов toolsout Application.EnableEvents = True End If End Sub Как вставить код VBA в Excel    • How to insert VBA code in Excel