每次运行到这一句就报错，提示信息：“运行时错误1004，应用...

jmgyb

每次运行到这一句就报错，提示信息：“运行时错误1004，应用程序定义或对象定义错误...Cells(c, 62).Value = ling
Private Sub CommandButton1_Click()
  Dim ling As Integer, yi As Integer, er As Integer, san As Integer, si As Integer, wu As Integer, liu As Integer, qi As Integer, ba As Integer, jiu As Integer
  Dim i As Integer, Hanghao As Integer, Bai As Integer, Shi As Integer, Ge As Integer, no1 As Integer
  Dim weihao As Integer
    Worksheets("一").Activate
      Hanghao = TextBox1.Value
        Bai = Sheets("一").Range("c1").Value
        Shi = Sheets("一").Range("d1").Value
        Ge = Sheets("一").Range("e1").Value
        For i = 3 To 209
          Cells(Hanghao + 1, i).Value = Cells(3, i).Value
          weihao = Worksheets("一").Cells(Hanghao, i).Value
          If weihao = Bai Then
              Cells(Hanghao, i).Interior.ColorIndex = 38
              no1 = Cells(Hanghao + 1, i).Value
              NO (no1)
            ElseIf weihao = Shi Then
              Cells(Hanghao, i).Interior.ColorIndex = 38
              no1 = Cells(Hanghao + 1, i).Value
              NO (no1)
            ElseIf weihao = Ge Then
              Cells(Hanghao, i).Interior.ColorIndex = 38
              no1 = Cells(Hanghao + 1, i).Value
              NO (no1)
            Else
          End If
        Next i
    UserForm1.Hide
  Cells(c, 62).Value = ling
  Cells(d, 62).Value = yi
  
End Sub
Private Sub CommandButton2_Click()
  UserForm1.Hide
End Sub
Public Function NO(no1 As Integer) As Integer
      Select Case no1
          Case 0
            ling = ling + 1
          Case 1
            yi = yi + 1
          Case 2
            er = er + 1
          Case 3
            san = san + 1
          Case 4
            si = si + 1
          Case 5
            wu = wu + 1
          Case 6
            liu = liu + 1
          Case 7
            qi = qi + 1
          Case 8
            ba = ba + 1
          Case 9
            jiu = jiu + 1
      End Select
  End Function

风林火山

ling和yi这两个变量没赋值吧

yuan1987

改成这个" ling"  "yi",下边所有的都加英文状态下的引号。或者直接改成阿拉伯数字。

jmgyb

各位大师帮帮我啊

FF7

jmgyb 发表于 2014-3-19 22:33
各位大师帮帮我啊

报错的原因是c,d两个变量未赋值，此时为0，所以Cells(0,62)单元格对象不存在，从而导致错误。
你的代码，没有领会变量的作用域和生存期，基本是在胡乱使用。
先大致上给你改下，你自己再慢慢琢磨吧！

1.   Dim ling As Integer, yi As Integer, er As Integer, san As Integer, si As Integer
   
2.   Dim wu As Integer, liu As Integer, qi As Integer, ba As Integer, jiu As Integer
   
3. 
   
4. 
   
5. Private Sub CommandButton1_Click()
   
6.   Dim i As Integer, Hanghao As Integer, Bai As Integer, Shi As Integer, Ge As Integer, no1 As Integer
   
7.   Dim weihao As Integer
   
8.     Worksheets("一").Activate
   
9.       Hanghao = TextBox1.Value
   
10.         Bai = Sheets("一").Range("c1").Value
    
11.         Shi = Sheets("一").Range("d1").Value
    
12.         Ge = Sheets("一").Range("e1").Value
    
13.         For i = 3 To 209
    
14.           Cells(Hanghao + 1, i).Value = Cells(3, i).Value
    
15.           weihao = Worksheets("一").Cells(Hanghao, i).Value
    
16.           If weihao = Bai Then
    
17.               Cells(Hanghao, i).Interior.ColorIndex = 38
    
18.               no1 = Cells(Hanghao + 1, i).Value
    
19.               NO (no1)
    
20.             ElseIf weihao = Shi Then
    
21.               Cells(Hanghao, i).Interior.ColorIndex = 38
    
22.               no1 = Cells(Hanghao + 1, i).Value
    
23.               NO (no1)
    
24.             ElseIf weihao = Ge Then
    
25.               Cells(Hanghao, i).Interior.ColorIndex = 38
    
26.               no1 = Cells(Hanghao + 1, i).Value
    
27.               NO (no1)
    
28.             Else
    
29.           End If
    
30.         Next i
    
31.     UserForm1.Hide
    
32.   
    
33.   
    
34.   
    
35.   Cells(62, "C").Value = ling   'Cells(c, 62).Value = ling
    
36.   Cells(62, "D").Value = yi     'Cells(d, 62).Value = yi
    
37. End Sub
    
38. 
    
39. Private Sub CommandButton2_Click()
    
40.   UserForm1.Hide
    
41. End Sub
    
42. 
    
43. Public Function NO(no1 As Integer) As Integer
    
44.       Select Case no1
    
45.           Case 0
    
46.             ling = ling + 1
    
47.           Case 1
    
48.             yi = yi + 1
    
49.           Case 2
    
50.             er = er + 1
    
51.           Case 3
    
52.             san = san + 1
    
53.           Case 4
    
54.             si = si + 1
    
55.           Case 5
    
56.             wu = wu + 1
    
57.           Case 6
    
58.             liu = liu + 1
    
59.           Case 7
    
60.             qi = qi + 1
    
61.           Case 8
    
62.             ba = ba + 1
    
63.           Case 9
    
64.             jiu = jiu + 1
    
65.       End Select
    
66.   End Function
    

复制代码

jmgyb

为什么运行时ling、yi两个变量没有数值呢，各位帮帮我啊