ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 253|回复: 19

[求助] 简单的自动填充,写了段代码没反应,请大佬给看看

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-8-20 17:18 | 显示全部楼层 |阅读模式
本帖最后由 月关 于 2019-8-20 18:45 编辑

各位老师好!
下午练手,尝试写一个自动填充事件:
在A列输入数据,如果前面已经输入过,则B列、C列自动补全,——A列的数据有可能会有重复,即同一个代码,可能会手动修改后面B/C列的数据,所以B列和C列填充的是最后一次输入的数据。
写了段代码,感觉逻辑上没啥错误,但就是没反应,还请老师们出手点拨一下,谢谢!
微信截图_20190820170706.png

代码如下,比较简单,老师们应该不下载附件也能看出来。
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column > 1 Then Exit Sub  '不在A列输入退出程序
  3. If Target.Count > 1 Then Exit Sub    'A列单元格多选退出程序
  4. If Target.Value = "" Then Exit Sub    'A列单元格输入为空退出程序

  5. Set d = CreateObject("scripting.dictionary")
  6. arr = Sheet1.UsedRange    '将表中数据装入数组,便于后续取值
  7. If d.exists(Target.Value) Then    '如果Key存在,在数组中查找最后一次Key所在的行数进行数据填充
  8.     For i = 1 To UBound(arr)
  9.     Target(1, 2).Value = arr(d(Target.Value), 2)   'B列填充
  10.     Target(1, 3).Value = arr(d(Target.Value), 3)   'C列填充
  11.     Next
  12. End If
  13. d(Target.Value) = Target.Row   '写入Key,或修改Item最后一次输入Key的行数
  14. End Sub
复制代码


自动填充.rar (13.66 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

发表于 2019-8-20 19:10 | 显示全部楼层
第一,空字典要解决。。。。第二,偏移量要解决。。。。第三,事件要适时禁用防循环,这三条解决完了后再说别的问题

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-20 19:18 | 显示全部楼层
killq 发表于 2019-8-20 19:10
第一,空字典要解决。。。。第二,偏移量要解决。。。。第三,事件要适时禁用防循环,这三条解决完了后再说 ...

会有空字典?如果 targe.value 为空我写了退出sub呀。而且为空也没问题,后面“填充”也是空罢了。
偏移量。。。 这个看不出有什么问题呀。。。。
第3个问题我再考虑一下

TA的精华主题

TA的得分主题

发表于 2019-8-20 19:31 来自手机 | 显示全部楼层
如果是我,就先写主要逻辑辑:一,先初始字典,把数据加进去,然后查看是否存在,二,找到了就输出值
调试好了再放工作表事件里,其他细节上的事情一运行就会发现

TA的精华主题

TA的得分主题

发表于 2019-8-20 19:31 | 显示全部楼层
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Column <> 1 Then Exit Sub
  3.     If Target.Count > 1 Then Exit Sub
  4.     If Target.Value = "" Then Exit Sub
  5.    
  6.     For j = Target.Row - 1 To 1 Step -1
  7.         If Target.Value = Cells(j, 1) Then
  8.             Application.EnableEvents = False
  9.             Cells(j, 1).Resize(1, 3).Copy Target
  10.             Application.EnableEvents = True
  11.         End If
  12.     Next j
  13. End Sub
复制代码

评分

参与人数 1鲜花 +2 收起 理由
月关 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-20 19:38 | 显示全部楼层

感谢!
我是希望有一个容错,即不一定是从上往下顺着依次输入,有可能是跳过一部分,比如这次输入第10行,下一次可能就是20行,再可能就跳到第2行。。。
这就是我用字典的原因,把target.row当作item值,把usedrange装入数组,设想以此来解决上面的问题。

TA的精华主题

TA的得分主题

发表于 2019-8-20 19:41 | 显示全部楼层
月关 发表于 2019-8-20 19:38
感谢!
我是希望有一个容错,即不一定是从上往下顺着依次输入,有可能是跳过一部分,比如这次输入第10行 ...

楼主还是根据自己的想法逐步调试吧,看看参数值情况

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-20 19:48 | 显示全部楼层
killq 发表于 2019-8-20 19:31
如果是我,就先写主要逻辑辑:一,先初始字典,把数据加进去,然后查看是否存在,二,找到了就输出值
调试 ...

如果Key不存在,for循环不会执行,最后一步就是写入key,否则就是更新刚刚的key所在的行数,这个逻辑我感觉没啥问题。。。

TA的精华主题

TA的得分主题

发表于 2019-8-20 19:51 | 显示全部楼层
月关 发表于 2019-8-20 19:48
如果Key不存在,for循环不会执行,最后一步就是写入key,否则就是更新刚刚的key所在的行数,这个逻辑我感 ...

写入了又如何?程序已经结束了
你幻想下次运行?可惜,它不是全局变量,程序一启动还初始化了。。。。所以,永远是空的

TA的精华主题

TA的得分主题

发表于 2019-8-20 20:00 | 显示全部楼层
月关 发表于 2019-8-20 19:38
感谢!
我是希望有一个容错,即不一定是从上往下顺着依次输入,有可能是跳过一部分,比如这次输入第10行 ...

版主的方案也不是从上往下查看的,建议你认真读代码

无论你从哪儿开始输入,都可以通过调代码来找到你想找的数据。查找数据的起点和方向你都可以手动控制,还可以跳行,不是吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-11-18 04:09 , Processed in 0.075687 second(s), 20 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

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