{"tags":[{"tag":"textarea","content":"Sub PositiveNegativeZero()\n Dim number As Integer\n number = InputBox(\"Enter a number:\")\n \n If number > 0 Then\n MsgBox \"The number is positive.\"\n ElseIf number < 0 Then\n MsgBox \"The number is negative.\"\n Else\n MsgBox \"The number is zero.\"\n End If\nEnd Sub\n","code_language":"typescript"},{"tag":"p","content":"&nbsp;the first If condition checks if the number is greater than 0. If it is, a message box displays \"The number is positive.\" If not, the ElseIf statement checks if the number is less than 0. If it is, a message box displays \"The number is negative.\" If neither of these conditions are met, the Else statement executes and a message box displays \"The number is zero.\"&nbsp;"}]}

If condition_1 Then result_1
ElseIf condition_2 Then result_2
...
ElseIf condition_n Then result_n
Else result_else
End If

{"tags":[{"tag":"p","content":"ElseIf statement allows you to test additional conditions if the first If condition and any subsequent ElseIf conditions are not met. The syntax for the ElseIf statement is as follows: "},{"tag":"textarea","content":"If condition1 Then\n ' code to execute if condition1 is True\nElseIf condition2 Then\n ' code to execute if condition2 is True\nElseIf condition3 Then\n ' code to execute if condition3 is True\nElse\n ' code to execute if none of the conditions are True\nEnd If\n","code_language":"typescript"}]}

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
Range("D" & Target.Row) = Date
Range("E" & Target.Row) = Format(Now, "hh:mm:ss")
End If
End Sub

{"tags":[{"tag":"p","content":"You have reached your max daily Grepper answers. <a href=\"https://www.grepper.com/subscriptions.php\" target=\"_blank\" rel=\"nofollow\">Upgrade to professional </a>to view more Grepper answer today."},{"tag":"p","content":"<a href=\"https://www.grepper.com/api/view_product.php?hl=1&amp;pid=42\" target=\"_blank\" rel=\"nofollow\">Upgrade To Grepper Professional</a>"}]}