Board logo

標題: 按編號中英文字串, 傳回類別 [打印本頁]
作者: 周大偉    時間: 2014-11-22 21:25     標題: 按編號中英文字串, 傳回類別

各前輩, 好
小弟想於工作表加入一個按編號中英文字串, 傳回類別, 煩請大大協助, 現附上檔案, 內有說明, 先謝過各大大前輩, 謝謝!!
[attach]19637[/attach]
作者: luhpro    時間: 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
複製代碼
[attach]19644[/attach]
作者: 周大偉    時間: 2014-11-23 14:40

回復 2# luhpro
感謝大大回應, 衷心謝謝!!
作者: 周大偉    時間: 2014-12-17 21:10

回復 2# luhpro
大大, 好,
大大的程式正是小弟所需求, 而現時小弟亦已使用, 但一個框線問題, 請大大協助, 小弟把檔上傳, 內有明細說明,
先感謝, 謝謝謝!
[attach]19853[/attach]
作者: GBKEE    時間: 2014-12-18 06:31

回復 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
複製代碼
作者: 周大偉    時間: 2014-12-18 07:41

回復 5# GBKEE

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)