12
返回列表 上一主題 發帖

[發問] AUTOFILL-範圍太大

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-30 16:06 | 只看該作者

[發問] AUTOFILL-範圍太大

請問autofill會有範圍限制嗎
用下面的方式去跑會報錯說範圍太大
如果改成比較小的範圍就可以
還是我代碼有問題嗎?
  1. Sub 配壓加_損耗片數()
  2.     T = Timer
  3.     Application.ScreenUpdating = False
  4.     r = Range("A65536").End(xlUp).Row - 4
  5.     Range("AF4").Resize(, 8) = Array("單張片數", "片數1", "單張片數", "片數2", "最大差異", "多耗張數", "比例", "生產月份")
  6.     With Range("AF5").Resize(, 8)
  7.         .NumberFormatLocal = "0.00_);[紅色](0.00)"
  8.         .FormulaR1C1 = Array( _
  9.             "=ROUNDDOWN(RC30/RC28,0)*ROUNDDOWN(RC31/RC29,0)", _
  10.             "=ROUNDDOWN(RC30/RC28,0)*ROUNDDOWN(RC31/RC29,0)*RC20", _
  11.             "=ROUNDDOWN(RC31/RC28,0)*ROUNDDOWN(RC30/RC29,0)", _
  12.             "=ROUNDDOWN(RC31/RC28,0)*ROUNDDOWN(RC30/RC29,0)*RC20", _
  13.             "=MAX(RC[-1],RC[-3])-RC[-24]", _
  14.             "=ROUND(RC[-1]/MIN(RC[-3],RC[-5]),2)", _
  15.             "=RC[-1]/RC20", _
  16.             "=IF(LEN(RC[-34])>9,YEAR(RC[-34])&TEXT(MONTH(RC[-34]),""00""),LEFT(RC[-34],3)+1911&RIGHT(LEFT(RC[-34],6),2))")
  17.         .AutoFill .Resize(5000, 8)
  18.     End With
  19.     With Columns("AM:AM")
  20.         .Copy
  21.         .PasteSpecial xlPasteValues
  22.     End With
  23.     Application.CutCopyMode = False
  24.    ' For C = 2 To Range("A65536").End(xlUp).Row
  25.       MsgBox Timer - T
  26. End Sub
複製代碼
範圍太大.rar (722.53 KB)
收藏 分享
字典兩各字 還真難理解

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-1-30 16:57 | 只看該作者
本帖最後由 mark15jill 於 2013-1-30 16:59 編輯

回復 1# freeffly


    大大您的檔案會不會太大了點...4.57MB..
建議 將資料分流到其他活頁簿
避免一開檔案 就跑的跟烏龜一樣~(2GB 記憶體開您的檔案竟然會盪掉)...
另外
建議 檔案開起的設定不要用時間控制

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2013-1-30 17:10 | 只看該作者
回復 2# mark15jill


    會當掉喔?
    這是系統轉出一個月資料
   速度算還好
   有時要處理30幾M的資料
   用vba跑比人工快多了
字典兩各字 還真難理解

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-1-30 17:32 | 只看該作者
回復 3# freeffly
Excel2010測試
跑完沒出現你說的錯誤~

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2013-1-31 09:41 | 只看該作者
回復 4# stillfish00


    我在想可能是我其他程序用掉記憶體
   造成執行這各程序時會出問題
   因為我另一個程序也有相同範圍
   他執行時沒問題
   輪到這各執行就有問題
   

   謝謝大家測試
字典兩各字 還真難理解

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
6#
發表於 2013-1-31 14:57 | 只看該作者
本帖最後由 mark15jill 於 2013-1-31 15:03 編輯

另外
freeffly 大大
煩請檢查您的EXCEL 是否有 Startup 的巨集存在
我的被感染了

若確定為大大您的附檔有 該巨集病毒，小弟將會呈報予版主
1

評分人數


  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
7#
發表於 2013-1-31 18:28 | 只看該作者
回復 6# mark15jill

阿吉沒看到Startup
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
8#
發表於 2013-2-1 08:21 | 只看該作者
回復 7# HUNGCHILIN

兩位大大
之所以小弟提出此疑慮是因為 最近小弟都在琢磨VB2010 很少用到EXCEL
且上星期才電腦重灌 整個硬碟清洗過
在開起樓主大大的附檔前 確認過沒 Startup 之相關跡象
這也附合小弟在上幾層的文章內所說
一開始就有時間設定
導致2GB 記憶體的電腦也盪!~

如果確定沒有  那小弟在此跟樓主大大說聲

對不起 我誤會您了

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
9#
發表於 2013-2-1 10:05 | 只看該作者
回復 8# mark15jill


    小弟不寫病毒的
   也沒那各功力
回復 7# HUNGCHILIN
版主請問如果中那各病毒是會每各Excel都會有那各巨集嗎?
會擴散嗎
之前都不會去想網路上發問的問題會有病毒
不過有其他人提出就問一下
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
10#
發表於 2013-2-1 10:10 | 只看該作者
回復 7# HUNGCHILIN
看到版主的另外一個帖提到
真是恐怖
再來好好研究版主這一帖


    執行效果:
1.使用此檔 此檔會自動另存 "StartUp.xls"檔案到Application.StartupPath 路徑資料夾
2.新增檔案與開啟舊檔都會自動移植入此感染模組，若不注意你所有使用過的EXCEL檔案都會受感染
字典兩各字 還真難理解

TOP

        靜思自在 : 人要知福、惜福、再造福。
12
返回列表 上一主題