[已解决]VB代码错误问题

cocotin

请老师帮忙看看附件中VB部分为什么不能实现
，在此先谢谢啦

XZ Box-00`.zip (189.61 KB, 下载次数: 2)

2016-8-15 21:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-15 21:51

cocotin 发表于 2016-8-15 21:38
请问老师，怎么修改呢？

1. Sub 圆角矩形1_Click()
   
2. Dim myrow, myrow1, x, mycount
   
3. myrow = Application.CountA(Range("c5:c9")) + 4
   
4. myrow1 = Sheets("收支详情表").Range("c65536").End(xlUp).Row
   
5. mycount = Application.CountIf(Sheets("收支详情表").Range("D:D"), [R2])
   
6. If mycount > 0 Then
   
7.   MsgBox "已有该号码，请不要重复输入"
   
8.   Exit Sub
   
9. End If
   
10. For x = 5 To myrow
    
11. With Sheets("收支详情表")
    
12. If myrow1 = 3 Then
    
13.    myrow1 = myrow1 + 2
    
14.    Else
    
15.    myrow1 = myrow1 + 1
    
16.    End If
    
17.    .Range("c" & myrow1) = Cells(x, 2)
    
18.    .Range("f" & myrow1) = Cells(3, 4)
    
19.    .Range("g" & myrow1) = Cells(3, 7)
    
20.    .Range("h" & myrow1) = Cells(x, 3)
    
21.    .Range("j" & myrow1) = Cells(x, 10)
    
22.    .Range("k" & myrow1) = Cells(x, 11)
    
23.    .Range("l" & myrow1) = Cells(x, 13)
    
24.    .Range("m" & myrow1) = Cells(x, 15)
    
25. .Range("x" & myrow1) = Cells(3, 12)
    
26.    .Range("y" & myrow1) = Cells(3, 14)
    
27.    .Range("ab" & myrow1) = Cells(2, 3)
    
28.    .Range("ac" & myrow1) = Cells(1, 3)
    
29.    .Range("ad" & myrow1) = Cells(11, 12)
    
30. .Range("aj" & myrow1) = Cells(x, 18)
    
31. .Range("e" & myrow1) = Cells(3, 18)
    
32.    .Range("d" & myrow1) = Cells(2, "r")
    
33. End With
    
34. Next x
    
35. MsgBox "输入成功"
    
36. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. myrow1 = Sheets("收支详情表").Range("c65536").End(xlUp).Row

复制代码

cocotin

望帝春心 发表于 2016-8-15 21:20

请问老师，怎么修改呢？

望帝春心

cocotin 发表于 2016-8-15 21:38
请问老师，怎么修改呢？

1. Sub 圆角矩形1_Click()
   
2. Dim myrow, myrow1, x, mycount
   
3. myrow = Application.CountA(Range("c5:c9")) + 4
   
4. myrow1 = Sheets("收支详情表").Range("c65536").End(xlUp).Row
   
5. mycount = Application.CountIf(Sheets("收支详情表").Range("D:D"), [R2])
   
6. If mycount > 0 Then
   
7.   MsgBox "已有该号码，请不要重复输入"
   
8.   Exit Sub
   
9. End If
   
10. For x = 5 To myrow
    
11. With Sheets("收支详情表")
    
12. If myrow1 = 3 Then
    
13.    myrow1 = myrow1 + 2
    
14.    Else
    
15.    myrow1 = myrow1 + 1
    
16.    End If
    
17.    .Range("c" & myrow1) = Cells(x, 2)
    
18.    .Range("f" & myrow1) = Cells(3, 4)
    
19.    .Range("g" & myrow1) = Cells(3, 7)
    
20.    .Range("h" & myrow1) = Cells(x, 3)
    
21.    .Range("j" & myrow1) = Cells(x, 10)
    
22.    .Range("k" & myrow1) = Cells(x, 11)
    
23.    .Range("l" & myrow1) = Cells(x, 13)
    
24.    .Range("m" & myrow1) = Cells(x, 15)
    
25. .Range("x" & myrow1) = Cells(3, 12)
    
26.    .Range("y" & myrow1) = Cells(3, 14)
    
27.    .Range("ab" & myrow1) = Cells(2, 3)
    
28.    .Range("ac" & myrow1) = Cells(1, 3)
    
29.    .Range("ad" & myrow1) = Cells(11, 12)
    
30. .Range("aj" & myrow1) = Cells(x, 18)
    
31. .Range("e" & myrow1) = Cells(3, 18)
    
32.    .Range("d" & myrow1) = Cells(2, "r")
    
33. End With
    
34. Next x
    
35. MsgBox "输入成功"
    
36. End Sub

复制代码

cocotin

望帝春心 发表于 2016-8-15 21:51

请问老师，加了这部分内容的意思是什么啊

If myrow1 = 3 Then
   myrow1 = myrow1 + 2
   Else

望帝春心

cocotin 发表于 2016-8-15 22:07
请问老师，加了这部分内容的意思是什么啊

If myrow1 = 3 Then

都是合并单元格惹得祸...

cocotin

望帝春心 发表于 2016-8-16 08:32
都是合并单元格惹得祸...

哦，，谢谢老师

望帝春心

cocotin 发表于 2016-8-16 20:30
哦，，谢谢老师

不用谢，评最佳就好了