[發問] 擷取LISTBOX當中的文字

lifedidi

假設我的LISTBOX的值為 A欄位(員工編號) 及 B欄位(員工姓名)所組成

當我選取LISTBOX其中一個值顯示為 " 80523 李大仁 "

後續要做其他動作時，是否有辦法只擷取出"80523"三個字呢？或是"李大人"。

(員工編號可能5位數~6位數) (姓名也可能2~4個字)

Hsieh

回復 1# lifedidi

Private Sub ListBox1_Change()
With ListBox1
MsgBox "第一欄" & .List(.ListIndex, 0)
MsgBox "第二欄" & .List(.ListIndex, 1)
End With
End Sub

lifedidi

Hsieh 大師 您好
感謝您的回覆，我嘗試了幾次，資料仍然無法分開，
應該是我編寫的方式有問題，我是用ListBox1.AddItem A欄 & B欄，是否是要用其他方式?
再向您請教，附上檔案，謝謝！

另外衍伸一個問題，LISTBOX是否可以打開USERFORM時，自動選擇第一欄位，不然LISTBOX沒有選擇項目時，操作下去會顯示型態不符合，謝謝！

LISTBOX.zip (20.53 KB)

下載次數: 5

2018-2-23 12:39

Kubi

回復 3# lifedidi

Q1：請將CommandButton1_Click事件程序改為如下試試看。

Private Sub CommandButton1_Click()
    With ListBox1
        MsgBox "編號：" & Split(.Value, " ")(0)
        MsgBox "姓名：" & Split(.Value, " ")(1)
    End With
End Sub

Q2：於UserForm_Initialize事件程序後面加入底下兩行。
ListBox1.ListIndex = 0
ListBox2.ListIndex = 0

lifedidi

Kubi 大師 您好
感謝您的幫忙~~~ 問題解決了 謝謝！

lifedidi

各位先進，不好意思，

我執行了程式碼

ListBox1.ListIndex = 0

Msgbox Listbox1.Value

他抓出來的值是"" 抓不到第一個項目

但是有時候又可以抓的到，請問是什麼原因呢？

lifedidi

各位先進您好：

附上測試檔案，下圖是要抓取AFJ 但是只抓取到AF，

下載 (276.34 KB)

2018-2-26 12:40

LISTBOX_20180226.zip (20.23 KB)

下載次數: 19

2018-2-26 12:39

Hsieh

回復 7# lifedidi
給駐點

1. Private Sub CommandButton2_Click()
   
2. 
   
3. ListBox1.ListIndex = 0
   
4. ListBox2.ListIndex = 1
   
5. ListBox3.ListIndex = 0
   
6. ListBox4.ListIndex = 3
   
7. ListBox5.ListIndex = 2
   
8. ListBox5.SetFocus
   
9. MsgBox ListBox1.Value & ListBox2.Value & ListBox3.Value & ListBox4.Value & ListBox5.Text
   
10. 
    
11. End Sub

複製代碼

lifedidi

Hsieh 大師 您好

學習到了！感謝您的指導，謝謝！