ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 太阳之子

[Excel 函数与公式] [第125期]火车票余票查询[开贴待总结]

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2019-1-9 13:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 xiaoh99 于 2019-1-10 22:13 编辑

我也凑个热闹。
我已想好了算法:
1.将每个运行区间分为2个站点
2.计算每个站点的空座数
3.考察每个区间的经过站点
4.找出区间中最小的站点空位数
具体的公式等我验证通过后再传上。抱歉先占个位!
算法虽然有,但要实现也不容易。再让我考虑考虑。


补充内容 (2019-1-13 22:21):
要做这么多的事,只用一个公式来完成,真不容易

补充内容 (2019-2-3 22:32):
算出来了,但组合在一起有错,长度也超了,不好意思呀。时间可能不够了

补充内容 (2019-2-3 23:37):
看来我对内存数组还是不够了解,前面过于自信了

评分

4

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-9 14:34 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 265094 于 2019-1-12 12:12 编辑

=MIN(IF(MMULT({-1,1},-(COLUMN(B:Z)<LARGE(ISNUMBER(FIND(F$1:F$7,A2))*ROW($1:$7),{2;1}))),1028-MMULT(COLUMN(A:Y)^0,(SUMIF(A:A,F$2:F$26&"*",B:B)-SUMIF(A:A,"*"&F$2:F$26,B:B))*(ROW($1:$25)<COLUMN(B:Z)))))
=MIN(IF(MMULT({-1,1},N(COLUMN(A:H)<MATCH({1;9},FIND(F$2:F$7,A2)))),1028-MMULT(S1:Z1+1,MMULT(SUMIF(A:A,"*"&F$2:F$9&{"-*",""},B:B),{1;-1})*(ROW($1:$8)<COLUMN(B:I)))))

补充内容 (2019-1-13 13:26):
=1028-MAX(MMULT((ROW($1:$8)<MATCH({1,9},FIND(F$2:F$7,A2)))*MMULT(-(ROW($2:$9)>COLUMN(A:H)),MMULT(SUMIF(A:A,"*"&F$2:F$9&{"-*",""},B:B),{1;-1})),{1;-1}))

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-9 18:39 | 显示全部楼层
本帖最后由 安然祥和 于 2019-1-9 19:40 编辑

=MIN(IF(MMULT((ROW($1:$6)>=MATCH(TRIM(MID(SUBSTITUTE(A2,"-",REPT(" ",9)),{1,9},9)),F$2:F$7,))*1,{1;1})=1,1028-MMULT(n(ROW($1:$6)>=COLUMN(A:F)),SUMIF(A$2:A$16,F$2:F$7&"*",B$2:B$16)-SUMIF(A$2:A$16,"*"&F$2:F$7,B$2:B$16))))

评分

7

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-10 11:17 | 显示全部楼层
本帖最后由 PQ小学生 于 2019-1-10 11:19 编辑

没有搞清 到广州的余票与武汉的空座有何关系

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-12 20:39 | 显示全部楼层
本帖最后由 hno3861 于 2019-1-15 10:16 编辑

烧脑,超过七层括号可以吗?174,希望没啥别的错误。
=1028-MOD(MAX(MMULT(2001^(COLUMN(B:P)=ROW()),(RIGHT(INT(MMULT(MATCH(MID(SUBSTITUTE(A$2:A$16,"-","*"),{4,1},3),F$2:F$7,),{100;1})-COLUMN(A:F)*101.01),2)-80>0)*B$2:B$16)),2000)
=1028-RIGHT(MAX(MMULT(10001^(COLUMN(B:P)=ROW()),(RIGHT(INT(MMULT(MATCH(MID(SUBSTITUTE(A$2:A$16,"-","*"),{4,1},3),F$2:F$7,),{100;1})-COLUMN(A:F)*101.01),2)-80>0)*B$2:B$16)),4)

1月15号10:16,思路稍微变了下,好像更合理了。160字符。
  1. =1028-RIGHT(MAX(MMULT(10001^(COLUMN(B:P)=ROW()),(MID(MMULT(1-ISERR(FIND(TRANSPOSE(F$2:F$7),A$2:A$16)),REPT(1,ROW($1:$6))%%%),COLUMN(C:H),1)="1")*B$2:B$16)),4)
复制代码




补充内容 (2019-2-20 14:00):
看了下,和10楼的公式思路一样,矩阵用法差距好大,厉害。把尛ぃ謉公式抄一遍:
=3028-MAX(MMULT(N(MMULT(N(ROW($2:$7)>COLUMN(A:F)),1-ISERR(FIND(F$2:F$7,TRANSPOSE(A$2:A$16))))=1),B$2:B$16+(A$2:A$16=A2)/5%%))

