小编Ste*_*udt的帖子

如何运行sub存储在另一个工作表的模块中？

worksheet1

sub endDay()
    'something here
end sub

worksheet2

sub reCalc()
    'something here
end sub

我想recalc能够自己运行,但我希望能够按下"endDay"按钮,让它做它的事情,然后在结束时预先形成"recalc"而不是按一个然后转到sheet2到按另一个.

有人可以给我一个样品,这样我就可以知道从哪里开始？

我正在尝试将列从一个工作表复制到另一个工作表.我正在使用的代码是一个录制的宏,它可以正常工作,直到我将它连接到一个按钮.当我这样做时,它会给出"运行时错误'1004':选择范围类的方法失败"

这是代码,我可以看到它没有错.当我点击调试时,突出显示第二行.

Sheets("Count").Select
Columns("C:C").Select
Selection.Copy
Sheets("Add Invintory").Select
Range("b1").Select
ActiveSheet.Paste
Sheets("Count").Select
Sheets("Count").Columns("A:A").Select
Columns("A:A").Select
Selection.Copy
Sheets("Add Invintory").Select
Range("A1").Select
ActiveSheet.Paste

我不知道问题是什么.请帮忙