调用SHEET页内SUB

hunterbm

分别在几个SHEET页里写了几个SUB。定义按钮，点击后按顺序调用这些SHEET页内SUB。

实践不成功，一直提示方法和数据成员未找到
SUB CALL1
Dim ws as worksheet
set ws=thisworkbook.worksheets("导出信息"）
ws.tiqu
end sub
这个写在模块里

tiqu是写在导出信息SHEET页内的SUB。

逍遥爱迪生

SHEET1中的代码：

• SHEET1中的过程或函数添加PUBLIC属性，其他表格或模块就能访问了
• Public Sub Sheet1TestSub()
  

1. 
   
2. Public Sub Sheet1TestSub()
   
3.     MsgBox "这是Sheet1表内的vba过程"
   
4. End Sub
   
5. Public Function Sum(a As Long, b As Long) As Long
   
6. Sum = a + b
   
7. End Function
   
8. 
   

复制代码

Sub 模块中过程()
    Sheet1.Sheet1TestSub
    '调用Sheet1中的函数，返回结果
    MsgBox Sheet1.Sum(33, 44)
End Sub

ww87725244

call worksheets("导出信息"）.tiqu试试

逍遥爱迪生

SHEET1中的函数添加PUBLIC属性，在其他模块或表中的就可以访问了

1. Public Sub Sheet1TestSub()
   
2.     MsgBox "这是Sheet1表内的vba过程"
   
3. End Sub

复制代码

访问方式：Sheet1.Sheet1TestSub

逍遥爱迪生

call sheets("导出信息").tiqu

导出信息表中的代码加PUBLIC
public sub tiqu()
end sub

hunterbm

逍遥爱迪生 发表于 2024-5-27 11:00
SHEET1中的代码：

SHEET1中的过程或函数添加PUBLIC属性，其他表格或模块就能访问了

感谢，测试了下，还是不行。

hunterbm

逍遥爱迪生 发表于 2024-5-27 11:00
SHEET1中的代码：

SHEET1中的过程或函数添加PUBLIC属性，其他表格或模块就能访问了

再次感谢。是SHEET页内SUB写的有问题。目前已可以正常调用。