[已解决]根据A列数据的前两位不同的字母，返回不同的数值，谢谢高手们了

lzrlzr

你好，能否再帮帮我，谢谢了：用VBA代码实现：根据A列数据的前两位不同的字母，如：BZ、CJ、TD、ZW等，赋于不同的内容（资产类别如：电器、电脑等等），并将该内容的值填充到表中的N列中。详见附件。

最佳答案

月排行榜 / 总排行榜

王谦

2014-4-5 07:12

lzrlzr 发表于 2014-4-4 23:50
Sub TT()

Dim My_D

1. Sub 按钮1_Click()
   
2. 
   
3. 
   
4. Dim My_D
   
5. Dim x
   
6. 
   
7. 
   
8. Set My_D = CreateObject("scripting.dictionary")
   
9. 
   
10. My_D("BZ") = "电脑"
    
11. My_D("CJ") = "电器"
    
12. My_D("TD") = "雨伞"
    
13. 
    
14. 
    
15. For x = 3 To Range("A65536").End(xlUp).Row
    
16. 
    
17. Range("N" & x).Value = My_D(Left(Range("A" & x).Value, 2))
    
18. 
    
19. Next
    
20. 
    
21. 
    
22. End Sub
    

复制代码

不好意思，我以为提供思路就好，所以没有测试，忘记加双引号了~已修正了

跳转到最佳答案楼层

王谦

按照以下思路可以达成目的

1. 
   
2. Dim My_D
   
3. Dim x
   
4. 
   
5. Set My_D = CreateObject("scripting.dictionary")
   
6.     My_D(BZ) = "电脑"
   
7.     My_D(CJ) = "电器"
   
8.    
   
9. For x = 3 To Range("A65536").End(xlUp).Row
   
10.     Range("N" & x).Value = My_D(Left(Range("A" & x).Value, 2))
    
11. Next
    
12. 
    
13. End Sub

复制代码

lzrlzr

王谦 发表于 2014-4-4 22:58
按照以下思路可以达成目的

Sub TT()

Dim My_D
Dim x

Set My_D = CreateObject("scripting.dictionary")
    My_D(BZ) = "μçÄÔ"
    My_D(CJ) = "μçÆ÷"

For x = 3 To Range("A65536").End(xlUp).Row
    Range("N" & x).Value = My_D(Left(Range("A" & x).Value, 2))
Next

End Sub
你好，运行上面 的宏TT,怎么没反映呢，我是个菜鸟，不懂的，你能再帮帮我，做成附件 ，上传？谢谢了

王谦

lzrlzr 发表于 2014-4-4 23:50
Sub TT()

Dim My_D

1. Sub 按钮1_Click()
   
2. 
   
3. 
   
4. Dim My_D
   
5. Dim x
   
6. 
   
7. 
   
8. Set My_D = CreateObject("scripting.dictionary")
   
9. 
   
10. My_D("BZ") = "电脑"
    
11. My_D("CJ") = "电器"
    
12. My_D("TD") = "雨伞"
    
13. 
    
14. 
    
15. For x = 3 To Range("A65536").End(xlUp).Row
    
16. 
    
17. Range("N" & x).Value = My_D(Left(Range("A" & x).Value, 2))
    
18. 
    
19. Next
    
20. 
    
21. 
    
22. End Sub
    

复制代码

不好意思，我以为提供思路就好，所以没有测试，忘记加双引号了~已修正了

lzrlzr

王谦 发表于 2014-4-5 07:12
不好意思，我以为提供思路就好，所以没有测试，忘记加双引号了~已修正了

谢谢了，不错

王谦

lzrlzr 发表于 2014-4-6 19:58
谢谢了，不错

如果觉得不错的话 给设个最佳答案呗~{:091:}

lzrlzr

王谦 发表于 2014-4-5 07:12
不好意思，我以为提供思路就好，所以没有测试，忘记加双引号了~已修正了

老师你好，请再帮我看看，能否实现：在该附件的ＶＢＡ代码基础上加入（或修改）代码能够实现：当点击“入库单录入”表中的“Ｂ10:Ｂ15”单元格弹出的“双击物料直接录入”输入框中左侧输入项能够根据“物品”中的A列的前四位字母,,生成"WJWH"和"DHGL"等主选项按钮.3,各个按钮能根据“物品”中Ａ列"的数据分门别类的区分开来,并各自放置在各个按钮中.如所有"ＷＪＷＨ"开头的放在"ＷＪＷＨ"中等等。详见附件，谢谢了！

王谦

lzrlzr 发表于 2014-4-12 22:24
老师你好，请再帮我看看，能否实现：在该附件的ＶＢＡ代码基础上加入（或修改）代码能够实现：当点击“入 ...

不好意思 ~这个我也不会~

lbhlbh

王谦 发表于 2014-4-13 19:49
不好意思 ~这个我也不会~

你好，请帮我设计 一下代码，能够实现：1、当点击表中D4时，能够生成“MX"表中C列所有单元格="CKMX"表的D4单元值的工作表，且表头不变的。2、另外设计一个按钮，当点击该按钮时，就会把刚生成的工作表删除，而不会影响其他 的工作表。（详见附件）