freeffly

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-1-30 16:06 | 只看該作者

[發問] AUTOFILL-範圍太大

請問autofill會有範圍限制嗎
用下面的方式去跑會報錯說範圍太大
如果改成比較小的範圍就可以
還是我代碼有問題嗎?

Sub 配壓加_損耗片數()
T = Timer
Application.ScreenUpdating = False
r = Range("A65536").End(xlUp).Row - 4
Range("AF4").Resize(, 8) = Array("單張片數", "片數1", "單張片數", "片數2", "最大差異", "多耗張數", "比例", "生產月份")
With Range("AF5").Resize(, 8)
.NumberFormatLocal = "0.00_);[紅色](0.00)"
.FormulaR1C1 = Array( _
"=ROUNDDOWN(RC30/RC28,0)*ROUNDDOWN(RC31/RC29,0)", _
"=ROUNDDOWN(RC30/RC28,0)*ROUNDDOWN(RC31/RC29,0)*RC20", _
"=ROUNDDOWN(RC31/RC28,0)*ROUNDDOWN(RC30/RC29,0)", _
"=ROUNDDOWN(RC31/RC28,0)*ROUNDDOWN(RC30/RC29,0)*RC20", _
"=MAX(RC[-1],RC[-3])-RC[-24]", _
"=ROUND(RC[-1]/MIN(RC[-3],RC[-5]),2)", _
"=RC[-1]/RC20", _
"=IF(LEN(RC[-34])>9,YEAR(RC[-34])&TEXT(MONTH(RC[-34]),""00""),LEFT(RC[-34],3)+1911&RIGHT(LEFT(RC[-34],6),2))")
.AutoFill .Resize(5000, 8)
End With
With Columns("AM:AM")
.Copy
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
' For C = 2 To Range("A65536").End(xlUp).Row
MsgBox Timer - T
End Sub

複製代碼

範圍太大.rar (722.53 KB)

樓主熱帖

字典兩各字還真難理解

mark15jill

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

高中生 Rank: 3 Rank: 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

高中生 Rank: 3 Rank: 3

帖子: 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

大學生 Rank: 4

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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: 3 Rank: 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 評分人數

HUNGCHILIN: 您玩了太多Startup了金錢 + 1

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

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

  少看=只看不做也枉然

TOP

HUNGCHILIN

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

版主 Rank: 7 Rank: 7 Rank: 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: 3 Rank: 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

高中生 Rank: 3 Rank: 3

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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