12
返回列表 上一主題 發帖

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

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-23 
5# 跳轉到 »
發表於 2013-9-6 10:07 | 只看該作者
回復  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
所以答案是不行

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-9-6 09:25 | 只看該作者
本帖最後由 GBKEE 於 2013-9-6 12:42 編輯

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-23 
3#
發表於 2013-9-6 08:35 | 只看該作者
本帖最後由 t8899 於 2013-9-6 08:42 編輯
回復  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 (是否非同一個物件?)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-9-6 07:15 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 是非當教育，讚美作警惕。
12
返回列表 上一主題