[發問] VBA Type 語法錯誤訊息

lcc_seven

OS：WIN 7，EXCEL 2010

在 Type 前面加上 Private或Public 也是一樣錯誤

在模組或活頁簿建立程式碼，也是錯誤

我記得以前使用2003版本好像沒問題，只是現在沒這個版本可以測試

請問是出了什麼問題？

Sub test2()

Type MyType
    MyName As String    ' String variable stores a name.
    MyBirthDate As Date    ' Date variable stores a birthdate.
    MySex As Integer    ' Integer variable stores sex (0 for
End Type    ' female, 1 for male).

End Sub

下載 (23.46 KB)
VBA Type 語法錯誤訊息.jpg

2012-7-21 15:48

GBKEE

回復 1# lcc_seven
VBA 的說明 及範例
Type 陳述式範例   
本範例使用 Type 陳述式來定義使用者自訂的資料型態。Type 陳述式只能在模組層級中使用。如果要在物件類別模組中使用，Type 陳述式的前面一定要加上 Private 關鍵字。

1. Type EmployeeRecord    ' 建立使用者自訂的資料型態。
   
2.     ID As Integer    ' 定義資料型態的元素。
   
3.     Name As String * 20
   
4.     Address As String * 30
   
5.     Phone As Long
   
6.     HireDate As Date
   
7. End Type
   
8. Sub CreateRecord()
   
9.     Dim MyRecord As EmployeeRecord    ' 宣告變數。
   
10.     ' 對變數 EmployeeRecord 的給值動作必需在程某個序中才可以。
    
11.     MyRecord.ID = 12003    ' 給定某個元素的值。
    
12. End Sub

複製代碼

lcc_seven

回復 2# GBKEE
範例碼無錯誤訊息，可以執行，感謝回復~~

只是說也奇怪，我剛剛也有把 Type 放在 Sub 內跟 Sub 交叉測試過，都有錯誤訊息

怎麼現在就可以了？

====================================================

剛剛在測試了一下，發現是自己搞烏龍，把 Type 放在 Sub 下面，而不是在模組最上方，難怪會發生錯誤。