ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[已解决] 请老师用vba或vlookup函数做个表,输入一个数字自动匹配.

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-7-4 17:10 | 显示全部楼层 |阅读模式

高手你好:
       我用VBA用 文心一言ai技术叫它写代码就是写不出来,似乎机器人没有听明白我的意思一样。只有过来求助你们啦!!

a2:第一步手工输入, 我可以输入1位数字,也可以输入2位数字,也可以输入3位数字,


例如::第一步我输入1位数字“0”,  第2步就自动提示出三组带0的数组即012 910 890三组数字, 这三组数字位置是固定的不能变的在数据库里有,第3步就提取首位0 和9 和8,就完工。

假如我输入2个数字:
例如::第一步我输入2位数字“10”,  第2步就自动提示出三组带0的数组即012 910 二组数字, 这二组数字位置是固定的不能变的在数据库里有,第3步就提取首位0 和9 ,就完工。

当然我也可以输入三位数字210, 后面就只能是012,最后提取第一位是0了。

可能你还不是很明白为什么输入0就提取 012 910 890三组数字,因为三组数字里面包含了0,所以就提取他!!

谢谢啦!!!人工智能ai 还是不能完全听懂人类的意思  哈哈!!

excelhome求助2024.rar (10.09 KB, 下载次数: 12)
微信图片_20240704164609.png

TA的精华主题

TA的得分主题

发表于 2024-7-4 17:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我有问题,为什么9的第一个是910,而不是901?

TA的精华主题

TA的得分主题

发表于 2024-7-4 19:07 | 显示全部楼层
本帖最后由 小凡、、、 于 2024-7-4 19:09 编辑

有四组数包含情况,格子不够用,自己改改吧
image.jpg

excelhome求助2024.rar

22.82 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-4 19:45 | 显示全部楼层
混沌音符 发表于 2024-7-4 17:42
我有问题,为什么9的第一个是910,而不是901?

9对应的就是910呀,没有别的了,就是910,数据库就是910哦

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-4 20:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
小凡、、、 发表于 2024-7-4 19:07
有四组数包含情况,格子不够用,自己改改吧

125.png
你好,当我a2输入56的时候右边怎么会提取2个567?应该只提取一个567才对。 输入67也一样,提取了2个567,应该只提取1个567才对。

输入3个数567,也提示有2个567,  这个567只能出现1次,不能出现2次, 你可以修改下不? 谢谢啦。 我认真的测试了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-4 20:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
已经解决!!
小凡、、、同志在vba里面把567输入2次了,我删除一个就解决了 谢谢啊!!谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-5 08:44 | 显示全部楼层
最后完整的效果图,谢谢 小凡、、、!谢谢大家,在这个论坛大家庭确实能学到很多知识!!
999.png

TA的精华主题

TA的得分主题

发表于 2024-7-5 11:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
=TRANSPOSE(OFFSET(E12,MATCH(A2,D13:D31,0)-1,,3))
=LEFT(B2#,1)

image.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-7-6 15:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
秃头发师 发表于 2024-7-5 11:19
=TRANSPOSE(OFFSET(E12,MATCH(A2,D13:D31,0)-1,,3))
=LEFT(B2#,1)

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

本版积分规则

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

GMT+8, 2024-11-17 03:54 , Processed in 0.039457 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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