作者deron08w (deron08w)
看板Visual_Basic
标题[VBA ] 新手学习VBA问题
时间Tue Nov 15 00:02:10 2016
我的程式码打这样
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1479139333.A.1E3.html
1F：推 manforwan: 你类别没写，或每注册，或没设定引用 11/15 18:05
2F：推 unfinish: 那段程式码你应该是写在表单(userform)里面吧 如果只有 11/18 14:33
3F：→ unfinish: 单一表单会用到 那在最前面加个private就行了 如果有很 11/18 14:33
4F：→ unfinish: 多表单都会用到 那你要新增模组定义类别才能共用 11/18 14:34
5F：→ waiter337: Public Stock As StockData 放在end type 後面看看 12/07 03:26