SoSo工具集升级到第三代了，功能实用，使用方便。

shenzhi3 · 发表于 2011-10-17 23:40

感谢楼主分享，好用！！！！！

huanglicheng · 发表于 2011-10-18 07:44

呵呵，谢谢大家的关注，我会做得更好

maillgh · 发表于 2011-10-19 17:10

请看附件！

huanglicheng · 发表于 2011-10-19 17:53

maillgh 发表于 2011-10-19 17:10
请看附件！

您的07版加载项是否没有东西，您在出错的代码前加一个判断试试
如下面
   If Application.AddIns.Count > 0 Then
         For Each myaddin In Application.AddIns
            If myaddin.name = "07soso.xlam" Then m = 1: Exit For
         Next
      End If

maillgh · 发表于 2011-10-20 13:41

楼主，你好！按您说的改了之后又报附件中的错，请帮助再看一下，多谢！

huanglicheng · 发表于 2011-10-20 14:09

本帖最后由 huanglicheng 于 2011-10-20 14:11 编辑

maillgh 发表于 2011-10-20 13:41
楼主，你好！按您说的改了之后又报附件中的错，请帮助再看一下，多谢！

在else 下面中只要有一个for each 循环哦，你那里多了，
如下面代码
Else
      If Application.AddIns.Count > 0 Then
         For Each myaddin In Application.AddIns
            If myaddin.name = "07soso.xlam" Then m = 1: Exit For
         Next
如果还没有好，请把下面附件解压替换原始的soso.xla吧

SoSo.zip (368.18 KB, 下载次数: 14)

maillgh · 发表于 2011-10-20 17:18

多谢楼主！我取消了下面一名就可以了。

‘ If myaddin.name = "07soso.xlam" Then m = 1: Exit For

cbtaja · 发表于 2011-11-7 20:21

谢谢分享。

prine028 · 发表于 2011-11-7 20:49

牛逼，2010可用否

huanglicheng · 发表于 2011-11-7 20:50

prine028 发表于 2011-11-7 20:49
牛逼，2010可用否

不好意思，没有试过哦，我没有装2010

		自动登录	找回密码
密码			免费注册

[VBA程序开发] SoSo工具集升级到第三代了，功能实用，使用方便。