返回列表 上一主題 發帖

FREQUENCY問題

wes

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2013-9-9 
最後登錄
2013-9-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-10 00:00 | 只看該作者

FREQUENCY問題

因為工作關係，每天都要使用Excel畫圖，為了增加工作效率請教各位，問題如下

Range("a:b").Select
Selection.FormulaArray = _
"=FREQUENCY(x1:x2,y1:y2)"

請問若我要將FREQUENCY函式中x1:x2位址設為變數，該如何做?
我的目的是要畫直方圖，但FREQUENCY(data_array,bins_array)中的data_array是會變動的，
x1為固定,x2的數值會隨者資料多寡而變動。
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-9-10 20:39 | 只看該作者
本帖最後由 luhpro 於 2013-9-10 20:44 編輯
因為工作關係，每天都要使用Excel畫圖，為了增加工作效率請教各位，問題如下

Range("a:b").Select
Sele ...
wes 發表於 2013-9-10 00:00
  1. Range("a:b").Select
  2. Selection.FormulaArray = _
  3. "=FREQUENCY(INDIRECT(ADDRESS(1,24,4,1)):INDIRECT(ADDRESS(2,24,4,1))," & _
  4.            "INDIRECT(ADDRESS(1,25,4,1)):INDIRECT(ADDRESS(2,25,4,1)))"
  5. ' ADDRESS(列號, 欄號, 1=$X$1 2=X$1 3=$X1 4=X1, 0=R1C1 1=A1 表示方式) -> 取得位址表示文字
  6. ' INDIRECT -> 取得表示位址的文字所對應的儲存格參照
複製代碼

TOP

wes

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2013-9-9 
最後登錄
2013-9-16 
3#
發表於 2013-9-10 22:17 | 只看該作者
回復 2# luhpro


感謝您的回覆，!但又碰到了問題，再次請教您,
Selection.FormulaArray = _
    "=FREQUENCY(INDIRECT(ADDRESS(2,9,1,1)):INDIRECT(ADDRESS(X,9,1,1))," & _
           "INDIRECT(ADDRESS(15,18,1,1)):INDIRECT(ADDRESS(85,18,1,1)))"

因為每次資料的長度是會變動的，例如說我將X值放在Excel的"T4"位置，我如何將X值帶入呢?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-9-11 07:06 | 只看該作者
回復 1# wes
  1. Option Explicit
  2. Sub Ex()
  3.     Dim data_array As Range, Bins_array As Range
  4.     With Sheets("Sheet1")
  5.         Set data_array = .Range("X1", .Range("X1").End(xlDown))        'data_array是會變動的，x1為固定,x2的數值會隨者資料多寡而變動。
  6.        .Range("a:b").FormulaArray = "=FREQUENCY(" & data_array.Address & ",y1:y2)"
  7.         '*************************************************************************
  8.         'Set Bins_array = .Range("y1", .Range("y1").End(xlDown))       '如Bins_array是會變動的，y1為固定,y2的數值會隨者資料多寡而變動。
  9.         '.Range("a:b").FormulaArray = "=FREQUENCY(" & data_array.Address & "," & Bins_array.Address & ")"
  10.         '***************************************************************************
  11.     End With
  12. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
5#
發表於 2013-9-11 20:54 | 只看該作者
本帖最後由 luhpro 於 2013-9-11 21:00 編輯
回復  luhpro
感謝您的回覆，!但又碰到了問題，再次請教您,
Selection.FormulaArray = _
    "=FREQUENCY(INDIRECT(ADDRESS(2,9,1,1)):INDIRECT(ADDRESS(X,9,1,1))," & _
           "INDIRECT(ADDRESS(15,18,1,1)):INDIRECT(ADDRESS(85,18,1,1)))"
wes 發表於 2013-9-10 22:17

對於儲存格的 FormulaArray 函數來說,
Excel VBA 只要給它一個與 "儲存格公式" 完全相同的字串即可.

你把列號放在 T4 上, 即是要以 T4 儲存格的內容做為其列號,
故而此例設定儲存格公式應改為 :
  1. =FREQUENCY(INDIRECT(ADDRESS(2,9,1,1)):INDIRECT(ADDRESS(T4,9,1,1)),INDIRECT(ADDRESS(15,18,1,1)):INDIRECT(ADDRESS(85,18,1,1)))
複製代碼
亦即只要把 X 用 T4 來取代就可以了.

另在 Excel VBA 中,
兩個 " 之間即為一個字串,(自指令的開頭算起)
而兩個字串間則應用 & 來連結使成 字串A & 字串B 的形式,
若想在該字串中插入變數可以在欲插入的位置上加上  " & 變數名稱 & "
使其變成 "字串頭" & 變數名稱 & "字串尾" 的形式即可.

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題