[VBA ] 新手學習VBA問題

看板Visual_Basic作者 (deron08w)時間8年前 (2016/11/15 00:02), 編輯推噓2(203)
留言5則, 3人參與, 最新討論串1/1
我的程式碼打這樣 Type StockData StockCode As Long StockName As String Address As String TEL As String End Type Sub 輸入股票基本資料() Dim Stock As StockData Dim LastRow As Integer LastRow = Range("A65536").End(xlUp).Row Stock.StockCode = InputBox("請輸入股票代號") Stock.StockName = InputBox("請輸入股票名稱") Stock.Address = InputBox("請輸入公司地址") Stock.TEL = InputBox("請輸入公司電話") Cells(LastRow + 1, 1) = Stock.StockCode Cells(LastRow + 1, 2) = Stock.StockName Cells(LastRow + 1, 3) = Stock.Address Cells(LastRow + 1, 4) = Stock.TEL End Sub 但執行的時候出現: 編譯錯誤;無法在物件模組中定義公用(public)的使用者定義型態 我使用的教學光碟上面也是這樣打卻可以執行,拜託各位大大可以解決我的疑惑 謝謝各位!!!! -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.193.138 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1479139333.A.1E3.html

11/15 18:05, , 1F
你類別沒寫,或每注冊,或沒設定引用
11/15 18:05, 1F

11/18 14:33, , 2F
那段程式碼你應該是寫在表單(userform)裡面吧 如果只有
11/18 14:33, 2F

11/18 14:33, , 3F
單一表單會用到 那在最前面加個private就行了 如果有很
11/18 14:33, 3F

11/18 14:34, , 4F
多表單都會用到 那你要新增模組定義類別才能共用
11/18 14:34, 4F

12/07 03:26, , 5F
Public Stock As StockData 放在end type 後面看看
12/07 03:26, 5F
文章代碼(AID): #1OAU057Z (Visual_Basic)
文章代碼(AID): #1OAU057Z (Visual_Basic)