未找到VBA錯誤424對象，但我有對象

我對VBA很新，但學習速度很快。我有這個名爲AddRoute55的用戶表單和我的工作表中的CommandButton來激活它。未找到VBA錯誤424對象，但我有對象

背後的命令按鈕的代碼是：

Private Sub Route55Button_Click() 

AddRoute55.Show 

End Sub

當userformcode是：

Private Sub UserForm_Initialize() 

'Empty Status 
StatusBox.Clear 

'Fill StatusBox 
With StatusBox 
    .AddItem "Received" 
    .AddItem "Returned to PM" 
    .AddItem "In Progress" 
    .AddItem "On Hold" 
    .AddItem "Complete" 
    .AddItem "Closed" 
    .AddItem "RFC" 
End With 


'Empty BTBox 
BTBox.Clear 

'Fill BTBox 
With BTBox 
    .AddItem "Run" 
    .AddItem "Change" 
End With 

'Empty DomainBox 
DomainBox.Clear 

'Fill DomainBox 
With DomainBox 
    .AddItem "AMS NL" 
    .AddItem "AMS INT" 
    .AddItem "EUS" 
    .AddItem "IPS" 
    .AddItem "NGC" 
    .AddItem "Office" 
    .AddItem "SM" 
End With 

'Empty AIMSBox 
AIMSBox.Value = "" 

'Empty ProjectCoedeBox 
ProjectCodeBox.Value = "" 

'Empty PMBox 
PMBox.Value = "" 

'Empty POBox 
POBox.Value = "" 

'Empty VendorBox 
VendorBox.Value = "" 

'Set No FTR as default 
FTRButton2.Value = True 

'Empty OrderReceivedBox 
OrderReceivedBox.Value = "" 

'Empty OrderProcessedBox 
OrderProcessedBox.Value = "" 

'Empty SSDMBox 
SSDMBox.Value = "" 

'Empty P2PBox 
P2PBox.Value = "" 

'Empty CustomerBox 
CustomerBox.Value = "" 

'Empty PMABox 
PMABox.Value = "" 

'Empty SPBox 
SPBox.Value = "" 


End Sub

用戶窗體本身的屬性稱爲AddRoute55。但是當我按下命令按鈕時，我看到錯誤424，找不到對象，它指向AddRoute55.Show的行。我究竟做錯了什麼？提前致謝！

來源

2016-08-01 Sander Dur

請通過編輯您的帖子來格式化您的子代碼作爲代碼。您可以通過標記代碼並單擊大括號來完成此操作。 –

現在不能嘗試，但這可能會工作：'VBA.UserForms.Add（「AddRoute55」）。顯示' – Jordan

不幸的是，沒有工作:( –

你確定，這是名字而不是標題？

如果您的代碼不起作用，試試這個：

Private Sub Route55Button_Click()  
    UserForm1.Show  
End Sub

您可以通過右鍵單擊在VBA編輯器在設計模式下您的用戶窗體更改您的用戶窗體的name。

來源

2016-08-01 15:10:33

是的..更改名稱頂部字段op屬性。如果你喜歡，我可以給你發送一個下載文件的鏈接，也許你可以看到設置有什麼問題。 –

未找到VBA錯誤424對象，但我有對象

回答

相關問題