菜鸟谈VBA最最基础入门《原创》

xiaoxiang1983 · 发表于 2009-10-13 13:56

如果世界上有神，你就是神。太通俗易懂了。

草根糖 · 发表于 2009-10-13 16:10

各位老师，同学，请帮帮忙。
我用worksheet的chang事件做了个东西。
基本能满足要求，但是还有一点点问题，解决不了，请求帮忙。
详细见附件。

edie14 · 发表于 2009-10-13 16:16

终于从第1页看到第72页了，看到了门，

打算再回头，磨把属于自己的钥匙，

谢谢楼主，及各位热心发言的朋友。。。。

pingfanexcel · 发表于 2009-10-13 16:39

请VBA高手帮忙做一下，谢谢
情况是：第一张表“交易明细-RMB”是每个科目的当月发生明细账，金额是人民币，第二张表“报表汇总”是一张美金的各个科目的汇总金额（和第一张没有关系），第一张表的美金折算金额汇总后和第二张表的相应科目会有个差异。
要求是：一，将第一张表的RMB金额按汇率折算到第三张表中，部门不变
二，将第一张表折算后的USD汇总金额和第二张表的差异也体现在第三张表中，使用相同的科目

谢谢高手

ggsmart · 发表于 2009-10-13 17:26

没完全明白你的意思，是这样吗？

Private Sub Worksheet_Change(ByVal Target As Range)
Target.ClearFormats
If WorksheetFunction.CountIf(Range("a:a"), Target.Value) > 1 Then
Target.Font.ColorIndex = 3
End If
End Sub

复制代码

先下班了，明天再看！

zznjcs · 发表于 2009-10-13 19:24

是否可以用target.offset(0,-1)来指定目标左侧的单元格,如果不能怎么办?

草根糖 · 发表于 2009-10-13 20:49

原帖由 ggsmart 于 2009-10-13 17:26 发表
没完全明白你的意思，是这样吗？
Private Sub Worksheet_Change(ByVal Target As Range)
Target.ClearFormats
If WorksheetFunction.CountIf(Range("a:a"), Target.Value) > 1 Then
Target.Font.ColorIndex ...

谢谢老师的解答，不过还是未能满足全部需求。
我的意思是，在A列输入数据，如果新输入的数据有与前面的相同，则字体变红，否则不变；输入的数据可以是单个单元格输入，也可以是从其它工作薄中批量复制过来；只有A列有这要求，其它列则不需要，比如在B列输入与A列相同的数据时不变色。

刚才，我又根据老师的解答，稍微进行了修改，已经满足全部需求了。
还是countif来的好啊～，呵呵，谢谢老师的指导！

[ 本帖最后由草根糖于 2009-10-13 21:18 编辑 ]

zznjcs · 发表于 2009-10-13 20:50

offset(0,-1)我试过了,可以.
但又有了新的问题: 我修改的目标区是B列, 行数X(可变的), 通过修改这一列的一个单元格,然后对所修改行的A至E列进行一些操作, 我如何确定定个区域? 不用RANGE().
我想用一个resize()或offset()不知道能否实现.

trustwxq · 发表于 2009-10-14 08:22

怎么出现了两次啊，见下一楼！

[ 本帖最后由 trustwxq 于 2009-10-14 08:27 编辑 ]

trustwxq · 发表于 2009-10-14 08:26

草根糖好，大作已读，整体感觉良好，程序虽小，层次还是挺清晰的，我有一点建议：
程序中的CountIf(Range("a:a")是否可以改成CountIf(Range("a1:a" & rng.Row)，这样如果新复制进来的机型在前面没出现过，但是在复制进来的区域中有重复时，就不会两个都变红，只有从上到下第二次以上出现的才变红。

test3.rar (8.3 KB, 下载次数: 215)
如例子中的A29单元格，如果用CountIf(Range("a:a")，A29中的内容虽然前面没有出现，但在新加进来的区域中出现了两次，A29和A31两个单元格中的内容都会变成红色，而如果用CountIf(Range("a1:a" & rng.Row)后，因为A29中的内容是从上到下第一次出现，所以不会变成红色，A31单元格则不同，他前面出现过一次（A29），所以A31会变红。

[ 本帖最后由 trustwxq 于 2009-10-14 08:28 编辑 ]

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

菜鸟谈VBA最最基础入门《原创》

回复 10楼 ggsmart 的帖子

回复 715楼草根糖的帖子

回复 720楼草根糖的帖子

回复 719楼草根糖的帖子

菜鸟谈VBA最最基础入门《原创》

回复 10楼 ggsmart 的帖子

回复 715楼 草根糖 的帖子

回复 720楼 草根糖 的帖子

回复 719楼 草根糖 的帖子

回复 715楼草根糖的帖子

回复 720楼草根糖的帖子

回复 719楼草根糖的帖子