通信人家园

标题: 实现在EXCEL中输入定额编号后自动填写具体项目名称 [查看完整版帖子] [打印本页]

时间: 2009-8-21 10:45

作者: wxh5 标题: 实现在EXCEL中输入定额编号后自动填写具体项目名称

不知道有没有人发过，刚刚网上搜索+总结得出来的

先下载一个08版的EXCEL定额库，类似这种格式：

TSD1-001	安装单母线柜(断路器柜)
TSD1-002	安装单母线柜(互感器柜)
TSD1-003	安装单母线柜(电容器柜、其他柜)
TSD1-004	安装单母线柜(母线桥)
TSD1-005	安装双母线柜(断路器柜)
TSD1-006	安装双母线柜(互感器柜)
TSD1-007	安装双母线柜(电容器柜、其他柜)
TSD1-008	不带高压开关柜(变压器容量100kVA以下)
TSD1-009	不带高压开关柜(变压器容量315kVA以下)
TSD1-010	不带高压开关柜(变压器容量630kVA以下)
TSD1-011	带高压开关柜(变压器容量100kVA以下)

然后另存为表1，到你工作的EXCEL表中，点击定额编号后原本要手动输入项目的地方，粘帖这段：

=IF(ISERROR(VLOOKUP(B2,表1!A$1:B$1948,2,0)),"",VLOOKUP(B2,表1!A$1:B$1948,2,0))

其中B2为当前表格中定额编号的起始位置，后面的1948为表1中全部行总和

时间: 2009-8-23 04:01

作者: nawwan

路过

时间: 2009-8-30 10:50

作者: cc_wangwei

路过

时间: 2009-12-23 17:06

作者: xxp076

支持

时间: 2013-5-9 10:50

作者: xp403815

为什么不在表格里面 Sub Worksheet_Change(ByVal Target As Range)。。。。END SUB,写你要搞的过程呢

时间: 2013-5-9 10:56

作者: wxh5

xp403815 发表于 2013-5-9 10:50
为什么不在表格里面 Sub Worksheet_Change(ByVal Target As Range)。。。。END SUB,写你要搞的过程呢

哈哈，老帖了，以前不懂
不过现在也仍旧套用我自己的办法，没在VBA里操作

时间: 2013-5-9 19:47

作者: cofegood

EXCEL是个很神奇的东西

时间: 2013-5-11 13:11

作者: zlxzhxll

学习

时间: 2024-2-26 22:31

作者: spring126

VBA当然好啦，快，

通信人家园 (https://www.txrjy.com/)