图解：定义变量的重要性

andysky

香川群子 发表于 2013-4-2 01:21
如果你已经意识到dim有作用，就学习并使用dim吧。

在学习过程中如果有出现问题，那就痛并快乐着吧。

你的观点一直就是大错特错的
总以为定义变量要投入太多的精力，甚至也以此去误导所有VBA初学者。
事实上，要定义好变量，是极度简单的事，哪需要花什么精力？？？

把数据类型表打印出来放在桌上，一个字都不记，
要定义变量时核对一下数据类型的范围就行了，不可能比较大小也有压力吧？小学二年级的学生足以完成这项工作。

例如表达式是600+30000，需要用一个变量来存放这个表达式的结果，看一眼数据类型表，几乎2秒钟就明白不以用Integer、Byte、Range之类，因为太明显了。宜用Long型。

永远不需要记一个字，看一下类数据类型表，两三秒钟就完成的事，这也算“太多的时间精力”？甚至比写一个简单的SUM求和公式简单。
连这点事都有压力的话，尽早改行吧
___________________________________
打一个比方，定义变量就好比升学时根据自己的考分定义学校一样。
例如C类学校录取分是500分以上，B类学校的录取分是550分以上，A列学校的录取分是600分以上
如果你考了580分，你应该选上什么学校？
请问对以上问题做出正确的选择，算不算很难？算不算要花“太多的时间精力”？

香川群子

1. Sub Test2()
   
2. '    Dim a#, b#, c#, d#, e#, f#
   
3.     '使用上面dim语句定义变量类型，或者注释掉dim语句直接采用默认Variant变体类型时的差异
   
4.     a = 100.00001
   
5.     MsgBox "a=" & VTp(a)
   
6.    
   
7.     b = 12345.1
   
8.     MsgBox "b=" & VTp(b)
   
9.    
   
10.     c = a + b
    
11.     MsgBox "c=a+b=" & VTp(c)
    
12.    
    
13.     d = c - b
    
14.     MsgBox "d=a+b-b=" & VTp(d)
    
15.     dd = (d - 100) * 10 ^ 14
    
16.     MsgBox "(d-100)*10^14=" & VTp(dd)
    
17.    
    
18.     MsgBox "d=a+b-b=" & d & vbCr & "a=" & a & vbCr & "d=a  → " & (d = a)
    
19.     MsgBox "d=a+b-b=" & d & vbCr & "a=" & a & vbCr & "d-a= " & d - a
    
20.   
    
21.   
    
22.     e = a + b - b - a
    
23.     MsgBox "e=a+b-b-a= " & VTp(e)
    
24.    
    
25.     f = a - a + b - b
    
26.     MsgBox "f=a-a+b-b= " & VTp(f)
    
27.    
    
28.     MsgBox "e=a+b-b-a=" & e & vbCr & "f=a-a+b-b=" & f & vbCr & "e=f → " & (e = f)
    
29.    
    
30. End Sub
    
31. Function VTp(t)
    
32.     VTp = t & vbCr & Choose(VarType(t) + 1, " Empty 0", " Null 1", " Integer 2", " Long 3", " Single 4", " Double 5", " Currency 6", " Date 7", " String 8", " Object 9", " Error 10", " Boolean 11", " Variant 12", " DataObject 13", " Decimal 14", 15, 16, " Byte 17", " UserDefinedType 36", " Array 8192")
    
33. End Function
    

复制代码

fzkoko

学习了，谢谢。

yb1421

区别真大，值得学习。

andysky

andysky 发表于 2013-4-2 08:22
你的观点一直就是大错特错的
总以为定义变量要投入太多的精力，甚至也以此去误导所有VBA初学者。
事实 ...

回复chenzyyysl ：
“C类学校录取分是500分以上，B类学校的录取分是550分以上，A列学校的录取分是600分以上
如果你考了580分，你应该选上什么学校？”

这个问题小学一年级的学生就会，何况，初学VBA的人呢？
初学VBA的人都至少初中学历了吧？
一个初中生连这个都不会，有可能吗？
而定义变量和数据类型和这个问题的难度一模一样。仅仅比较大小罢了。

ngnndkkk

