[發問] 請問此段巨集如何簡化或加快速度??

t8899

Sub zzzzz()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False

With Sheets("Sheet6")

     Range("D16").Select
    Selection.Copy
    Range("b65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

           Range("C16").Select
    Selection.Copy
    Range("O65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
    Range("C18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

             Range("B16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q65536").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
end with
end sub
---------------------------------------------------------------------------------------------
另外 此兩個可否放在with 裡面
1.執行另一個巨集
2.Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value (是否非同一個物件?)

GBKEE

回復 1# t8899
此兩個可否放在with 裡面,試試看吧!

1. Option Explicit
   
2. Sub zzzzz()
   
3. Application.ScreenUpdating = False
   
4. Application.EnableEvents = False
   
5. Application.DisplayStatusBar = False
   
6. ActiveSheet.DisplayPageBreaks = False
   
7. With Sheets("Sheet1")
   
8.      .Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value
   
9.      .Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value
   
10.      .Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value
    
11.      .Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value
    
12. End With
    
13. End Sub

複製代碼

t8899

回復  t8899
此兩個可否放在with 裡面,試試看吧!
GBKEE 發表於 2013-9-6 07:15

選擇性貼上有10個參數
您的寫法只有貼上"值" 的部份
一般用的是
1值
2值與數字格式
3格式
4全部
這4個個別"語法"是?(套在你寫的裡面)
Option Explicit 檢查,如果未指定 On 或 Off，則預設值為 On ,應該不用掛?
另外 下面兩個可否放在with 裡面
1.執行另一個巨集
2.Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value (是否非同一個物件?)

GBKEE

回復 3# t8899
另外 下面兩個可否放在with 裡面   試試就知道(你試過嗎?)
是否非同一個物件? 請再說明白

1. Option Explicit 陳述式
   
2. 在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
   
3. 語法
   
4. Option Explicit
   
5. 請注意
   
6. Option Explicit 陳述式必出現在模組裏，且在任何程序之前。
   
7. 當 Option Explicit 在模組中使用時，必須以 Dim， Private、Public、ReDim 或 Static 陳述式來明確宣告所有的變數。如果使用未宣告的變數名稱，則在編譯階段時，會發生錯誤。
   
8. 如果未使用 Option Explicit 陳述式，則所有未宣告的變數都是 Variant 型態，除非預設的型態另以 Deftype 陳述式所指定過。
   
9. 附註 Option Explicit 可避免打錯變數名稱或在有效範圍內相同的變數名稱。

複製代碼

1. Option Explicit
   
2. Sub Ex()
   
3.     [F8:F14].Clear
   
4.     With Range("D4")
   
5.         .Cells = "=888"
   
6.         .NoteText "註解文字"                                     '註解
   
7.         .Interior.ColorIndex = 8
   
8.         .Copy Range("F8")                                        '全部
   
9.         Range("F9").Value = .Value                               '值
   
10.         Range("F10").Formula = .Formula                          '公式
    
11.         Range("F11").NumberFormatLocal = .NumberFormatLocal      '數字格式
    
12.         Range("F12").Interior.ColorIndex = .Interior.ColorIndex  '圖樣 色彩
    
13.         Range("F13") = .Value
    
14.         Range("F13").Font.Size = .Font.Size + 2                  '字型大小
    
15.         Range("F14").NoteText .NoteText                          '註解
    
16.     End With
    
17. End Sub

複製代碼

t8899

回復  t8899
另外 下面兩個可否放在with 裡面   試試就知道(你試過嗎?)
GBKEE 發表於 2013-9-6 09:25

我試過下面這一段放在With Sheets("Sheet1")裡,是不會出現錯誤，但會造成程式跑的不對(會跑到非指定的工作表做動作)
run clear ======>應該是這個出問題
For i = 350 To 21 Step -1
  If IsError(Cells(i, "h")) Then Run "clear": Exit For
next
所以答案是不行

GBKEE

回復 5# t8899

1. For i = 350 To 21 Step -1
   
2.   If IsError(Cells(i, "h")) Then Run "clear": Exit For
   
3. next

複製代碼

IsError(Cells(i, "h"))  是 With Sheets("Sheet1") 裡的Cells(i, "h") 嗎?,
不是要指明工作表  IsError(Sheets("工作表名稱").Cells(i, "h"))

Run "clear"  這是 VBA的關鍵字 Clear 方法,最好換個字串
另外 Run 的程序在物件模組(不在一般模組裡)      要指明模組 Run "Sheet1.程序"

t8899

回復  t8899 IsError(Cells(i, "h"))  是 With Sheets("Sheet1") 裡的Cells(i, "h") 嗎?,
不是要指明工作表 ...
GBKEE 發表於 2013-9-6 10:23

IsError(Cells(i, "h"))  是 With Sheets("Sheet1") 裡的Cells(i, "h") 嗎?  

是的!

Run "clear"  這是 VBA的關鍵字 Clear 方法,最好換個字串  

謝謝!已改為 ACLEAR

有無必要用WITH ? 我用的結果感覺不出有比較快

GBKEE

回復 7# t8899
是With Sheets("Sheet1") 裡的Cells(i, "h") 就可用With. (快不快??? 不知你的想法)

t8899

回復  t8899
是With Sheets("Sheet1") 裡的Cells(i, "h") 就可用With. (快不快??? 不知你的想法)
GBKEE 發表於 2013-9-6 10:55

  Range("F10").Formula = .Formula           '公式
  Range("F11").FormulaLocal = .FormulaLocal  '數字格式
試的結果,這兩個都是公式????
這下面兩個的語法?
1.copy 值與數字格式
2.copy 格式

Sub Macro1()
With Range("D2")
Range("B65536").End(xlUp).Offset(1) = ????
End With
End Sub

GBKEE

回復 9# t8899
就這樣多練習,會進步的
更正(燒餅吃多了)

1. Range("F11").NumberFormatLocal = .NumberFormatLocal      '數字格式

複製代碼