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

Сравните предполагаемое количество дней с рабочими днями в Excel. Отслеживайте задания по рабочим дням с помощью штрихкодов в Excel. Отслеживайте время, затраченное на задание, относительно выделенного или предполагаемого времени. Учитывайте только рабочие дни.

Бесплатные шаблоны и шаблоны с кодом доступны для покупки за 50 долларов США.

https://www.easyexcelanswers.com/temp...
Дополнительные шаблоны могут быть доступны по запросу.

Ознакомьтесь с моим введением в VBA:    • Introduction to VBA for Excel  

Перейдите по этой ссылке, чтобы ознакомиться с моими индивидуальными тренингами: http://www.calendly.com/easyexcelanswers

Для получения дополнительной помощи посетите мой сайт www.easyexcelanswers.com или напишите мне по адресу [email protected].

Свяжитесь со мной, чтобы настроить этот шаблон под ваши нужды.

Нажмите для онлайн-консультации по 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