抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

星月5313 · 发表于 2010-4-10 22:40

支持共享精神。我也是菜鸟啊

wudingyong · 发表于 2010-4-10 22:52

那天下了原版，没想到几天不到，都进化到第4代，再下，谢谢了，楼主辛苦了。

lbl016 · 发表于 2010-4-10 22:56

Sub 过渡()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual
Sheets("汇总").Rows("2:65536").Clear
For i = 2 To Sheets.Count
With Sheets(i)
         k = .[a65536].End(xlUp).Row
         Set rng = .Range("a6:l" & k)
         j = Sheets("过渡").[a65536].End(xlUp).Row + 1
         rng.Copy Sheets("过渡").Range("a" & j)
      End With
      Next
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub

Sub 汇总()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual
Sheets("汇总").Rows("2:65536").Clear
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D,e,f,g,i,j,l", ",")
Arr2 = Split("b,k,l,c,d,h,m,n,o,p", ",")
For N = LBound(Arr1) To UBound(Arr1)
With Worksheets("汇总")
      Worksheets("过渡").Columns(Arr1(N)).Copy .Columns(Arr2(N))
End With
Next N
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub
我现在是把各分表数据通过代码集中到“过渡”上，然后再通过“过渡”用代码按条件生成 "汇总"，我想请高手帮我合并两个代码为一个代码不用“过渡”直接把各分表数据按汇总条件生成 "汇总"。

[ 本帖最后由 lbl016 于 2010-4-11 08:03 编辑 ]

huangzhijie · 发表于 2010-4-10 23:35

多谢楼主能百忙之中为小菜鸟们赶制学习工具，有了这个工具相当于有了一个翻译，真是如虎添翼，哦！说错了，是小菜鸟有了飞翔的羽翼

风123456 · 发表于 2010-4-11 01:18

谢谢楼主的资料，这对我们的新学者很有帮助！
顺便请教楼主一个问题呀，我们如何运用VBA程序将表格中的复制、粘贴、剪切、选择性粘贴以及下拉复制给屏蔽掉呀？谢谢楼主帮帮忙呀！

chinaltl · 发表于 2010-4-11 03:32

已经下载了，还没看，先顶一下先，最近刚好想VBA编程，想问问一般多长时间可以编一些简单的程序。

lbl016 · 发表于 2010-4-11 08:03

原帖由 kevinchengcw 于 2010-4-10 22:08 发表
我发给你的邮件收到了吗,在我这里测试已经可以了

谢谢了！打印已经不用刷新了，但还有个问题，为什么点击打印手册按钮时每次要点两次才能打印呢？

kevinchengcw · 发表于 2010-4-11 09:11

原帖由 风123456 于 2010-4-11 01:18 发表
谢谢楼主的资料，这对我们的新学者很有帮助！
顺便请教楼主一个问题呀，我们如何运用VBA程序将表格中的复制、粘贴、剪切、选择性粘贴以及下拉复制给屏蔽掉呀？谢谢楼主帮帮忙呀！

附件已屏闭了复制粘贴，运行test宏可恢复，不过下拉填充暂时还未解决

kevinchengcw · 发表于 2010-4-11 09:21

原帖由 lbl016 于 2010-4-11 08:03 发表

谢谢了！打印已经不用刷新了，但还有个问题，为什么点击打印手册按钮时每次要点两次才能打印呢？

把打印按钮那里替换成这样就不需要按两次了

Private Sub CommandButton1_Click()
For i = 1 To f_ShCOunt
If Me.Controls("CheckBox" & i) Then Sh = Sh & " " & Me.Controls("CheckBox" & i).Caption
Next
aa = Split(Mid(Sh, 2), " ")
For n = LBound(aa) To UBound(aa)
If Trim(aa(n)) <> "" Then Sheets(aa(n)).PrintOut
Next n
End Sub

xlb10299 · 发表于 2010-4-11 09:49

支持分享，感谢楼主，道一声谢谢

		自动登录	找回密码
密码			免费注册

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

回复 1楼 kevinchengcw 的帖子

多谢楼主