返回列表 上一主題 發帖

[發問] 請問不連續的儲存格做公式填滿的動作，代碼能簡化嗎

freeffly

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

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-6-19 15:49 | 只看該作者

[發問] 請問不連續的儲存格做公式填滿的動作，代碼能簡化嗎

本帖最後由 freeffly 於 2013-6-19 15:51 編輯

1.公式不同如下如果填滿動作一樣有辦法簡化嗎
2.公式相同不連續填滿的動作一樣能簡化嗎(v7 v14 v16 v18 公式相同)
曾經天真的想用union+array的方式處理
發現不行，不知道有沒有人有好方法簡略下面的代碼
  1. Sub 銷貨公式()
  2.     Application.ScreenUpdating = False
  3.     nC = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column
  4.     nR = Sheets("銷貨").Range("A65536").End(xlUp).Row
  5.     nC1 = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column - 2
  6.     x = [iv1].End(xlToLeft).Column - 21
  7.    

  9.    
  10.     With Sheets("全部")
  11.         With .Range("V2")
  12.         .FormulaR1C1 = _
  13.         "=GETPIVOTDATA(""本幣銷貨金額"",銷貨!R3C1,""月份"",R1C)"
  14.         .AutoFill .Resize(1, x)
  15.         End With
  16.         With .Range("V9")
  17.         .FormulaR1C1 = _
  18.         "=SUMPRODUCT((銷貨!R5C" & nC & ":R" & nR & "C" & nC & "=""營業課"")*(銷貨!R4C3:R4C" & nC1 & "=R1C),銷貨!R5C3:R" & nR & "C" & nC1 & ")"
  19.         .AutoFill .Resize(1, x)
  20.         End With
  21.         
  22.         With .Range("V4")
  23.         .FormulaR1C1 = "=GETPIVOTDATA(""合計未收帳款"",帳齡!R1C1,""月份"",R1C)"
  24.         .AutoFill .Resize(1, x)
  25.         End With
  26.         With .Range("V7")
  27.         .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
  28.         .AutoFill .Resize(1, x)
  29.         End With
  30.         
  31.         With .Range("V14")
  32.             .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
  33.             .AutoFill .Resize(1, x)
  34.         End With
  35.         
  36.         With .Range("V16")
  37.             .FormulaR1C1 = "=R[-14]C-R[-7]C"
  38.             .AutoFill .Resize(1, x)
  39.         End With
  40.         With .Range("V18")
  41.             .FormulaR1C1 = "=R[-14]C-R[-7]C"
  42.             .AutoFill .Resize(1, x)
  43.         End With
  44.         With .Range("V21")
  45.             .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
  46.             .AutoFill .Resize(1, x)
  47.         End With
  48. end with
  49. End Sub
複製代碼
收藏 分享
字典兩各字 還真難理解

freeffly

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

熱烈參與勳章好學求知勳章
5#
發表於 2013-6-19 17:46 | 只看該作者
回復 3# stillfish00


    剛仔細看一下
   應該不會花很久時間
   測試結果可以
   這種解決方式不錯
   學到一種
   相當感謝
字典兩各字 還真難理解

TOP

freeffly

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

熱烈參與勳章好學求知勳章
4#
發表於 2013-6-19 17:40 | 只看該作者
回復 3# stillfish00


    先收下看看，謝謝了
   明天測試完再回覆結果
   不過用for each好像很慢
   因為我剛剛有用for each 及 for next的方式去跑別的比較起來
   for each好像曼暸些
字典兩各字 還真難理解

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-6-19 17:23 | 只看該作者
回復 1# freeffly
  1. Sub 銷貨公式()
  2.     Application.ScreenUpdating = False
  3.     nC = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column
  4.     nR = Sheets("銷貨").Range("A65536").End(xlUp).Row
  5.     nC1 = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column - 2
  6.     x = [iv1].End(xlToLeft).Column - 21
  7.    
  8.     With Sheets("全部")
  9.         .Range("V2").Resize(1, x).FormulaR1C1 = "=GETPIVOTDATA(""本幣銷貨金額"",銷貨!R3C1,""月份"",R1C)"
  10.         .Range("V9").Resize(1, x).FormulaR1C1 = "=SUMPRODUCT((銷貨!R5C" & nC & ":R" & nR & "C" & nC & "=""營業課"")*(銷貨!R4C3:R4C" & nC1 & "=R1C),銷貨!R5C3:R" & nR & "C" & nC1 & ")"
  11.         .Range("V4").Resize(1, x).FormulaR1C1 = "=GETPIVOTDATA(""合計未收帳款"",帳齡!R1C1,""月份"",R1C)"
  12.         
  13.         For Each area In .Range("V7,V14,V21").Areas
  14.             area.Resize(, x).FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
  15.         Next
  16.         For Each area In .Range("V16,V18").Areas
  17.             area.Resize(, x).FormulaR1C1 = "=R[-14]C-R[-7]C"
  18.         Next
  19.     End With
  20. End Sub
複製代碼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-6-19 17:05 | 只看該作者
2.公式相同不連續填滿的動作一樣能簡化嗎(v7 v14 v16 v18 公式相同) ...
freeffly 發表於 2013-6-19 15:49


v7 v14 v16 v18 公式不同阿?
你的代碼跑完結果是正確的嗎?

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題