Question

关于VB的IF语句的写法

没有学过VB，只学过java和c#。最近在研究excel的宏，请问一个问题怎么实现？
Sub 判断对错(b1, c1)
If b1 = c1 Then a1 = "right"
Else: a1 = "wrong"
End If
End Sub
是不是写法上完全不对？要实现这个判断如何快捷？用录制宏吗？实在是对excel和vb一点都不了解。
我这里的B1和C1是单元格的值，请问怎样表示单元格才是正确的？

Answer 1

　　根据表达式的值有条件地执行一组语句。
　　语法：
　　If condition Then [statements][Else elsestatements]
　　或者，可以使用块形式的语法：

　　If condition Then

　　[statements]
　　[ElseIf condition-n Then

　　[elseifstatements] ...
　　[Else

　　[elsestatements]]
　　End If

　　If...Then...Else 语句的语法具有以下几个部分：

　　部分描述：

　　condition 必要参数。一个或多个具有下面两种类型的表达式：
　　数值表达式或字符串表达式，其运算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
　　TypeOf objectname Is objecttype 形式的表达式。其中的 objectname 是任何对象的引用，而 objecttype 则是任何有效的对象类型。如果 objectname 是 objecttype 所指定的一种对象类型，则表达式为 True，否则为False。
　　statements 在块形式中是可选参数；但是在单行形式中，且没有 Else 子句时，则为必要参数。一条或多条以冒号分开的语句，它们在 condition 为 True 时执行。
　　condition-n 可选参数。与 condition 同。
　　elseifstatements 可选参数。一条或多条语句，它们在相关的 condition-n 为 True 时执行。
　　elsestatements 可选参数。一条或多条语句，它们在前面的 condition 或 condition-n 都不为 True 时执行。

Answer 2

'函数不能用SUB，要用Function
Public Function 判断对错() '最好不用中文
If b1 = c1 Then
判断对错 = "right"
Else
判断对错 = "wrong"
End If
End Function

'调用时用
'a=判断对错(数字1,数字2)
'如果是正确，a=right不然是wrong，能追加点分？

Answer 3

Sub Macro1()
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+W
If Range("B1").Value = Range("C1") Then Range("A1").Value = "right" Else Range("A1").Value = "Wrong"
End Sub
录制一个宏，然后把
If Range("B1").Value = Range("C1") Then Range("A1").Value = "right" Else Range("A1").Value = "Wrong"
拷到内容里就可以了
快捷键Ctrl+Shift+W执行

Answer 4

我看你那个有点混乱下面是我整理后的代码：
sub dicide(b1,c1)
dim a1 as boolean
if b1=c1 then a1=true /**vb里的布尔值用法是和java里的样的，在这里我建议你用布尔值变量，这样可以减少工作量（程序员的和机器的）*/
else a1=faulse
end if
end sub
对于B1，C1单元格可以采用调用的方式得到数据（xl:表示Excel中的常量，vb：表示vb和vba中的常量如vbNormal，db：表示Data Access Object常量）具体项目比较多，这里无法一一列出，请查阅有关文档资料，同时也增加了自己的vb知识。

Answer 5

If b1 = c1 Then
a1 = "right"
Else
a1 = "wrong"
End If
这样就对了