minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-2 13:49 | 只看該作者

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

請教各位
小弟希望能夠在自訂表單中1跟2的位置
輸入品項右方就可以自動顯示對應的金額
如附圖所示
請教Label的值應該要怎麼設定?

樓主熱帖

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

2^#

發表於 2015-4-2 22:42 | 只看該作者

Label3 = Val(Label1) + Val(Label2)

TOP

minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

3^#

發表於 2015-4-7 12:01 | 只看該作者

回復 2# koo

感謝回覆
補充一下問題
Lebel3的寫法已經確認
如下圖
我希望在左側輸入品項後右側的Lebel1就顯示出價格
這樣的話應該要怎麼寫!?

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

4^#

發表於 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

複製代碼

TOP

minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

5^#

發表於 2015-4-7 16:52 | 只看該作者

回復 4# lpk187

不好意思
如果我是要把資料放在個人活頁巨集(就是不管開哪個檔案這個巨集都可以使用的那個)

這樣的話
For Each rn In Sheets("資料庫")這邊的應該怎麼修正??
我剛剛試了一下直接改成個人活頁巨集的那個工作表名稱
但是執行後沒有反應!

感謝!!

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

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

6^#

發表於 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

複製代碼

Public Sub test()
UserForm1.Show
End Sub

複製代碼

TOP

minture3

中學生 Rank: 2

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

7^#

發表於 2015-4-8 11:10 | 只看該作者

回復 6# lpk187

感謝回覆 !!
早上抽空試了一下
發現上回的寫法是可行的

不過表單中一定要有一個textbox2
昨天因為我把它拿掉所以執行了就沒有反應~~
但是一定要開著PERSONAL這個檔案
如果把檔案隱藏了也會變成沒有辦法執行~!!會出現"ROWS方法失敗"

至於指定Workbooks("PERSONAL.xlsb").Sheets("資料庫")
試了一下會出現"應用程式或物件定義上的錯誤"

TOP