Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
123
返回列表 发新帖
楼主: lkk0063

[已解决]请求 grf1973 协助帮忙修改程式

[复制链接]
 楼主| 发表于 2017-3-1 16:44 | 显示全部楼层
grf1973 发表于 2017-3-1 16:34
窗体的“确定”代码这样改下。
道理跟18楼一样的。
要学会举一反三。

Dear grf1973 ,
已经可以使用, 谢谢帮忙, 原来这么简单
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

 楼主| 发表于 2017-3-2 13:33 | 显示全部楼层
grf1973 发表于 2017-3-1 16:34
窗体的“确定”代码这样改下。
道理跟18楼一样的。
要学会举一反三。

Dear grf1973,
我有再用附件修改程式, 当勾选批号为"16072826", 带出"AA" 内的资料后,按下"Add data" 按钮后, 只有"16072826" 批号无法卡重复判断, 可否帮我确认一下程式码, 谢谢

VBA-test.zip

38.71 KB, 下载次数: 1

回复

使用道具 举报

发表于 2017-3-2 13:44 | 显示全部楼层
。。。。。。。。。。

VBA-test.rar

30.84 KB, 下载次数: 4

回复

使用道具 举报

 楼主| 发表于 2017-3-2 15:54 | 显示全部楼层
grf1973 发表于 2017-3-2 13:44
。。。。。。。。。。

Dear grf1973,
原来都是数据类型的问题,只是不知道位置如何新增,经测试后已经可以使用

回复

使用道具 举报

 楼主| 发表于 2017-3-7 14:26 | 显示全部楼层
本帖最后由 lkk0063 于 2017-3-7 14:27 编辑
grf1973 发表于 2017-3-2 13:44
。。。。。。。。。。

Dear grf1973,当无资料直接按下"Add data",会出现错误讯息"阵列索引超出范围", 可否协助确认, 谢谢
未命名.jpg



未命名.jpg

VBA-test.zip

53.32 KB, 下载次数: 1

回复

使用道具 举报

发表于 2017-3-7 15:38 | 显示全部楼层
function里面加一句  
if [g2]="" then exit function
回复

使用道具 举报

 楼主| 发表于 2017-3-7 15:59 | 显示全部楼层
grf1973 发表于 2017-3-7 15:38
function里面加一句  
if [g2]="" then exit function


Dear grf1973,
谢谢你,已经可以正常使用
另外我发现开头用以下好像也可以达成, 只是怕会有问题

On Error Resume Next
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-6 07:08 , Processed in 0.342574 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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