评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-15 10:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 梦幻小丑 于 2019-1-15 12:53 编辑
  1. =MIN(1028-(MMULT(N(LARGE(ISNUMBER(FIND(F$2:F$7,A2))*ROW($2:$7),{2,1})>ROW($1:$6)),{1;1})=1)*MMULT(N(ROW($2:$7)>COLUMN(A:F)),MMULT(SUMIF(A:A,"*"&F$1:F$6&{"-*",""},B:B),{1;-1})))
复制代码

评分

7

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-15 17:15 | 显示全部楼层
本帖最后由 jinlong506 于 2019-1-16 14:32 编辑
  1. =MIN(1028-MMULT((TRANSPOSE(MATCH(LEFT(A$2:A$16,FIND("-",A$2:A$16)-1),F$2:F$7,))<=ROW(INDIRECT(MATCH(1,FIND(F$2:F$6,A2))&":"&MATCH(0,-FIND(F$3:F$7,A2)))))-(TRANSPOSE(MATCH(MID(A$2:A$16,FIND("-",A$2:A$16)+1,9),F$2:F$7,))<=ROW(INDIRECT(MATCH(1,FIND(F$2:F$7,A2))&":"&MATCH(0,-FIND(F$3:F$7,A2))))),B$2:B$16))
复制代码
头疼  303个 超太多了

评分

5

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-17 18:44 | 显示全部楼层
本帖最后由 41126238 于 2019-1-18 16:10 编辑

有点长,再想想。
  1. =MIN(1028-MMULT(U1:Z1+1,(ROW($1:$6)<=TRANSPOSE(ROW(INDIRECT(MATCH(LEFT(A2,FIND("-",A2)-1),F:F,)-1&":"&MATCH(MID(A2,FIND("-",A2)+1,9),F:F,)-2))))*(SUMIF(A:A,$F$2:$F$7&"-*",B:B)-SUMIF(A:A,"*-"&$F$2:$F$7,B:B))))
复制代码

评分

5

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-18 21:31 | 显示全部楼层
本帖最后由 micch 于 2019-2-4 11:31 编辑
  1. =MIN(IF(MMULT(N(ROW($1:$6)<COLUMN(B:G)),1-ISERR(FIND(F$2:F$7,A2)))=1,1028+MMULT(N(ROW($1:$6)<COLUMN(B:G)),MMULT(SUMIF(A:A,{"","*"}&F$2:F$7&{"*",""},B:B),{1;-1}))))
复制代码

C2
不会验证,不知道对错,先写一个,自己再琢磨琢磨吧

想不出别的办法,只能原公式简化
  1. =MIN(ABS(MMULT(N(ROW($1:$6)<COLUMN(B:G)),ISNUMBER(FIND(F$2:F$7,A2))*9^9+MMULT(SUMIF(A:A,{"","*-"}&F$2:F$7&"*",B:B),{1;-1}))-9^9+1028))
复制代码
再减就不知道对错了,好像得以车上人比空座多前提
  1. =MIN(ABS(MMULT(N(ROW($1:$6)<COLUMN(B:G)),ISNUMBER(FIND(F$2:F$7,A2))*1028+MMULT(SUMIF(A:A,{"","*-"}&F$2:F$7&"*",B:B),{1;-1}))))
复制代码

评分

7

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-1-26 11:17 | 显示全部楼层
公式1:长度300字符。
=MIN(INDEX(1028-MMULT(1*(ROW($1:$5)>=COLUMN(A:E)),SUMIF(A$2:A$16,G$2:G$6&"-*",B$2:B$16))+MMULT(1*(ROW($1:$5)>=COLUMN(A:E)),SUMIF(A$2:A$16,"*-"&G$2:G$6,B$2:B$16)),N(IF(1,(ROW($1:$5)>=MATCH(LEFT(A2,FIND("-",A2)-1),$G$2:$G$7,))*(ROW($1:$5)<=MATCH(MID(A2,FIND("-",A2)+1,9),$G$2:$G$7,)-1)*ROW($1:$5)))))

公式2:长度220字符。
=MIN(1028-MMULT((ROW($1:$5)>=COLUMN(A:E))*(ROW($2:$6)>MATCH(LEFT(A2,FIND("-",A2)-1),G$2:G7,))*(ROW($1:$5)<MATCH(MID(A2,FIND("-",A2)+1,9),G$2:G7,)),SUMIF(A$2:A16,G$2:G$6&"-*",B$2:B16)-SUMIF(A$2:A16,"*-"&G$2:G$6,B$2:B16)))



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

5

查看全部评分

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

本版积分规则

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

GMT+8, 2024-3-28 20:57 , Processed in 0.061127 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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