[已解决]求助一个简单的问题~~~~~~~~~~

E界白菜

跟着学习兰版的VBA80集。学习到日期和进度条，在学习进度条的时候遇到一个问题，请高手解答。谢谢~~~
问题的描述在窗体的代码窗口中。
先谢过各位大虾了。
{:361:}

最佳答案

月排行榜 / 总排行榜

sliang28

2013-8-3 08:39

ME.TEXTBOX1.VALUE它的值代表一个文本，与数子比较的话总是大于数字。想当于你在单元格输入一个文本与另一个纯数字比较，文本是大于数字的，所以全部就填充颜色了。
加VAL的话就是一个纯数子了，才能与单元格数字进行比较大小，也就是说数据类型就相同了。

跳转到最佳答案楼层

lyf7276

'If RG.Value < Me.TextBox1.Value Then '这句代码为什么把整个数据都填充成红色呢？
            'ME.TEXTBOX1.VALUE 不就代表文本框的值么，为什么还要加一个VAL函数呢？
VAL函数是提取字符串中的数字（只能提取前面的）。如果你不小心输入了123456A，就会处理成123456。

E界白菜

lyf7276 发表于 2013-8-3 07:26
'If RG.Value < Me.TextBox1.Value Then '这句代码为什么把整个数据都填充成红色呢？
            'ME.TEX ...

不是呀。
就是，他随便填一个数字，他把全部的数字都填充成红色了。
看到别的是说，如果TEXTBOX的值不加VAL的话，会出错，但是，为什么呢？
不清楚。
{:251:}

E界白菜

顶起来。。
求回答呀。

sliang28

ME.TEXTBOX1.VALUE它的值代表一个文本，与数子比较的话总是大于数字。想当于你在单元格输入一个文本与另一个纯数字比较，文本是大于数字的，所以全部就填充颜色了。
加VAL的话就是一个纯数子了，才能与单元格数字进行比较大小，也就是说数据类型就相同了。

E界白菜

sliang28 发表于 2013-8-3 08:39
ME.TEXTBOX1.VALUE它的值代表一个文本，与数子比较的话总是大于数字。想当于你在单元格输入一个文本与另一个 ...

你的答案是对的，用TYPENAME。测试出来了。
谢谢。
你真棒。
{:3912:}