簡體   English   中英

激活另一張紙時出現VBA錯誤

[英]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.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM