ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 由于原数据扩展变更导致原程序出错

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-8-17 15:39 | 显示全部楼层 |阅读模式
本帖最后由 boy23 于 2024-8-17 23:01 编辑

一、分析数据在工作表:“异常材料代号”AA9:AWJ179 ,合计:1258列、171行;(原数据为:AA9:AO179,合计:15列、171行,由于数据扩展及格式变化导致程序异常,只作参考)
二、按钮:“AA:AWJ指定排序”

1、以AA列为固定列进行15选9 排序组合,输出第13264组往后的100000组“排序组合结果;(除固定“AA列”外,往后8列会随着排序组合变动而变动)
2、在“分析”工作表,A1单元格和M2单元格内显示:“排序组合初始编号(13264)”,N列输出相对应“排序组合编号,O列输出相对应“排序组合”输出各自100000组数据。
三、按钮:“单一分析”
1、读取A1单元格内“排序组合编号”,然后在N列中查找相对应“排序组合编号”以及相对应在O列中的“排序组合”,在O列中查找相对应的“排序组合” ,从而在工作表:“异常材料代号”AA9:AWJ179 中提取相对应列数据到(A2:I172)单元格区域内。(A1单元格输入”排序组合编号“从N列选取,然后读取在O列中的“排序组合”
四、按钮:“下一组分析”
1、读取A1单元格内“排序组合编号”,然后跳转至下一组“排序组合编号” ,同时从工作表:“异常材料代号”AA9:AWJ179 中提取相对应列数据到(A2:I172)单元格区域内覆盖上一组数据。(A1单元格输入”排序组合编号“从N列选取,然后读取在O列中的“排序组合”
五、按钮:“连续分析”
1、读取A1单元格内“排序组合编号”,然后在O列中查找相对应的“排序组合”,从而在工作表:“异常材料代号”AA9:AWJ179 中提取相对应列数据到(A2:I172)单元格区域内覆盖上一组数据,然后进入下一组“排序组合编号” 和更新(A2:I172)单元格区域内数据 (一组组完成,直到最后一组“排序组合编号”和“排序组合”。 (A1单元格输入”排序组合编号“从N列选取,然后读取在O列中的“排序组合”
六、附件以上传。

异常材料分析-.zip

890.77 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2024-8-18 14:14 | 显示全部楼层
Sub test() Dim d As New Dictionary用户定义类型未定义 ”,怎么解决。以下是我要...
https://club.excelhome.net/thread-1455863-1-1.html
(出处: ExcelHome技术论坛)

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-18 15:00 来自手机 | 显示全部楼层
yjh_27 发表于 2024-8-18 14:14
Sub test() Dim d As New Dictionary用户定义类型未定义 ”,怎么解决。以下是我要...
https://club.excel ...

好的,谢谢!每天进步一点点,以后才有能力帮助别人~

TA的精华主题

TA的得分主题

发表于 2024-8-19 19:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
“单一分析”

异常材料分析-.zip

916.75 KB, 下载次数: 4

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-19 21:08 | 显示全部楼层

你好,yjh_27   ,不好意思!
一、不是数字(自然数)“1”组合、排序开始输出不是从第1组开始输出结果。([程序不对)
二、是英文字母AA~AWJ 合计:1258个英文字母,是以固定英文字母“AA”开头,进行1258选9 输出排序组合,输出第13264组往后的100000组“ 。

TA的精华主题

TA的得分主题

发表于 2024-8-19 23:34 | 显示全部楼层
boy23 发表于 2024-8-19 21:08
你好,yjh_27   ,不好意思!
一、不是数字(自然数)“1”组合、排序开始输出不是从第1组开始输出结果 ...

一  你要的是:,输出第13264组往后的100000组?还是:排序开始输出不是从第1组开始输出结果
二  1对应AA,2对应AB,这个转换简单,用数字是方便后续代码

三、按钮:“单一分析”   你按了吗? 数据已到(A2:I172)单元格区域内。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-21 13:28 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 boy23 于 2024-8-21 13:42 编辑
yjh_27 发表于 2024-8-19 23:34
一  你要的是:,输出第13264组往后的100000组?还是:排序开始输出不是从第1组开始输出结果
二  1对应AA ...

一、排序开始输出不是从第1组开始输出结果,而是从第13264组开始轮出往后的100000组。
二、用英文字母排序是为了方便后期从工作表“异常材料代号”AA~AWJ列中提取相对应的列数据。
三、程序多多次运行后出现运行失败。


四、请问能否以新上传附件要求,编定排序组合程序?

异常材料分析-11.zip

903.86 KB, 下载次数: 3

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-21 13:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
yjh_27 发表于 2024-8-19 23:34
一  你要的是:,输出第13264组往后的100000组?还是:排序开始输出不是从第1组开始输出结果
二  1对应AA ...


一 、排序开始输出不是从第1组开始输出,而是从第13264组往后的100000组。
二、使用英文字母是为了方便后期从工作表“异常材料代号”  AA~AWJ列中提取相对应列数据到工作表“分析”(A2:A171)中。
三、按钮:“单一分析”   程序多多次运行会出现失误。

四、上以三问题不用再理会和解决,
五、请问能否以新上传附件要求编写程序;

异常材料分析-11.zip

903.86 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2024-8-21 15:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 yjh_27 于 2024-8-21 16:02 编辑
boy23 发表于 2024-8-21 13:55
一 、排序开始输出不是从第1组开始输出,而是从第13264组往后的100000组。
二、使用英文字母是为了方 ...

你认为


13264        AA,AB,AC,AD,AE,AF,AG,AH,AI

那么
1              ?????????????

要字母组合,运行aaa过程。要与你模拟一致:  arr = ArrCP0k(n, m, 11, n0, 1, 1, 100000)

异常材料分析-.zip

916.73 KB, 下载次数: 5

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-23 23:08 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-18 16:52 , Processed in 0.053571 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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