返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-11-23 03:45 | 顯示全部帖子
各前輩, 好
小弟想於工作表加入一個按編號中英文字串, 傳回類別, 煩請大大協助, 現附上檔案, 內有說明, 先 ...
周大偉 發表於 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)

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題