Excel|Typename的用法返回值|返回值,Typename

1. 
   
2. Option Compare Text
   
3. Sub test1()
   
4. 1   Worksheets('Sheet1').Activate '激活工作表时
   
5.     Debug.Print '您选择的是：' & TypeName(Selection) '显示range
   
6. 2   Sheets('Chart1').Activate '图表
   
7.     Debug.Print '您选择的是：' & TypeName(Selection) '显示CHartArea
   
8. 3   Sheets('宏1').Activate '宏表，不常用
   
9.     Debug.Print '您选择的是：' & TypeName(Selection) '显示range
   
10. 4   Sheets('对话框1').Activate 'MS Excel5.0对话框,不常用
    
11.     Debug.Print '您选择的是：' & TypeName(Selection) '显示nothing
    
12. 5   Worksheets('有密码').Activate '激活工作表
    
13.     Debug.Print '您选择的是：' & TypeName(Selection) '显示Range
    
14. 6   Sheet1.Activate '激活工作表
    
15.     Sheet1.Range('a1').Select '选择单元格A1
    
16.     Debug.Print '您选择的是：' & TypeName(Selection) '显示range
    
17. End Sub
    
18. Sub test2()
    
19. Dim StrVar As String, IntVar As Integer, CurVar As Currency
    
20. Dim ArrayVar(1 To 5) As String '如为其它类型则显示为不同的类型
    
21. Debug.Print TypeName(StrVar)    ' 返回 'String'。
    
22. Debug.Print TypeName(IntVar)    ' 返回 'Integer'。
    
23. Debug.Print TypeName(CurVar)    ' 返回 'Currency'。
    
24. Debug.Print TypeName(ArrayVar)    ' 返回 'String()'。
    
25. End Sub
    
26. Sub test3()
    
27. On Error Resume Next
    
28. arr = [a1:b3] '赋值
    
29. Debug.Print TypeName(arr) '显示为变量数组
    
30. Set arr = [a1:b3] '定义范围
    
31. Debug.Print TypeName(arr) '显示为RANGE
    
32. dat = Now 'dat为变量，赋值后显示类型
    
33.     Debug.Print '您选择的是：' & TypeName(dat) '日期型
    
34.   Dim nulvar '定义变量
    
35.     Debug.Print '您选择的是：' & TypeName(nulvar) '显示为Empty
    
36.     nulvar = Null '变量=NULL
    
37.     Debug.Print '您选择的是：' & TypeName(nulvar) '显示为NULL
    
38.   Set nulvar = Nothing '清空
    
39.     Debug.Print '您选择的是：' & TypeName(NullVar) '显示为EMPty
    
40. End Sub
    
41. Sub test4()
    
42. Debug.Print TypeName(Selection) '选中对话框表中的按扭时，运行显示为Button
    
43. End Sub
    
44. Sub test5()
    
45. Dim shp As Object
    
46. For Each shp In Sheet1.Shapes '循环每个shape
    
47. shp.Select '选择当前SHAPE
    
48. Debug.Print TypeName(Selection) '显示所选择的类型
    
49. Next
    
50. End Sub
    
51. Sub test6()
    
52. Debug.Print TypeName(Sheet1.Range('f1').Value) '数字
    
53. Debug.Print TypeName(Sheet1.Range('f2').Value) '字符型数字
    
54. Debug.Print TypeName(Sheet1.Range('f3').Value) '字母
    
55. Debug.Print TypeName(Sheet1.Range('f4').Value) '汉字
    
56. Debug.Print TypeName(Sheet1.Range('f5').Value) '有迷你图的数字
    
57. Debug.Print TypeName(Sheet1.Range('f6').Value) '货币型
    
58. Debug.Print TypeName(Sheet1.Range('f7').Value) '日期型
    
59. Debug.Print TypeName(Sheet1.Range('f8').Value) '字符型
    
60. Debug.Print TypeName(Sheet1.Range('f9').Value) '特殊的数字中文小写
    
61. End Sub
    

Typename.rar(35.2 KB)
(下载次数: 11, 2010-12-3 14:58 上传)

扩展：可以根据返回值的属性来批量去操作，如工作表中插入的图像及控件，根据返回picture或Button来改变这一类的其他属性。要注意的事：option compare text,以前我犯过不少这样的错误，如没加时，必须要注意字母的大小写。