Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2544|回复: 5

[已解决]谢谢爱疯老师。根据所选条件运行不同的子程序,如何写?

[复制链接]
发表于 2012-9-28 23:42 | 显示全部楼层 |阅读模式
本帖最后由 lhj323323 于 2012-9-29 00:06 编辑

老师:
请看上传的附件,请问该如何写程序,谢谢了

区别执行.rar (10.79 KB, 下载次数: 5)
发表于 2012-9-28 23:57 | 显示全部楼层    本楼为最佳答案   
区别执行2.rar (12.49 KB, 下载次数: 36)
回复

使用道具 举报

发表于 2012-9-29 00:16 来自手机 | 显示全部楼层
本帖最后由 爱疯 于 2012-9-29 00:18 编辑

我想多了,只修改一点就可以了。
在1楼附件里,在if语句里,then后面这句。不求istr,改为:
aplication.run .selects(i)
不记得了,手机回的不好测。明天再说了。
回复

使用道具 举报

 楼主| 发表于 2012-9-29 00:25 | 显示全部楼层
本帖最后由 lhj323323 于 2012-9-29 00:28 编辑
爱疯 发表于 2012-9-29 00:16
我想多了,只修改一点就可以了。
在1楼附件里,在if语句里,then后面这句。不求istr,改为:
aplication.ru ...


是不是这样改?
Private Sub CommandButton1_Click()
    Dim arr
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then ISTR = ISTR & "," & .List(i)
        Next
    End With
    arr = Split(ISTR, ",")
    If UBound(arr) Then
        aplication.Run .selects(i)
    End If
    Unload Me
End Sub
-----------------------------------------------------------
Private Sub CommandButton1_Click()
    Dim arr
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then aplication.Run .selects(i)
        Next
    End With
    Unload Me
End Sub
------------------------------------------------------------
这两种修改方法都得出“方法和成员未找到”,运行失败。
回复

使用道具 举报

发表于 2012-9-29 08:16 | 显示全部楼层
区别执行3.rar (13.9 KB, 下载次数: 13)
回复

使用道具 举报

 楼主| 发表于 2012-9-29 12:39 | 显示全部楼层
爱疯 发表于 2012-9-29 08:16

谢谢爱疯老师                           
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:56 , Processed in 1.225983 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表