作者cutekid (可爱小孩子)
看板Office
标题Re: [算表] VBA表单传递参数时ByRef引数型态不符
时间Mon Apr 10 15:16:46 2023
Dim P as integer,S as integer,D as integer
※ 引述《o1o3o1o31030 (主席)》之铭言:
: 软体:
: Excel
: 版本:
: 365
: 用VBA制作了一个UserForm,用来键入参数
: 键入後按确认传递给SUB
: 但是一直出现ByRef引数型态不符
: 请版大救救我
: ------------------------------------------------------
: Private Sub BT1_Click()
: Dim P, S, D As Integer
: If CBB1 = "上" Then
: P = 1
: ElseIf CBB1 = "下" Then
: P = 8
: End If
: If CBB2 = "左" Then
: S = 1
: ElseIf CBB2 = "右" Then
: S = 0
: End If
: If CBB3 = "前" Then
: D = 1
: ElseIf CBB3 = "後" Then
: D = 0
: End If
: Call 测试(P, S, D) ------------------->这里出现ByRef 引数型态不符
: Unload UF1
: End Sub
: -------------------------------------------------------
: Public Sub 测试(P As Integer, S As Integer, D As Integer)
: msgbox P & S & D
: End Sub
: -----------------------------------------------------------
: 谢谢各位
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 118.167.222.35 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1681111007.A.EB9.html
1F:推 o1o3o1o31030: 感谢!!! 04/10 19:54