以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  VBA代码如何转狐表？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194030)
--  作者：lgz518
--  发布时间：2024/11/4 10:38:00
--  VBA代码如何转狐表？
\'\'Sub A_Click()
\'\'Sub combine()
\'Application.ScreenUpdating = False
\'For j = 1 To Sheets.Count
\'If Sheets(j).Name <> ActiveSheet.Name Then
\'x = Range("A").End(xlUp).Row + 1
\'Sheets(j).UsedRange.Copy Cells(x, 1)
\'End If
\'Next
\'Range("3").Select
\'Application.ScreenUpdating = True

\'End Sub
\'\'End Sub
--  作者：有点蓝
--  发布时间：2024/11/4 10:45:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97286&replyID=670470&skin=1
--  作者：lgz518
--  发布时间：2024/11/4 11:22:00
--  
不太理解
VBA代码转狐表，有没有一些较常用格式
比如VBA代码格式是
\'\'Sub A_Click()
\'\'Sub combine()

是说VBA代码转狐表只改哪些部分？哪些部分是可以直接抄？
--  作者：有点蓝
--  发布时间：2024/11/4 11:25:00
--  
execl内置的vba没用过，没空研究。Foxtable的vba参考：http://www.foxtable.com/webhelp/topics/2121.htm