標題: 程式簡化 [打印本頁]

---

作者: man65boy    時間: 2012-5-20 23:21     標題: 程式簡化

請教各位先進們，如何在執行以下程式時(錄製的)，完成時不要有選取的動作殘留，感謝各位!


Sub MY()
Columns("A:F").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
End Sub

依A欄數字大小做排列

---

作者: register313    時間: 2012-5-21 00:16

回復 1# man65boy

不要select

Sub MY()
Columns("A:F").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
End Sub

Sub MY()
Columns("A:F").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
End Sub

---

作者: man65boy    時間: 2012-5-21 20:09

回復 2# register313

謝謝register313大大的修改指導，看來要多多讀一下http://forum.twbts.com/viewthread.php?tid=23&highlight=
感謝你!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)