vba中if判断条件里等号无法完成赋值操作

　　今天遇到一个问题，结果发现是因为vba中if的判断条件中等号("=")无法完成赋值操作造成的。

　　举个栗子：

　

　　故应该在if之前就完成必要的赋值操作：

所以，if判断条件里的等号("=")只能用于判断相等，不能用于赋值。