我的VBA成长随记...刚起步中

水无形

在看24小时中的调试处理了，感觉很不错，不像啃天书

水无形

Function HandleErrors(iErrNum) As Integer
　　Select Case iAction
　　Case 5
　　'Invalid procedure call
　　MsgBox Error(iErrNum) &" Contact Help Desk."
　　iAction=2
　　Case 7
　　'Out of memory
　　MsBox "Close all unnecessary applications."
　　iAction=1
　　Case 11
　　'Division by zero
　　MsgBox "Zero is not a valid value."
　　iAction=1
　　Case 48, 49,51
　　'Error in loading DLL
　　MsgBox iErrNum & "Contact Help Desk."
　　iAction=5
　　Case 57
　　'Device I/O error
　　Msgbox "Insert Disk in Drive A."
　　iAction=1
　　Case Else
　　Msgbox "Unrecoverable Error."
　　iAction=5
　　End Select
　　ErrorHandler=iAction
　　End Function

上面的IAction应该是错误的，应该是IErrNum。

13.6节内容

[此贴子已经被作者于2008-4-28 13:46:04编辑过]

水无形

看到24小时的20小时了，呵呵。感觉到了录制宏的好处，呵呵

ruby0105

正在学习中，谢谢分享。偶也要努力了啊！哈...

水无形

今天找到一个好东西，至少目前是这么认为的，可以借此好好练功，嘿嘿。

这是一位仁兄自己用的宏笔记，我想练手...什么什么用时方恨少，嘿嘿

t19FN6yz.rar (119.58 KB, 下载次数: 6)

2008-6-7 00:20 上传

点击文件名下载附件

[此贴子已经被作者于2008-6-7 0:20:34编辑过]

水无形

自己的基础太差，上面仁兄的东西演练起来太痛苦了。

这几天看 山版的《那一串红辣椒》，感觉山版就是山版呀，写得非常好懂。

这里主要学到了两个很容易犯错误的地方：

1，定义数组，把单元格赋给数组，这个时候数组的类型最好是variant，而不要因为单元格的值是整数就用 整数类型.不过我想如果用单元格的值赋给数组会是怎么样呢？ 呵呵，算了，用variant算了，简单呀。

2，一维数组的方向，由于在写函数的时候一维数组要么是单行{,,,,,,},或者是单列{;;;;;},而且一般习惯是单列的。这里延伸到VBA数组的时候就出状况了，在VBA中一维数组是单行的。所以把数组赋值给单列时需要转置过来：worksheetfunction.transpose(array) ；如果用 range("a1").resize(ubound(array),1)=array,那么会发现 range("a1:a" &ubound(array))全都等于range("a1")。

这个感觉就像胡剑说的数组的单值的自适应性，呵呵。

感觉非常好。

水无形

恩，试验了一下，发现用单元格的值赋给数组时也会出现类型错误。看来还必须使用variant，这样也好，使得别人说用了variant速度慢什么的，呵呵

水无形

恩，学习了FILTER函数，发掘这里有一个需要指出的，那就是第一个数组必须先定义尺寸，否则结果会出错。

水无形

还学到了IF的结构。

接触了DICTIONARY.学习中...

水无形

看山版的 红辣椒，又有调试收获，其实很简单的一个东西：本地窗口，我发觉本地窗口比较全面，能把信息反映出来，一般可以通过F8调试，结合 调试-运行到光标运行处就能很快的走一一遍。

立即窗口平时也在使用了，我发觉立即窗口更接近函数模式，由于他的及时性可以用来演练函数，恩，很不错，感觉有点找到学习的门径了，感谢，感谢呀...