andysky 发表于 2013-4-3 10:15
回复chenzyyysl ：
“C类学校录取分是500分以上，B类学校的录取分是550分以上，A列学校的录取分是600分以 ...

本来象这样的主题贴我怕跟贴，因为一旦跟了贴，日后一登录，在“我参与的主题”下往往这样的贴总是置顶，去观注吧，一看，跟贴的内容往往是“顶一个”、“赞一个”、“同感”、“感谢”、“很有收获”等等这样的没有什么新意的回贴内容，不观注吧，它却在置顶着，所以感觉很不爽。

言归正传：
1.本主题贴的内容图文并茂，已经生动说明了定义变量的极大好处，一般情况下不用再去回复什么跟贴了
2.（承上）你若回贴，反倒描述不清，况且还有描述重复的嫌疑
3.就你35楼发言来说，你的本意是想再次表明记变量类型或看变量类型没那么“累人”或“难人”，但话多失语，难免有疏漏。举个例子吧，有一个变量theDate，接受日期型数据，该日期由用户从键盘输入，故在代码进入下一处理前，应该检测该输入日期值的合法性，若是VBA初学者，此时你若问他（她）该变量应该定义为什么类型，假设他（她）在经你前面所叙中，已经对变量多加留意了，且有了一定的基础，极有可能脱口而出：定义为日期型呗，那还有啥好说的！所以，你在35楼的要求使他（她）还不能达到对变量使用自如的层次（事实上，不论什么方法都没办法让初学者达到这个层次，唯有时间和编码经验）。回到前面话题，上述变量显然应该定义为变体型（不要在此拍砖，说既然是待检测的不确定数据，当然是变体型啊。评：你晓得，俺晓得，可他或她却不晓得或并未意识到这一点），这样下文就可用IsDate()函数来检测了。顺便说下，后来的观注者（初学者）若看到此，可能认为定义为日期型为什么就不行，我说，行，但theDate接受该值时代码立马中断而报错，也有说，那就用On Error Resume Next 呗，我说，你不嫌累，不嫌代码为此而大费周章，那就定义为日期型好了。

最后：说的有些乱，而且也犯了言多必失的毛病了。总之，我这贴的意思是劝本主题贴的版主尽量不要去跟贴了，否则越跟越乱，反倒冲淡了前面楼层旗帜鲜明的图文说明。

lsdongjh

香川群子 发表于 2013-4-2 00:31
2楼演示是混淆了变量中的一个错误类型： 公共变量的使用，在不需要传递变量时需要初始化。

你演示的错 ...

你的解释有点钻牛角了，重点并不是什么公共变量的初始化问题，而是：
当局部变量与全局变量重名时，不定义的话，很难发现

香川群子

lsdongjh 发表于 2013-4-3 11:51
你的解释有点钻牛角了，重点并不是什么公共变量的初始化问题，而是：
当局部变量与全局变量重名时，不定 ...

首先，我很明确地说明了，楼主演示的第2个问题和dim无关。

其次，即使按你的说法，当局部变量和全局变量发生【重名】时，dim本身也不会发现任何问题。

呵呵。

香川群子

ngnndkkk 发表于 2013-4-3 11:22
本来象这样的主题贴我怕跟贴，因为一旦跟了贴，日后一登录，在“我参与的主题”下往往这样的贴总是置顶， ...

我知道绝大多数有编程经验的人都会赞同需要使用dim语句。

这个应该是没问题的。

但是否可以让初学者不要一上来就产生纠结呢？

尽管楼主说使用dim没啥难度，初学者随便看看就能明白……
我却发现事实是，很多低水平阶段的初学者因为照样画葫芦使用了dim并不恰当地定义了变量类型而导致【莫名其妙】的错误……

因此，我认为不应该在初学阶段就过分强调dim的好处而【强迫】初学者必须要使用dim语句。

正确使用dim语句，还是需要一定的经验积累的。

香川群子

为了有【夺人眼球】的效果，所以我也做了些夸张，
但确实是很客观地证明了，几乎80%以上的小型VBA代码（100行左右）完全可以不用dim语句而正常运行。

那么这个对于很多初学者来说就是一个很好的、得以让心情放松的利好消息。


…………
非常重要的是让初学者敢于去写代码，做自己想做的事。
在学习过程中自己就会进步，直至充分理解dim的作用。