Board logo

標題: FREQUENCY請教 [打印本頁]
作者: morris0914    時間: 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)"
作者: GBKEE    時間: 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
複製代碼
作者: morris0914    時間: 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])"

原因是除了工作表"合併"是固定，其它欄位會變化
作者: morris0914    時間: 2013-6-20 16:26

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)