这段VB代码哪错了？

显示全部楼层 · 2011-3-12 08:54:40

textbox1.value是字符串对象，不能直接用于数值操作，要用Val函数变为数值对象，正确改法为：val(textbox1.text)还可能有个小问题：font对象颜色是fontcolor不是font．color的希望能解决你的问题...

千问 · 2011-3-12 08:54:40

抱歉，这个语法我不太习惯，帮你改成这个样子了，应该能满足你的要求。Private Sub CommandButton1_Click()
For Each mcell In Selection
Let c = CDbl(mcell.Value)
If (cTextBox2.Value”改为：Case Is > CDbl(TextBox2.Value)...

千问 · 2011-3-12 08:54:40

Let c = mcell.Value改成Set c = mcell.Value看看...