[發問] VBA寫Countif的公式進入儲存格

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 286
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

8^#

發表於 2014-8-6 07:39 | 只看該作者

回復 7# GBKEE

太感恩了
又學了一招

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兔年全勤獎章

7^#

發表於 2014-8-5 08:55 | 只看該作者

回復 6# Scott090

For i = 2 To n
Range("A" & i).Formula= "=Countif(" & Rng.Address & ","">="" & B" & i & ")"
Next

複製代碼

不用跑迴圈快些

Range("A2:A" & n).Formula = "=Countif(" & Rng.Address(1, 1, xlR1C1) & ","">="" & RC[1])"

複製代碼

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

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 286
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2014-8-5 08:00 | 只看該作者

回復 3# Scott090

做參考
資料位置及資料長度是變數時的引申使用：
使用 Range.Address

dim DataPoints% , DataCol%
dim n%
dim Rng as Range

DataPoints = 12345
DataCol = 3  '資料欄位 C
n = 30
set Rng  = Range(Cells(2, DataCol), Cells(DataPoints + 1, DataCol))
For i = 2 To n
         Range("A" & i).Formula= "=Countif(" & Rng.Address & ","">="" & B" & i &  ")"
Next

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 286
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2014-8-3 18:57 | 只看該作者

本帖最後由 Scott090 於 2014-8-3 18:59 編輯

回復 Scott090

使用巨集錄製後已解決：
Countif 的原型： =countif(C2:C100, ">=" & B2)

VBA ...
Scott090 發表於 2014-8-3 18:40

Range("AA" & i). 更正：
Range("A" & i).Formula= "=Countif( C2:C" & datapoints +1 & ","">="" & B" & i & ")"

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 286
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2014-8-3 18:50 | 只看該作者

回復 2# dechiuan999

謝謝熱心協助
你的式子會計算 "值" 到儲存格

原提意是 "寫公式" 到儲存格

帖子: 521
主題: 55
精華: 0
積分: 598
點名: 286
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-12-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2014-8-3 18:40 | 只看該作者

回復 1# Scott090

使用巨集錄製後已解決：
Countif 的原型： =countif(C2:C100, ">=" & B2)

VBA 公式型態：
RANGE("A2").FORMULA = "=COUNTIF(C2:C100,"">="" & B2)"

引申加入變數使用；
dim DataPoints%
dim n%

DataPoints = 12345
n = 30
For i = 1 To n
Range("AA" & i ).Formula = "=COUNTIF($S$2:$S$" & DataPoints + 1 & ","">="" & B" & i & ")"
Next

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 2014-8-3 18:33 | 只看該作者

回復 1# Scott090

您好：

請試試如下
Range("a2").Formula = Application.WorksheetFunction.CountIf(Range("c2:c100"), ">=" & Range("b2"))