帖子: 248
主題: 55
精華: 0
積分: 314
點名: 125
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-6-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-13 14:09 | 只看該作者

[發問] 函數使用VBA寫法

請問各位大大

最近需要計算項目個數

因為2003沒有移除重複，使用移除重複可能會有相容性的問題

GOOGLE查詢到計算項目個數的方法如下(不過我看不懂這邏輯為何@@)

=SUMPRODUCT(1/COUNTIF(A1:A10,A1:A10))

複製代碼

EX:
      A
   456
   123
   123
   789
   123
   789
   456
   000
   123
   000
使用以上方法可得到4

但因為我想使用在VBA語法中

修正如下

Application.SUMPRODUCT(1/Application.COUNTIF(range("A1:A10"),range("A1:A10")))

複製代碼

但是會出現型態不符

不知該如何修正，才能使用在VBA中

P.S. 我不想用FormulaR1C1錄製巨集出來的方式

煩請各位解惑

謝謝！！！

樓主熱帖

用功到世界末日那一天～～～

diolin

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

2^#

發表於 2015-1-21 08:46 | 只看該作者

用 Evaluate

Application.Evaluate("SUMPRODUCT(1/COUNTIF(A1:A10,A1:A10))")

TOP

電暖爐

中學生 Rank: 2

帖子: 45
主題: 10
精華: 0
積分: 62
點名: 0
作業系統: win8
軟體版本: office2007
閱讀權限: 20
註冊時間: 2015-1-18
最後登錄: 2015-10-9

3^#

發表於 2015-1-22 00:23 | 只看該作者

worksheetfunction.SUMPRODUCT

TOP

diolin

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

4^#

發表於 2015-1-22 09:44 | 只看該作者

回復 3# 電暖爐

樓主用的是陣列公式, 所以用 worksheetfunction 不適用

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 125
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-6-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2015-1-22 13:19 | 只看該作者

回復 4# diolin

感謝diolin及電暖爐的協助

第一次知道Evaluate及Worksheetfunction的作法

能否勞煩大大簡要說明一下這兩者的用途呢???

謝謝！！！

用功到世界末日那一天～～～

TOP

diolin

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

6^#

發表於 2015-1-22 18:07 | 只看該作者

回復 5# li_hsien

worksheetfunction 顧名思義, 就是工作表的函數, 也就是平常在寫的公式, 大部份都可以用
你用 application.函數其實也可以, 但用worksheetfunction 會更直覺

Evaluate 就是把運算後面的東西, 你可以想成就像寫在 cell 裡一樣

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 125
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-6-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-1-23 10:13 | 只看該作者

回復 6# diolin

又多學到了一點東西了！！！

我再試試

感謝diolin指教

用功到世界末日那一天～～～

TOP