中国会计视野论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

微信登录

微信扫一扫,快速登录

楼主: 徒然客

超级加载宏(荟萃了30多个实用函数和40-50项excel辅助功能)

  [复制链接]
发表于 2008-3-20 15:51:34 | 显示全部楼层
  美国注册管理会计师认证(CMA®)
现报名CMA享受7折优惠。
CMA获得政府及各大企业集团一致推荐
CMA是您挖掘职业潜能的通关秘钥
 

视野思享会年费会员
一年内免费直播参与
历届活动视频回放
与爱学习群体共同成长

 

欢迎订阅会计视野微信公众号
第一时间了解最新财会知识
碎片化学习新方法
200万读者追随的真爱选择。

我在用比较机器人的时候遇到一些问题,我修改了一下代码,希望能够探讨一下!

先对您的开源共享精神表示衷心的感谢,并表示由衷的佩服。比较这个功能我一般是用vlookup的,但是很多人都不太掌握,您的比较机器人能够方便实现这个功能,不过我在用的时候发现有个别问题需要完善修正的,希望能够探讨一下。

修改如下:

1、在Private Sub BeginIt_Click()的子程序里面我在开头加了一句On Error Resume Next。原因是我发现如果目标文件里面的条目没有出现在比较文件的时候,子程序就会出错,不能继续下去;

2、我删除了Private Sub BeginIt_Click()里面的对参数列与抄写列、写入列的比较。

3、在下面这段语句里面:
                If WriteNote.Value Then
                    With BeGiven
                        If Not (.Comment <> "" And IgnoreNoBlank.Value) Then
                            .AddComment
                            .Text = NoteContentPrefix.Text & VBA.IIf(IncludeCopyContent.Value, Gave, "") & NoteContentSuffix.Text
                            .Visible = ShowNotes.Value
                        End If

您的源程序原来是以End With结尾的,我在用的时候老是报错,后来检查以后发现应该把End With改成End if。你检查一下是不是????


修改后的程序在附件里面。

4117001.RAR

26.43 KB, 下载次数: 17

比较机器人ver2

发表于 2008-3-20 15:57:13 | 显示全部楼层

另外,如果方便,我建议是不是考虑在代码中加入一些简要的注释???

当然,我也知道加入注释比较麻烦,大多数开发者都懒得开发(包括我自己o(∩_∩)o),不过我这次修改你的程序的时候就深深感觉到没有注释会给看的人一种晕头转向的感觉o(∩_∩)o...哈哈
发表于 2008-3-20 20:13:49 | 显示全部楼层

对,第一个end with应该是END IF;中间那个text估计也是原作者的笔误;你加的On Error Resume Next非常好

对原作者、对你均表示赞赏与感谢
发表于 2008-3-21 15:46:06 | 显示全部楼层

谢谢。另外还想讨论一下,能不能再复制时把单元格的格式也粘贴过去?我不太熟VBA暂时还想不出用什么属性。

 楼主| 发表于 2008-3-21 16:58:05 | 显示全部楼层

超级机器人并不是我开发的,我不过是把这个功能整合到我的工具包里面。

所以对于注释没写清楚,我也实在没有办法……
复制单元格格式是可以的,只要用copy不是选择性粘贴就行了。
发表于 2008-3-22 03:57:42 | 显示全部楼层

我知道用copy可以,不过我想做到的是能够在比较机器人里面用VBA来实现

发表于 2008-4-2 17:51:33 | 显示全部楼层

高人

高人啊,先下载来看看
发表于 2008-5-8 07:38:10 | 显示全部楼层

好啊

好啊
发表于 2008-5-23 18:59:40 | 显示全部楼层

好东西啊!

发表于 2008-6-13 22:33:47 | 显示全部楼层

好东西啊,收下了谢谢!

发表于 2008-6-29 06:28:11 | 显示全部楼层

不错,先下了,谢谢

发表于 2008-7-16 22:37:23 | 显示全部楼层

好,精品

精品,先看看
发表于 2008-7-17 00:40:41 | 显示全部楼层

thank you

先看看
发表于 2008-7-25 00:14:45 | 显示全部楼层

好东东,怎么下载啊

怎么下载啊
发表于 2008-7-27 01:06:39 | 显示全部楼层

请给我信箱发一份学习,谢了.

老师啊,给我信箱cnymee@tom.com发一份学习,能给原宏编写程序吗?
发表于 2008-7-29 01:02:00 | 显示全部楼层

麻烦发给我一份

我的邮件地址是:zhenglw@neusoft.com
发表于 2008-8-5 01:23:43 | 显示全部楼层

在哪里下\载
发表于 2008-8-7 04:46:12 | 显示全部楼层

怎么下不了啊

怎么下载
发表于 2008-8-7 04:48:37 | 显示全部楼层

哎呀我下不了请给我发一份

我的邮箱maomao747752@qq.com
发表于 2008-8-8 01:28:03 | 显示全部楼层

不错

真是不错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|中国会计视野论坛 ( 沪ICP备05013522号-2 )

GMT+8, 2020-7-5 06:01

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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