返回列表 上一主題 發帖

FREQUENCY請教

morris0914

帖子
19 
主題
4 
精華
0 
積分
62 
點名
0  
作業系統
winxp 
軟體版本
winxp 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-7-27 
最後登錄
2015-5-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-19 17:20 | 只看該作者

FREQUENCY請教

請問一下，程式一我是用錄製巨集出來的，程式二是修改過的，但有bug，請問程式二如何修改?檔案如附件

程式一:
    Range("B760") = "=FREQUENCY(comparedata0!AD14:AD50006,A760:A774)"
    Range("B760:B774").Select
    Selection.FormulaArray = _
        "=FREQUENCY(comparedata0!R[-746]C[28]:R[49246]C[28],RC[-1]:R[14]C[-1])"

程式二:
   Range("B6").Formula = "=FREQUENCY(Sheets(3).Range(Cells(14, 16),Cells(369, 16)), Range(Cells(6, 1),Cells(18, 1)))"   
    Range("B6:B18").Select
    Selection.FormulaArray = _
    "=FREQUENCY(合併!P14:P369, A6:A18)"

曲線圖陣列20130619.zip (198.37 KB)

陣列

收藏 分享
Simon

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-6-20 15:51 | 只看該作者
回復 1# morris0914
Cells(14, 16)  ->R14C16
Cells(369, 16)->R369C16
  1.   Range("B6").Formula = "=FREQUENCY(" & Sheets(3).Range(Sheets(3).Cells(14, 16), Sheets(3).Cells(369, 16)).Address(, , , 1) & "," & Range(Cells(6, 1), Cells(18, 1)).Address & ")"
  2.    '如Sheets(3)名稱為 固定為[合併] 可用 下式
  3.     'Range("B6").Formula = "=FREQUENCY(合併!R14C16:R369C16, R6C1:R18C1)"

  5.     Range("B6:B18").FormulaArray = Range("B6").Formula
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

morris0914

帖子
19 
主題
4 
精華
0 
積分
62 
點名
0  
作業系統
winxp 
軟體版本
winxp 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-7-27 
最後登錄
2015-5-20 
3#
發表於 2013-6-20 16:12 | 只看該作者
感謝版大協助，我後來改成如下:

Cells(6, 2).FormulaR1C1 = "=FREQUENCY(合併!R[8]C[14]:R[369]C[14], R[0]C[-1]:R[12]C[-1])"
Range(Cells(6, 2), Cells(18, 2)).FormulaArray = "=FREQUENCY(合併!R[8]C[14]:R[369]C[14], RC[-1]:R[12]C[-1])"

原因是除了工作表"合併"是固定，其它欄位會變化
Simon

TOP

morris0914

帖子
19 
主題
4 
精華
0 
積分
62 
點名
0  
作業系統
winxp 
軟體版本
winxp 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-7-27 
最後登錄
2015-5-20 
4#
發表於 2013-6-20 16:26 | 只看該作者
再請教一下板大，為何要加.Address(, , , 1)
Simon

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題