关于宏的条件语句的处理

Sub Macro2()
'
' Macro2 Macro
' 宏由 录制，时间: 2009-10-21
'

'
If Application.InputBox("请输入需要输入的代码（输入D为D段，其他为B段：") = 123 Then
MsgBox "输入值为“D”段："
Range("d1").Select
ActiveCell.FormulaR1C1 = "=10"
Range("d2").Select
ActiveCell.FormulaR1C1 = "=20"
Range("d3").Select
ActiveCell.FormulaR1C1 = "=30"
Range("d4").Select
ActiveCell.FormulaR1C1 = "=40"
Range("d5").Select
Else
MsgBox "输入值为“B”段："
Range("B1").Select
ActiveCell.FormulaR1C1 = "=1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=2"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=3"
Range("B4").Select<

关于条件语句的问题 关于数据库的问题！！有关条件选择语句的！ 关于select两个条件同时成立的语句怎么写??? 一个关于VF条件循环语句的问题 急急急....关于if 条件语句的问题!! 条件语句的翻译程序 关于P处理中的FOR语句的问题 C#简单的条件语句,求助!!! sql的查询条件语句可不可以合并？ 请问PHP的条件语句是什么格式？