ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 王同召

[求助] 求助VBA EXCEL

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-23 20:29 | 显示全部楼层
chxw68 发表于 2023-4-23 20:10
跟你要个最原始数据文件太难了,不在这个问题上纠缠了,等别人来帮你吧。

可能是我的理解有偏差,或是能力低下,再发还是先前的文件,无论如何谢谢大师,耽误了你不少宝贵时间.

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-23 20:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
xunanming 发表于 2023-4-23 18:22
完成,能否加个联系方式.

如做好,请发出来,如合适,请把你的联系方式告诉我.我权限低,不能发消息.

TA的精华主题

TA的得分主题

发表于 2023-4-23 21:43 | 显示全部楼层
看看是否合适!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TDCP0423.rar

70.16 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-23 23:17 | 显示全部楼层
xunanming 发表于 2023-4-23 21:43
看看是否合适!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

初看有点问题,时间太完 明天在测试.

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-24 14:44 | 显示全部楼层
王同召 发表于 2023-4-23 23:17
初看有点问题,时间太完 明天在测试.

谢谢老师:经测试发现问题如下:第一个表(111那个表)没看懂,777那一行,如果伙改个数如将777改为235或别的数,执行命令后,自动又将235改回777.不明白为何?我在将777那行删除或在777下面填一个数然后运行程序则返回一个一个对话框:运行时错误"9" 下标越界.(注:我这个表格中不需要三个重叠数如:000 111 222 333 444 555 666 777 888 999也即B列中不会出现这些数)
第二个表(11那个表)执行一次命令运行结果复合要求,但如果执行多次命令则回发现I列中出现的红颜色数字越来越多(也即不包含在B列中的数字也会变成红色)
这两个表格共同之处是:均把原表格中的HH函数(参见模块1)破坏了(或者说是互不兼容).而这个功能是这个表格中重点,它的作用人工代替不了(如人工需4,5个小时).我请老师做的这些人工可以代替(为了每天能节省半个多小时时间)
从测试情况来看,你做的程序好像只能运行到固定的列数(如"11"BV列,以后的列程序就不起作用了,)建议:程序功能能延后到多列,这样我可以把"111""222""333"全整合到一个表中,同样"11""22""33"也整合到一个表中.这样第一个表(111那个)的问题就不用解决了.集中精力解决"11"那个表.

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-24 14:46 | 显示全部楼层
王同召 发表于 2023-4-23 23:17
初看有点问题,时间太完 明天在测试.

消息已发 等待审核

TA的精华主题

TA的得分主题

发表于 2023-4-24 18:11 | 显示全部楼层
王同召 发表于 2023-4-24 14:44
谢谢老师:经测试发现问题如下:第一个表(111那个表)没看懂,777那一行,如果伙改个数如将777改为235或别的数 ...

第一条,你的B列等的数据与000,00表没有关系,对吗??就是不是从000表获取,而是直接手动在111,222,333 等表填入??至于是否3个重数,这个有没有不影响,就是B列等的数据是后期填入,B,K等列数据是一样的,还是不同的??
第二条:那个好处理,我之前没设置清除,字体颜色没复原.
第三条,那函数是直接引用到代码中了,不用再手动写入自定义函数.结果是一样的.

TA的精华主题

TA的得分主题

发表于 2023-4-24 18:20 | 显示全部楼层
本帖最后由 xunanming 于 2023-4-24 18:25 编辑
王同召 发表于 2023-4-24 14:44
谢谢老师:经测试发现问题如下:第一个表(111那个表)没看懂,777那一行,如果伙改个数如将777改为235或别的数 ...

还有,B,K原来是认为与000 表的B列有关,就直接从000表引用写入到111等表,这样就只要在000表输入一次,其他三表就不用再手动输入.毕竟你给你的数据,B列等数据都是相同的.实际上,是相当于不要在表中再写入其他函数,包括自定义函数.
还有,因为按数据生成规则,A列数据要比实际操作区域大一行以上(数组最大行号是按A列确定的),因为最后一行有效数据生成,会生成一行无效的数据,需要在数据中有位置存放,否则就报越界的错误.

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-24 21:30 | 显示全部楼层
xunanming 发表于 2023-4-24 18:11
第一条,你的B列等的数据与000,00表没有关系,对吗??就是不是从000表获取,而是直接手动在111,222,333 等表 ...

B.K等列的数据都是相同的,均来自于000(00)表中B列的同行数字.
第三条,那函数是直接引用到代码中了,不用再手动写入自定义函数.结果是一样的.----我看到了你新加了个模块,只是在原代码基础上最上面加了一行代码.但这个模块在表中功能即I列中的数字排列没体现出来,这个一测试就能看出来.

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-24 21:43 | 显示全部楼层
xunanming 发表于 2023-4-24 18:20
还有,B,K原来是认为与000 表的B列有关,就直接从000表引用写入到111等表,这样就只要在000表输入一次,其他 ...

原表就是那么设计的,只在000表中输入一次.其它表自动生成的.至于自定义函数,越界等专业用语我不懂
另:当删除B列中的某个数再运行程序则当列C到H列中6个数字还保持当前状态,并没有复原到B列没有数字前的状态.感觉不应该是这样.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-9-28 00:18 , Processed in 0.043815 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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