返回列表 上一主題 發帖

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

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-21 15:53 | 只看該作者

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

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

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-7-21 16:46 | 只看該作者
回復 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
複製代碼

TOP

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
3#
發表於 2012-7-21 17:46 | 只看該作者
本帖最後由 lcc_seven 於 2012-7-21 17:57 編輯

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

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

怎麼現在就可以了？

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

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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題