[已解决]程序定义出错

mzb1992

调试userform2时出现的，不知道怎么修改，求好心人帮助

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-22 08:41

窗体3的代码给你改了下。

1. Dim name As String
   
2. Dim mrow As Integer
   
3. 
   
4. 
   
5. Private Sub ComboBox1_Click()
   
6.     On Error Resume Next
   
7.     mrow = 0
   
8.     Me.Label4.Caption = ""
   
9.     name = ComboBox1.Value
   
10.     Worksheets(1).Activate
    
11.     If VBA.IsNumeric(name) Then
    
12.         mrow = Range("F:F").Find(what:=CInt(name), lookat:=xlWhole).Row
    
13.     Else
    
14.         mrow = Range("F:F").Find(what:=name, lookat:=xlWhole).Row
    
15.     End If
    
16.     If mrow > 0 Then Label4.Caption = Cells(mrow, 3)
    
17. End Sub
    
18. Private Sub CommandButton1_Click()
    
19.     Worksheets(1).Activate
    
20.     Application.ScreenUpdating = False
    
21.     Range("C" & mrow & ":h" & mrow).Delete Shift:=xlUp
    
22. '    Range("D" & mrow).Delete Shift:=xlUp
    
23. '    Range("E" & mrow).Delete Shift:=xlUp
    
24. '    Range("F" & mrow).Delete Shift:=xlUp
    
25. '    Range("G" & mrow).Delete Shift:=xlUp
    
26. '    Range("H" & mrow).Delete Shift:=xlUp
    
27.     Application.ScreenUpdating = True
    
28. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

Private Sub ComboBox1_Click()
    Public name As String
    Public mrow As Integer
        
    name = ComboBox1.Value
    Worksheets(1).Activate
    mrow = Range("F:F").Find(name).Row
    Label4.Caption = Cells(mrow, 3)
End Sub

PUBLIC语句不能出现在过程内，只能在模块顶部定义。

hwc2ycy

窗体3的代码给你改了下。

1. Dim name As String
   
2. Dim mrow As Integer
   
3. 
   
4. 
   
5. Private Sub ComboBox1_Click()
   
6.     On Error Resume Next
   
7.     mrow = 0
   
8.     Me.Label4.Caption = ""
   
9.     name = ComboBox1.Value
   
10.     Worksheets(1).Activate
    
11.     If VBA.IsNumeric(name) Then
    
12.         mrow = Range("F:F").Find(what:=CInt(name), lookat:=xlWhole).Row
    
13.     Else
    
14.         mrow = Range("F:F").Find(what:=name, lookat:=xlWhole).Row
    
15.     End If
    
16.     If mrow > 0 Then Label4.Caption = Cells(mrow, 3)
    
17. End Sub
    
18. Private Sub CommandButton1_Click()
    
19.     Worksheets(1).Activate
    
20.     Application.ScreenUpdating = False
    
21.     Range("C" & mrow & ":h" & mrow).Delete Shift:=xlUp
    
22. '    Range("D" & mrow).Delete Shift:=xlUp
    
23. '    Range("E" & mrow).Delete Shift:=xlUp
    
24. '    Range("F" & mrow).Delete Shift:=xlUp
    
25. '    Range("G" & mrow).Delete Shift:=xlUp
    
26. '    Range("H" & mrow).Delete Shift:=xlUp
    
27.     Application.ScreenUpdating = True
    
28. End Sub

复制代码

mzb1992

hwc2ycy 发表于 2013-4-22 08:41
窗体3的代码给你改了下。

谢谢大神