[英]VBA Error when I activate another sheet
我正在為自己的工作做紙,但卡在某些無法通過互聯網搜索解決的問題上。
我目前有2張紙正在使用。
表格1:包含所有信息的數據庫; 工作表2:具有從工作表Sheet1中取出的數據的列表,以及使用UserForm1添加附加信息的選項。
在Sheet2上,我使用超鏈接使用以下代碼啟動UserForm1:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) If Target.Range.Column = "4" Then UserForm1.show Exit Sub End If End Sub
在我開始使用UserForm1上的代碼之前,這一直很好。 我在VBA UserForm1中進行了Vlookup,目標為Sheet1。 現在,當我單擊超鏈接時,我得到一個錯誤,調試引用了上面的代碼“ UserForm1”。
UserForm1代碼:
Private Sub UserForm_Initialize()
Object = ActiveCell
TextBox1.Value = Application.WorksheetFunction.VLookup(Object, Sheet1.Range("$B$2:$BW$622"), 1, False)
Label3 = ActiveCell.Offset(0, 1).Value
Label5 = ActiveCell.Offset(0, 3).Value
End Sub
Private Sub BUT_Annuleren_Click()
Unload Me
End Sub
當我使用“ Sheets(” Sheet1“)。activate”時,也會發生同樣的情況。 有人可以幫助我從多個工作表中獲取Userform1中的信息嗎?
謝謝您的幫助!
羅恩
嘗試此操作,分配對象時不要忘記使用Set
關鍵字。
Private Sub UserForm_Initialize()
Set Object = ActiveCell
TextBox1.Value = Application.WorksheetFunction.VLookup(Object, Sheet1.Range("$B$2:$BW$622"), 1, False)
Label3 = ActiveCell.Offset(0, 1).Value
Label5 = ActiveCell.Offset(0, 3).Value
End Sub
Private Sub BUT_Annuleren_Click()
Unload Me
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.