If ³¯z¦¡¦³¨âºØ¡G³æ¦æªº If ³¯z¦¡©M¦h¦æªº If ³¯z¦¡¡C¦pªG¦b²Ä¤@Ó Then ¤§«á¥t°_¤@¦æ¡A´N¨Ï If ³¯z¦¡¦¨¬°¦h¦æ If ³¯z¦¡¡C§_«h´N¬O³æ¦æ If ³¯z¦¡¡C¦h¦æ If ³¯z¦¡¤@©w·|¥]§t End If¡A³æ¦æ If ³¯z¦¡«h¤£¥]§t¡C
ª`·N ¦]¬°¥i¥H¨Ï¥Î¦æ³sÄò¦r¤¸¡A©Ò¥H³æ¦æ If ³¯z¦¡¤]¤£¤@©w¥u¦³¤@¦æ¡C¤jP¦Ó¨¥¡A³Ì¦n¨Ï¥Î¦h¦æ If ³¯z¦¡¡A¦]¬°¨ä°t¸m¸û²M·¡¡C¦ý¦b²³æªº±¡ªp¤U¡A¦³®ÉÁÙ¬O·|¨Ï¥Î³æ¦æªº If ³¯z¦¡¡C
Rem ³æ¦æ If ½d¨Ò 1
Rem »P¦h¦æ If ½d¨Ò 1 µ²ªG¬Û¦P
If {û¤u.³¡ªù} = "Sales" Then _
formula = {û¤u.Á~¤ô} * 0.06 _
Else _
formula = {Employee.Salary} * 0.04
¦¹³BÅã¥Ü¤£¦P«¬¦¡ªº³æ¦æ If ³¯z¦¡¡G
Rem Single-line If example 2
Dim per As Number, extra As Boolean
per = 2 : extra = False
'¨S¦³ Else ¤l¥yªº½d¨Ò
If {û¤u.³¡ªù} = "Sales" Then per = 10
'Then ©Î Else ³¡¥÷¥i¥H¥[¤J¤@¥y¥H¤Wªº¹Bºâ¦¡¡Õ
'¥Î«_¸¹¤À¹j¶}¨Ó
If {û¤u.³¡ªù} = "R&D" Then _
per = 5 : extra = True _
Else _
per = 3