求跳转执行代码修改（昨日附件已经更新）

fanatone

如何跳转其它表执行控件按钮？

求各位大侠，修改一下代码，先谢谢了。

sheets("di1")表的button1简单内容：

Sub CommandButton1_Click()     

Dim i, ik

Range("a1:a200") = ""


For i = 2 To 10
Cells(i, 1) = i
Next


Sheets("di2").Select                        ' 跳转到表 sheets（“di2”）
Call CommandButton1_Click           ' 表sheets("di2")里按钮

End Sub


注：附件重新更换。


求助123.zip (23.13 KB, 下载次数: 5)

2023-7-21 07:42 上传

点击文件名下载附件

mtvcs

看看是附件找中这种效果吗？

fanatone

mtvcs 发表于 2023-7-21 08:40
看看是附件找中这种效果吗？

感谢关注，但是执行后，表di2是的按钮并没有执行，也没有输出结果。烦您再查看一下。

jy03342543

换一种方法试试用表单控件替换Activex控件.看下是不是这个效果.

fanatone

jy03342543 发表于 2023-7-21 14:21
换一种方法试试用表单控件替换Activex控件.看下是不是这个效果.

感谢关注，执行非常。  再次谢谢。

jy03342543

fanatone 发表于 2023-7-21 14:29
感谢关注，执行非常。  再次谢谢。

哈哈不客气好用的话帮忙给朵鲜花哈

爱笑1558

mtvcs 发表于 2023-7-21 08:40
看看是附件找中这种效果吗？

大神，能帮我个忙吗。我现在发不了帖子，只能借楼求助。
求助问题：在同一工作簿中如何提取所有工作表中从A10-A17和B10-B17表格中的数据。