Option Explicit

Sub change(ByRef V As Long)
  V = 100
End Sub


Sub test()
  Dim V1 As Long
  Dim V2 As Long
  change V1
  change (V2)
  Debug.Print V1
  Debug.Print V2
End Sub

Enum MyConstants
  cDateOtgruz = 1 'начальное значение, если не указать, будет 0
  cDateOplaty ' автоматически = 2 (предыдущее + 1)
  cSomeConst ' автоматически = 3 (предыдущее + 1)
'......... и т.д.
  cPriceOpt3
'.........
  cLastCol
End Enum

Function Category(s$) As String
    s = " " & Trim(s)
    Select Case True
    Case s Like "* ООО *": Category = "Юр.лицо"
    Case s Like "* АО *": Category = "Юр.лицо"
    Case s Like "* ИП *": Category = "ИП"
    Case Else: Category = "Физ.лицо"
    End Select
End Function

=If(g1<=0;функция(аргументы);значение)

    If Not IsEmpty(cell) Then Kolekciya_unik.Add cell.Value

Sub Макрос1()
  Dim nrs As Integer

  For nrs = 23 To 5000
    if (проверка условия) Then
      Call Обработка1(nrs)
'сюда вернется обработка после выполнения процедуры Обработка1
    Else
      Call Обработка2(nrs)
'сюда вернется обработка после выполнения процедуры Обработка2
    End If
  Next
End sub

Sub Обработка1(nrs As Integer)
'не используем For nrs ...!

End Sub

Sub Обработка2(nrs As Integer)
'не используем For nrs ...!

End Sub

ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

ActiveSheet.UsedRange.Rows.Count = 3 дня - длительность отпуска
ActiveSheet.UsedRange.Row = 9 мая - начало отпуска
ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count = 9 + 3 = 12 - день выхода из отпуска
ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 = 9 + 3 - 1 = 11 - последний день отпуска

=СЧЁТЕСЛИ($N$3:$N$14;"*"&N3)

d = .Round(1 + i / nMax, 2#)

Public Function MyRoundFixStatic(X As Double, R As Long) As Double
  Static OldR As Long
  Static D As Double
  Dim i As Long
  If R <> OldR Then
    D = 1
    For i = 1 To R
      D = D * 10#
    Next i
    OldR = R
  End If
  MyRoundFixStatic = Fix(X * D + 0.5) / D
End Function

WorksheetFunction.Round      5,78125 
VBA.Round                    0,203125 
MyRoundFix                   0,4375 
MyRoundFixStatic             0,296875 

Public Function MyRoundFix(X As Double, R As Long) As Double
  Dim D As Double
  Dim i As Long
  D = 1
  For i = 1 To R
    D = D * 10#
  Next i
  MyRoundFix = (Fix(X * D + 0.5)) / D
End Function

WorksheetFunction.Round      5,765625 
VBA.Round                    0,203125 
MyRoundInt                   0,375 
MyRoundFix                   0,359375 

=СЕГОДНЯ()+ОКРУГЛ((ЧАС(ТДАТА())-ЧАС(E8))/24;0)

=СЕГОДНЯ()+ОКРУГЛ((ЧАС(ТДАТА())-ЧАС(B6))/24;0)

=СЕГОДНЯ()+ОКРУГЛ((ЧАС(ТДАТА())-ЧАС(F2))/24;0)

=ТДАТА()+ВРЕМЯ(4;0;0)