急~~~~1004 应用程序定义或对象定义错误。。。。。
本帖最后由 bcrun 于 2013-04-29 20:28:22 编辑 在其它机子运行没有问题，然后在win8系统打开这个excel的时候，即便不是运行随便点击一个单元格都出现提示说： 1004 应用程序定义或对象定义错误。。。。。这是什么回事啊。我按调试，就弹到一下这段代码：

Sub Caculate()
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=1229.25, Top:=57, Width:=267, Height:= _
        72).Select
End Su

b


然后我的执行代码是：

Private Sub CommandButton1_Click()

Dim j As Integer
Dim i As Integer
Dim mycountAL As Integer, mycountOL As Integer
Dim mycountSL As Integer, mycountCL As Integer
Dim Training As Integer, mycountHL As Integer

Dim mycountAL1 As Integer, mycountOL1 As Integer
Dim mycountSL1 As Integer, mycountCL1 As Integer
Dim Training1 As Integer, mycountHL1 As Integer

Dim TTL As Integer, TotalOT As Integer  
Dim TTL1 As Integer                    
Dim RegO As Integer, CSPO As Integer
Dim RegO1 As Integer, CSPO1 As Integer
Dim TWH As Integer, PH As Integer
Dim WD As Integer
Dim Target As range
Dim mycountRegO As Integer, mycountCSPO As Integer


For i = 5 To range("A65536").End(xlUp).Row
    For j = 5 To range("A65536").End(xlUp).Row
        If range("AO7").Value <= range("AQ7").Value Then

            If range("AO7").Value = range("A" & i).Value Then
                If range("AQ7").Value = range("A" & j).Value Then
                  
                    ActiveSheet.range("C" & i, "AJ" & j).Select
  
                 
                    
                    mycountAL = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "AL")
                    mycountOL = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "OL")
                    mycountSL = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "SL") 
 
                    mycountCL = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "CL")
                    Training = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "TR")
                    mycountHL = Application.WorksheetFunction.CountIf(range("C" & i, "AF" & j), "HL")
                    
                  
                    RegO = Application.WorksheetFunction.Sum(range("C" & i, "AD" & j))
                    RegO1 = Application.WorksheetFunction.Sum(range("AG" & i, "AJ" & j))
                    CSPO = Application.WorksheetFunction.Sum(range("AE" & i, "AF" & j))
                    
                   
                    mycountAL1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "AL")
                    mycountOL1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "OL")
                    mycountSL1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "SL")
                    mycountCL1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "CL")
                    Training1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "TR")
                    mycountHL1 = Application.WorksheetFunction.CountIf(range("C" & i, "AJ" & j), "HL")
                    TTL = range("AN7").Value = mycountAL + mycountOL + mycountCL + mycountHL + mycountSL + Training
                   
                    range("AL7").Value = mycountAL1
                    range("AL10").Value = mycountOL1 
 
                    range("AL11").Value = mycountSL1
                    range("AL9").Value = mycountCL1
                    range("AL12").Value = Training1
                    range("AL8").Value = mycountHL1
                   
                    range("AM7").Value = mycountAL1 + mycountOL1 + mycountCL1 + mycountHL1 + mycountSL1 + Training1
                   
                    range("AL15").Value = RegO + RegO1
                    range("AL16").Value = CSPO
                    range("AM15").Value = range("AM15").Value + CSPO
                   
                    range("AK25").Value = range("AK19").Value * 8 * 30      'all people in work
                    range("AM19").Value = range("AK25").Value - TTL
                    range("AO17").Value = range("AM19") + range("AL16").Value + RegO

                End If
            End If

            Else  
            MsgBox "your input date is wrong,please reinput it"

         
        Exit Sub
        End If
    Next
Next
End Sub

excel?VBA
[解决办法]
代码试过，没问题。

你说的“在其它机子运行没有问题”中有WIN8的系统吗？