|
 | 作者: qiy [qiy]
 论坛用户 |
登录 |
| 为什么运行时凡到有Range的地方都说参数或属性错误啊？ 而我看其它的宏里面也是这样的啊？ 大家帮帮我哈 先谢了 Sub Range() ' ' Range Macro ' qiy ¼Ç¼µÄºê 2006-3-1 ' ' ¿ì½Ý¼ü: Ctrl+Shift+R ' ActiveWindow.SmallScroll Down:=81 Rows("4:103").Select Range("A103").Activate Application.CutCopyMode = False Selection.Sort Key1:=Range("E4"), Order1:=xlDescending, Key2:=Range("B4") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin ActiveWindow.SmallScroll Down:=-93 Range("A4").Select End Sub Sub Tihuan() ' ' Tihuan Macro ' qiy ¼Ç¼µÄºê 2006-3-1 ' ' ¿ì½Ý¼ü: Ctrl+Shift+T ' Columns("B:B").Select Range("B3").Activate Selection.Replace What:="805", Replacement:="'0805", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Columns("C:D").Select Range("C3").Activate Selection.Replace What:="mil", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Range("A4").Select End Sub Sub Huansuan() ' ' Huansuan Macro ' qiy ¼Ç¼µÄºê 2006-3-1 ' ' ¿ì½Ý¼ü: Ctrl+Shift+H ' Range("J4").Select ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-7]/1000)" Range("K4").Select ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",-RC[-7]/1000)" Range("J4").Select Selection.AutoFill Destination:=Range("J4:J103"), Type:=xlFillDefault Range("J4:J103").Select ActiveWindow.SmallScroll Down:=-78 Range("K4").Select Selection.AutoFill Destination:=Range("K4:K103"), Type:=xlFillDefault Range("K4:K103").Select ActiveWindow.SmallScroll Down:=-72 Range("H4").Select ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""","""",IF(RC[-6]=""0805"",1,2))" Range("H4").Select Selection.AutoFill Destination:=Range("H4:H103"), Type:=xlFillDefault Range("H4:H103").Select ActiveWindow.SmallScroll Down:=-81 Range("A4").Select End Sub |
| 地主 发表时间: 06-03-01 23:48 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 大家帮忙看看这个Excel中的宏