[已解决]如何实现录入编码就会显示编码及名称的问题？

zhqsl

Book1.zip (2.4 KB, 下载次数: 15)

2016-5-8 21:53 上传

点击文件名下载附件



如何实现在单元格录入相应的编码，回车后该单元格就会显示该编码及名称？详见附件。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-10 20:50

(, 下载次数: 11)

上传

点击文件名下载附件

跳转到最佳答案楼层

海上飞鱼

Private Sub Worksheet_Change(ByVal Target As Range)
v = Target.Value
Target.Value = Application.WorksheetFunction.Index(Range("I2:I19"), WorksheetFunction.Match("*" & v & "*", Range("I2:I19"), 0))
End Sub

zhqsl

海上飞鱼 发表于 2016-5-8 22:58
Private Sub Worksheet_Change(ByVal Target As Range)
v = Target.Value
Target.Value = Application.Wo ...

谢谢高手，你的代码能到达目的。但是如果不小心代码录入错了，就会出现“结束“、”调制“的错误提示，如何不让它出错提示？

爱疯

zhqsl 发表于 2016-5-8 23:17
谢谢高手，你的代码能到达目的。但是如果不小心代码录入错了，就会出现“结束“、”调制“的错误提示，如 ...

楼主应上传出错附件，并完整的说明。

路过

zhqsl

假如在B2错误录入了10101，


就会出现下面的错误提示：

还有，绿色区域的信息删除不了

sjion

可否换个思路：在B1中输入代码，在C1中显示内容，则公式为：{=IF(COUNTIF($I$2:$I$19,"*"&B1&"*")>0,INDIRECT(MID(ADDRESS(MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*ROW($I$2:$I$19)),MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*COLUMN($I$2:$I$19))),2,1)&RIGHT(ADDRESS(MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*ROW($I$2:$I$19)),MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*COLUMN($I$2:$I$19))),LEN(ADDRESS(MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*ROW($I$2:$I$19)),MAX(ISNUMBER(FIND(B1,$I$2:$I$19))*COLUMN($I$2:$I$19))))-3)),"无")}。“{}”的输入为crl
+shift+enter。谢谢

zhqsl

sjion 发表于 2016-5-9 09:48
可否换个思路：在B1中输入代码，在C1中显示内容，则公式为：{=IF(COUNTIF($I$2:$I$19,"*"&B1&"*")>0,INDIRE ...

您的思路也挺好的，但是我还是想用VBA。

sjion

zhqsl 发表于 2016-5-9 09:58
您的思路也挺好的，但是我还是想用VBA。

那就爱莫能助咯，谢谢

zhqsl

现在不能删除的问题解决了，但是如果录入科目出错（即右侧区域里没有的科目），就会报错，这个问题如何解决？请高手指教！
见附件book2.
Book2.zip (10.18 KB, 下载次数: 10)

2016-5-9 16:09 上传

点击文件名下载附件

zhqsl

期待高手给予解决，谢谢啦！！