返回列表 上一主題 發帖

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

morris0914

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

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題