- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2016-6-3 08:22 編輯
回復 1# bsy4life
luhpro 提供的Dictionary 最簡便,也可用工作表函數 CountIf,Match 替代- Private Sub TextBox6_Change()
- Dim xNo As Variant, y As Range
- Set y = Sheets("CNC名單(All1)").Range("a:a")
- xNo = Application.CountIf(y, Val(TextBox6)) '傳回TextBox6相同的內容在y 的個數
- Select Case xNo
- Case 1
- 'luhpro 上傳的工號索引.xls 名單內的儲存格有些是文字格式
- 'y.Value = y.Value '轉為數字格式
- xNo = Application.Match(Val(TextBox6), y, 0) '傳回TextBox6在y 的列號
- ComboBox1 = y.Cells(xNo, "b")
- Case 0
- ComboBox1 = ""
- Case Is > 1
- ComboBox1 = "工號重複"
- End Select
- End Sub
|
|
發表於 2016-6-3 08:19
| 