|
Private Sub 查询按钮_click()
Dim a, i, x
x = Sheets(1).range("a1")
a = Sheets(3).range("a1").CurrentRegion
If Sheets(3).range("a1").CurrentRegion.Find(x) Is Nothing Then
MsgBox "输入错误或机型数据不存在,请点确定重新输入", , "警告"
End If
If InStr("SAF008AC,SAO008AC,SAU008AC,SAF013AC,SAO013AC,SAU013AC", range("A1")) Then
range("A6") = "600 * 550 * 1980"
range("C6") = "6kW"
End If
end sub
类似以上,每个命令背后都有个意图,怎么让编程的人知道每个命令的意图呢?好像直接在程序旁边打中文不行啊
方式1:手动在注释的前面输入单撇符号(')
方式2:点击"设置注释块",见动画
|
|