標題: [發問] 擷取LISTBOX當中的文字 [打印本頁]

---

作者: lifedidi    時間: 2018-2-23 09:43     標題: 擷取LISTBOX當中的文字

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

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

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

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

---

作者: Hsieh    時間: 2018-2-23 11:29

回復 1# lifedidi

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

---

作者: lifedidi    時間: 2018-2-23 12:46

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

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

[attach]28382[/attach]

---

作者: Kubi    時間: 2018-2-23 14:47

回復 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    時間: 2018-2-23 22:54

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

---

作者: lifedidi    時間: 2018-2-26 12:19

各位先進，不好意思，

我執行了程式碼

ListBox1.ListIndex = 0

Msgbox Listbox1.Value

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

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

---

作者: lifedidi    時間: 2018-2-26 12:41

各位先進您好：

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

[attach]28384[/attach]

[attach]28383[/attach]

---

作者: Hsieh    時間: 2018-2-26 17:33

回復 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    時間: 2018-2-28 17:29

Hsieh 大師 您好

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

---

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