讓我設置環境。無法關閉用戶表單
這是在Excel中運行的VBA代碼。
我有一個包含msflexgrid的用戶窗體。此flexgrid顯示客戶和客戶,銷售人員,csr,製造商代表和領土,分配的列表。當您點擊一列時,讓我們假設在地域欄下,另一個用戶窗體打開,顯示一個地區列表。然後,您點擊您選擇的區域,用戶窗體消失,新的區域代替舊的區域。
這一切都很好,直到你點擊你選擇的領土時,'Territory'用戶窗體不會消失(它閃爍),而新的領域不會傳遞底層的用戶窗體。
我應該提到,當我逐步完成代碼時,它的工作效果很好。
我假設它有一些與flexgrid做所有其他用戶窗體(沒有flexgrids),打開用戶窗體工作就好了。
以下是一些代碼示例:
**從FlexGrid的顯示區域和用戶窗體的新領地分配時,境內用戶窗體關閉Click事件。
Private Sub FlexGrid_Customers_Click()
With FlexGrid_Customers
Select Case .Col
Case 0
Case 2
Case 4
Case 6
UserForm_Territories.Show
Case Else
End Select
If Len(Trim(Misc1)) > 0 Then
.TextMatrix(.Row, .Col) = Trim(Misc1)
.TextMatrix(.Row, .Col + 1) = Trim(Misc2)
End If
End With
End Sub
**以下替補的領土窗體
Private Sub UserForm_Activate()
Misc1 = ""
Misc2 = ""
ListBox_Territory.Clear
Module_Get.Territories
End Sub
Private Sub UserForm_Terminate()
Set UserForm_Territories = Nothing
End Sub
Private Sub ListBox_Territory_Click()
With ListBox_Territory
Misc1 = Trim(.List(.ListIndex, 0))
Misc2 = Trim(.List(.ListIndex, 1))
End With
Hide
UserForm_Terminate
End Sub
我知道這是一個長篇大論的解釋,但我是一個相當不錯的VBA編程,這有我難倒使用。
任何幫助將不勝感激。