Excel精英培训网

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

[已解决]多个代码合并求助

[复制链接]
发表于 2016-3-27 09:43 | 显示全部楼层 |阅读模式
本帖最后由 安全网 于 2016-3-29 11:40 编辑

求助多个代码合并运行出错的求助,具体见附件
最佳答案
2016-3-28 15:48
试试看。
QQ图片20160327144654.png

多个代码合并.zip

10.29 KB, 下载次数: 13

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2016-3-27 12:07 | 显示全部楼层
回复

使用道具 举报

发表于 2016-3-28 13:13 | 显示全部楼层
Call 序号  那个“序号”在哪里?
回复

使用道具 举报

 楼主| 发表于 2016-3-28 13:18 | 显示全部楼层
grf1973 发表于 2016-3-28 13:13
Call 序号  那个“序号”在哪里?

我知道了。还有MsgBox Target.Value & "存在!"这里能否显示C列对应的值


回复

使用道具 举报

发表于 2016-3-28 13:54 | 显示全部楼层
用cells(target.row,3)不就是C列对应的值吗
回复

使用道具 举报

 楼主| 发表于 2016-3-28 14:01 | 显示全部楼层
grf1973 发表于 2016-3-28 13:54
用cells(target.row,3)不就是C列对应的值吗

是工作表2的的3列,不是工作表1


回复

使用道具 举报

发表于 2016-3-28 14:06 | 显示全部楼层
If Target.Column = 5 And Target.Row > 2 Then
    arr = Sheet2.Range("b3:b" & Sheet2.Range("b9999").End(xlUp).Row)
        For r = 1 To UBound(arr)
            If Target.Value = arr(r, 1) Then
             MsgBox arr(r, 1) & "存在!(数量为" & arr(r, 3) & ")"
            End If
        Next
    End If
回复

使用道具 举报

 楼主| 发表于 2016-3-28 14:15 | 显示全部楼层
grf1973 发表于 2016-3-28 14:06
If Target.Column = 5 And Target.Row > 2 Then
    arr = Sheet2.Range("b3:b" & Sheet2.Range("b9999"). ...

显示下标越界,还有重复删掉如果是空的也会提示


回复

使用道具 举报

发表于 2016-3-28 14:21 | 显示全部楼层
If Target.Column = 5 And Target.Row > 2 Then
    arr = Sheet2.Range("b3:c" & Sheet2.Range("b9999").End(xlUp).Row)
        For r = 1 To UBound(arr)
            If Target.Value = arr(r, 1) Then
             MsgBox arr(r, 1) & "存在!(数量为" & arr(r, 2) & ")"
            End If
        Next
    End If
回复

使用道具 举报

 楼主| 发表于 2016-3-28 15:10 | 显示全部楼层
grf1973 发表于 2016-3-28 14:21
If Target.Column = 5 And Target.Row > 2 Then
    arr = Sheet2.Range("b3:c" & Sheet2.Range("b9999"). ...

奇怪,还是下标越界


回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 01:04 , Processed in 0.309534 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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