關於userform的問題

owen06

各位大大，小弟做了一個userform如附件，
遇到的問題是在『股票代號』這個欄位，
如果是選擇有對應到的股票代號，下面相關的欄位就會帶出內容來，
但是如果是用自行輸入，且清單裡沒有該代號對應的資料，
下面的欄位我該怎麼設定，才能讓他把其他欄位內容清空，
而不是顯示最接近的內容，造成錯誤。

例如我輸入2354(鴻準)，但清單裡並沒這檔股票的資料，
下面的欄位應該要都抓不到資料才對，
可是下面所有的內容卻都顯示2355(敬鵬)的相關資料，
這樣產出來的資料就會造成錯誤了。
煩請各位大大幫忙解惑一下，謝謝~~~

huijuang

Application.VLookup(sel, Sheet1.[a3:s65536], 2, False)會傳回錯誤
但因為On Error Resume Next 的關係，所以程式仍會執行
所以在程式中增加一個判別是否有錯(如下)

1. Private Sub ComboBox1_Change()
   
2. Dim sel As Long
   
3. On Error Resume Next
   
4. sel = ComboBox1.Text
   
5. TextBox2 = Application.VLookup(sel, Sheet1.[a3:s65536], 2, False)
   
6. TextBox6 = Application.VLookup(sel, Sheet1.[a3:s65536], 4, False)
   
7. TextBox5 = Application.VLookup(sel, Sheet1.[a3:s65536], 9, False)
   
8. TextBox3 = Application.VLookup(sel, Sheet1.[a3:s65536], 12, False)
   
9. TextBox4 = Application.VLookup(sel, Sheet1.[a3:s65536], 13, False)
   
10. If Err <> 0 Then
    
11. TextBox2 = ""
    
12. TextBox6 = ""
    
13. TextBox5 = ""
    
14. TextBox3 = ""
    
15. TextBox4 = ""
    
16. End If
    
17. End Sub

複製代碼

owen06

回復 2# huijuang

太好了，可以了，感謝你^^

GBKEE

回復 3# owen06

1. Dim Rng As Range, Ar()
   
2. Private Sub UserForm_Initialize()
   
3.     Ar = Array(TextBox2, TextBox6, TextBox5, TextBox3, TextBox4) '控制項置於陣列
   
4.     With Sheet1
   
5.         Set Rng = .[A3]
   
6.         ComboBox1.RowSource = .Range("a3:a" & [a65536].End(3).Row).Address
   
7.         ComboBox2.RowSource = .[iv65533:iv65536].Address
   
8.     End With
   
9. End Sub
   
10. Private Sub ComboBox1_Change()
    
11.     Dim sel(), i As Integer
    
12.     sel = Array(2, 4, 9, 12, 13)
    
13.     With ComboBox1  '.ListIndex = -1 不在清單中
    
14.         For i = 0 To UBound(Ar)
    
15.             Ar(i).Text = IIf(.ListIndex > -1, Rng.Offset(.ListIndex, sel(i) - 1), "")
    
16.         Next
    
17.     End With
    
18.     'TextBox2 = Application.VLookup(sel, Sheet1.[a3:s65536], 2, False)
    
19.     'TextBox6 = Application.VLookup(sel, Sheet1.[a3:s65536], 4, False)
    
20.     'TextBox5 = Application.VLookup(sel, Sheet1.[a3:s65536], 9, False)
    
21.     'TextBox3 = Application.VLookup(sel, Sheet1.[a3:s65536], 12, False)
    
22.     'TextBox4 = Application.VLookup(sel, Sheet1.[a3:s65536], 13, False)
    
23. End Sub

複製代碼

owen06

回復 4# GBKEE

謝謝版主大大的指導，能否再順便請教一下，
我底下這個附檔裡的程式，該如何讓d1的值顯示為#n/a的時候，
讓d1的儲存格格式變為;;;
目前卡在不知該怎麼設定if [d1]= XXX

另外想請問=if(iserror(vlookup(c1,a1:b3,2,false)),"",(vlookup(c1,a1:b3,2,false))
這個公式有辦法寫在vba裡嗎？我怎麼寫都發生錯誤…
煩請抽空替小弟解答一下，謝謝

GBKEE

回復 5# owen06

1. If IsError([D1]) Then
   
2.     '或是 If [D1].Text = "#N/A" Then
   
3.    
   
4.     [D1] = "=IF(ISERROR(VLOOKUP(C1,A1:B3,2,FALSE)),"""",VLOOKUP(C1,A1:B3,2,FALSE))"

複製代碼

owen06

回復 6# GBKEE


    瞭解了，再次謝謝版主賜教~