学了就能用的上哎---晒晒我做的宏,多谢各位老师，给自己打打气

hxd123 · 发表于 2007-11-29 18:50

其实我的做法就是把想做的工作录制宏，然后分析，修改，不断的试错，跑通了就行。很菜，但是就我的水平就很管用了。Sub 分析()      Sheets("收款机分析2").Copy 这一个是吧一张表复制出来。没什么，下了第一节课就做好了，原来要点击右键，选复制工作表---新工作表，现在就一下。    End Sub Sub 改代码()     Sheets("收款机单品调整表（增加）").Unprotect     Sheets("收款机单品调整表（扣减）").Unprotect     Sheets(Array("收款机单品调整表（扣减）", "收款机单品调整表（增加）", "收款机单品调整表", "收款机分析2")).Select     Sheets("收款机单品调整表").Activate     Columns("D:D").Select End Sub 这是要同时修改4张结构相同的工作表，原来要先分别解除两个表的保护，再按CRTL键选择4张表组成组，再修改。现在就按一下按钮。 Sub 改完恢复()      Range("A1").Select     Sheets("每日新菜").Activate     Sheets("收款机单品调整表（扣减）").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True     Sheets("收款机单品调整表（增加）").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True     Sheets("收款机单品调整表").Activate     Range("A1").Select    End Sub 这是修改完后，恢复保护，解除工作组。原来要按4下，现在就一下按钮。Sub 粘贴数据()       ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     ActiveCell.Range("A1:A1594").Replace What:="0", Replacement:="", LookAt:=xlWhole, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False    End Sub 这是要吧外部的数据拷贝到某一列里，再吧0值去掉，原来要用3步，按4下，现在就就按一下按钮。   Sub 固定单价复制酒水()    ActiveCell.Select     ActiveCell.Range("B1:B1645").Copy     ActiveCell.Range("B1:B1645").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     ActiveCell.Range("A1:A1645").Copy End Sub 这是要把上一个复制的数据右面的一列全部固定为数值，那一列默认指向一个固定列，全是引用，原来总是忘掉，结果金额总是不平。现在就按一下，全部搞定，而且自动复制数据，可以拷到别的表中去。   这个可以修改成每天到固定列取数，没来得及。     Sub 复制烧烤()     ActiveCell.Range("D1:E100").Copy     ActiveCell.Range("D1:E100").Select End Sub   这是取数准备复制到别的表，原来光选定就要半天。

[此贴子已经被作者于2007-11-29 18:53:45编辑过]

不看不看 · 发表于 2007-11-29 19:00

还可以再去掉代码中的一些Select

hxd123 · 发表于 2007-11-29 19:22

谢谢班长，用Select主要是怕自己不知道复制了没有，算给个反馈吧，因为还不知道别的办法，只能先这样用着。恐怕再学几节课，我的那个两个公式搞定的系统就可以重写了，9兆的文件可以简化到几百K呢。这几个简单的应用对我的这个小核算系统是极大的提升啊，原来我给新员工培训要从EXCEL基本操作开始讲起，选择性粘贴啊，快捷键啊，一堆，讲完了就把人给搞晕了。的确有人听完就不干了，嫌忒麻烦。而且还要在以后盯着看，要好几天才能记得住，形成工作流程。这样简单的EXCEL操作居然成了专业技术，门槛倒是提高不小。我做完这几个按钮其他人坚决不让安，知道原因吗？？-----“你这是打算让我们下岗啊”。

hxd123 · 发表于 2007-11-29 19:35

差别太大了， Sub 计算003()     Dim T As String     Dim i As Integer     For i = 2 To 300        T = ActiveCell.Offset(i).Address(0, 0)        Range(T).Formula = "=SUMIF(收款机!C4:C1648,B3:B308,收款机!E4:E1648)"     Next i     ActiveCell.Resize(301).Select     Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     End Sub Sub 计算end()        ActiveCell.Range("A1:A300").Select        Selection.Formula = "=SUMIF(收款机!C4:C1648,B3:B308,收款机!E4:E1648)"        Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False     End Sub这两个宏的目的一样啊，怎么第一个要算半天，好几秒呢，第二个基本没延迟。古怪啊，不懂

jingletxj · 发表于 2007-11-29 19:58

我通过上课,才试着做会了工资条，像楼主学习！[em04]

hhzjxss · 发表于 2007-11-29 19:59

楼主是哪个组的呀？

hxd123 · 发表于 2007-11-29 20:01

我三组啊

不看不看 · 发表于 2007-11-29 20:06

楼主传上附件看看For i = 2 To 300        T = ActiveCell.Offset(i).Address(0, 0)        Range(T).Formula = "=SUMIF(收款机!C4:C1648,B3:B308,收款机!E4:E1648)"     Next i 要是当中的两句中哪个能放到循环之外就会快的或者用数组方式

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

[资料] 学了就能用的上哎---晒晒我做的宏,多谢各位老师，给自己打打气