按編號中英文字串, 傳回類別

周大偉

各前輩, 好
小弟想於工作表加入一個按編號中英文字串, 傳回類別, 煩請大大協助, 現附上檔案, 內有說明, 先謝過各大大前輩, 謝謝!!
入貨單.rar (10.5 KB)

下載次數: 8

2014-11-22 21:24

周大偉

回復 5# GBKEE

謝謝版大回應,
衷心感謝!

GBKEE

回復 4# 周大偉
試試看

1. Private Sub cbSel_Click()
   
2.   Dim iI%, vSel(), lRow&
   
3.   vSel = Array("文具", "清潔用品", "飲食類", "一般", "檔案類")
   
4.   lRow = 3
   
5.   Do While Cells(lRow, 3) <> ""
   
6.     iI = Asc(Mid(Cells(lRow, 3), 1, 1)) - 65
   
7.     Cells(lRow, 14) = vSel(iI)
   
8.     lRow = lRow + 1
   
9.   Loop
   
10. End Sub

複製代碼

周大偉

回復 2# luhpro
大大, 好,
大大的程式正是小弟所需求, 而現時小弟亦已使用, 但一個框線問題, 請大大協助, 小弟把檔上傳, 內有明細說明,
先感謝, 謝謝謝!
入貨單-a.rar (19.59 KB)

下載次數: 11

2014-12-17 21:10

周大偉

回復 2# luhpro
感謝大大回應, 衷心謝謝!!

luhpro

各前輩, 好
小弟想於工作表加入一個按編號中英文字串, 傳回類別, 煩請大大協助, 現附上檔案, 內有說明, 先 ...
周大偉 發表於 2014-11-22 21:25

1. Private Sub cbSel_Click()
   
2.   Dim iI%
   
3.   Dim lRow&
   
4.   Dim sStr$
   
5.   Dim vD, vSel()
   
6.   
   
7.   vSel = Array("文具", "清潔用品", "飲食類", "一般", "檔案類")
   
8.   Set vD = CreateObject("Scripting.Dictionary")
   
9.   For iI = 0 To UBound(vSel)
   
10.     vD(Chr(65 + iI)) = vSel(iI)
    
11.   Next
    
12.   
    
13.   lRow = Cells(Rows.Count, 14).End(xlUp).Row
    
14.   Range(Cells(3, 14), Cells(lRow, 14)).Clear
    
15.   lRow = 3
    
16.   Do While Cells(lRow, 3) <> ""
    
17.     Cells(lRow, 14) = vD(Left(Cells(lRow, 3), 1))
    
18.     lRow = lRow + 1
    
19.   Loop
    
20. End Sub

複製代碼

入貨單-a.zip (17.51 KB)

下載次數: 9

2014-11-23 03:45