各位好：
请大家帮忙，我打算编个选择语句但试了几回总不行没，请帮忙改改！打算是执行条件某一区间如：
if val(text2.text)+0.02 > val(text1.text) > val(text2.text)-0.02 then
MsgBox "预计碳(C)含量与实际配料碳(C)含量基本平衡,可执行配料！", vbOKOnly + vbExclamation, "“配料提示”"
end if
if val(text1.text) < val(text2.text)-0.02 or val(text1.text) > val(text2.text)+0.02 then
MsgBox "预计碳(C)含量与实际配料碳(C)含量相差较大,请调整生铁或废钢配比(%)！", vbOKOnly + vbExclamation, "“配料提示”"
end if

谢谢！

If Val(Text2.Text) + 0.02 > Val(Text1.Text) And Val(Text1.Text) > Val(Text2.Text) - 0.02 Then
MsgBox "预计碳(C)含量与实际配料碳(C)含量基本平衡,可执行配料！", vbOKOnly + vbExclamation, "配料提示"

ElseIf Val(Text1.Text) < Val(Text2.Text) - 0.02 Or Val(Text1.Text) > Val(Text2.Text) + 0.02 Then
MsgBox "预计碳(C)含量与实际配料碳(C)含量相差较大,请调整生铁或废钢配比(%)！", vbOKOnly + vbExclamation, "配料提示"
End If

MsgBox iif(val(text2.text)+0.02 > val(text1.text) and val(text1.text) > val(text2.text)-0.02, _
"预计碳(C)含量与实际配料碳(C)含量基本平衡,可执行配料！", _
"预计碳(C)含量与实际配料碳(C)含量相差较大,请调整生铁或废钢配比(%)！"), _
vbOKOnly + vbExclamation, "“配料提示”"

楼上好一个 iif 的妙用.
我刚才忘了考虑楼主的那两个条件是一致的.浪费了许多代码...

斑竹果然细心!