請問如何在自訂表單中應用VLOOKUP函數 - Excel程式區

[發問] 請問如何在自訂表單中應用VLOOKUP函數

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-4-7 14:49 | 顯示全部帖子

回復 3# minture3

是這樣嗎？

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For Each rn In Sheets("工作表1").Range("a2:a4" & Sheets("工作表1").Cells(Rows.Count, "A").End(xlUp).Row)
If TextBox1.Value = rn Then
Label1.Caption = Sheets("工作表1").Cells(rn.Row, "b")
Exit For
Else
Label1.Caption = "查無此資料"
End If
Next
End Sub

複製代碼

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-4-7 17:53 | 顯示全部帖子

回復 6# minture3

再試試看,以前我沒用過這方式做過，所以也不知對不對，程式和表單及"資料庫"都要放在個人巨集工作簿("PERSONAL.xlsb")中

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For Each rn In Workbooks("PERSONAL.xlsb").Sheets("資料庫").Range("a2:a" & Workbooks("PERSONAL.xlsb").Sheets("資料庫").Cells(Rows.Count, "A").End(xlUp).Row)
If TextBox1.Value = rn Then
Label1.Caption = Workbooks("PERSONAL.xlsb").Sheets("資料庫").Cells(rn.Row, "b")
Exit For
Else
Label1.Caption = "查無此資料"
End If
Next
End Sub

複製代碼

複製代碼

靜思自在 : 口說好話、心想好意、身行好事。