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

中學生 Rank: 2

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

4^#

發表於 2013-6-20 16:26 | 只看該作者

再請教一下板大，為何要加.Address(, , , 1)

Simon

TOP

morris0914

中學生 Rank: 2

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

GBKEE

超級版主 Rank: 8 Rank: 8

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

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 & ")"
'如Sheets(3)名稱為固定為[合併] 可用下式
'Range("B6").Formula = "=FREQUENCY(合併!R14C16:R369C16, R6C1:R18C1)"
Range("B6:B18").FormulaArray = Range("B6").Formula

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP