[已解决]有关每月转帐的代码,求高手指点

txj

注:"目录"工作表的数值无须改动(已使用超链接将每一份工作表链接好,)任何工作表中的数值有任何改变,"目录"工作表都会随之改        变
我写了份代码(转帐),但不是我要的结果.如果用(转帐1),可以实现,但太麻烦,需要打开每份工作,才能完成.求高手指点!!!!!!!
代码如下:
Sub 转帐()
Dim x
For x = 2 To Sheets.Count
Sheets(x).Range("g4") = Range("e2")
Sheets(x).Range("a5:j10000") = ""
Next
End Sub


Sub 转帐1()
Range("g4") = Range("e2")
Range("a5:j10000") = ""

End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-8-26 08:02

1. 宏修改
   Sub 转帐()
    Dim x
    For x = 2 To Sheets.Count
        Sheets(x).Range("g4") = Sheets(x).Range("e2")
        Sheets(x).Range("a5:j10000") = ""
    Next
End Sub
2. 公式错误，修改如下
K5=IF(SUM(H5:J5)=0,"",K4+H5-I5+J5)  下拉

跳转到最佳答案楼层

十五的月亮

1. Sub 转帐1()
   
2.     For i = 2 To Sheets.Count
   
3.         If Sheets(i).Range("g4") = Sheets(i).Range("e2") Then
   
4.             Range("a5:j10000") = ""
   
5.         End If
   
6.     Next
   
7. End Sub
   

复制代码

是这个意思，先用草表试一下。

zjdh

1. 宏修改
   Sub 转帐()
    Dim x
    For x = 2 To Sheets.Count
        Sheets(x).Range("g4") = Sheets(x).Range("e2")
        Sheets(x).Range("a5:j10000") = ""
    Next
End Sub
2. 公式错误，修改如下
K5=IF(SUM(H5:J5)=0,"",K4+H5-I5+J5)  下拉

txj

谢谢两位高手的指点！！！！！！
高手就是高手，一下子就找到问题出在哪里.
我的VBA之路还很长很长............再次感谢指点！！！辛苦了！！！

gfp12345678

谢谢高手分享。。。。。。。。。。。。。。。。。。。。。。