　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-12-17 19:21 | 只看該作者

COUNTA 或某些函數在VBA上使用的疑問

Dear 大大們

   小弟在VBA撰寫有關函數部份的程式碼時,都會有一個問題
   就是在SHEET1讀取SHEET2的資料時,會讀不到,例如附件中的COUNTA這個函數

   能否請大大講解一下,問題是什麼??? 其函數在VBA上撰寫的基本觀念為何?? 好讓小弟可以學習~

在VBA內使用COUNTA函數測試.rar (8.23 KB)

樓主熱帖

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

16^#

發表於 2011-1-24 09:26 | 只看該作者

回復 13# asus103

這是大大貼的網址~ 怕有人找不到那段解釋的文字~ 特地貼出來~

1. 注意 Match 是工作表函數的成員而不是VBA內建函數，所以需指明上層物件。
WorksheetFunction 的標準寫法是 Application.WorksheetFunction。

2. 注意你的程式位於一般模組還是物件模組。
一般模組：
在一般模組 (就是 Module1、Module2.. 那些) 裡是可以省略 Application 的。
(省略 Application 就不能省略 WorksheetFunction，意思就是不能只寫函數名稱)
物件模組：
但在物件模組裡就不能省略 Application 了，
因為物件模組預設的物件是該物件本身，
例如 Worksheet 模組的預設物件是 Worksheet；
UserForm 模組的預設物件就是 UserForm。由此可知，
若在 UserForm1 模組寫 WorksheetFunction (省略了 Application)，
VBA 會視為 UserForm1.WorksheetFunction，結果就會出錯了。

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2011-1-23 22:41 | 只看該作者

回復 13# asus103

http://gb.twbts.com/index.php/topic,1174.msg5880.html#msg5880

學海無涯_不恥下問

TOP

lai.k.h

小學生 Rank: 1

帖子: 19
主題: 7
精華: 0
積分: 31
點名: 0
作業系統: windows7
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2011-1-13
最後登錄: 2019-12-27

論壇贊助勳章

14^#

發表於 2011-1-23 17:00 | 只看該作者

我也學到了,謝謝.

TOP

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

13^#

發表於 2011-1-6 17:10 | 只看該作者

回復 2# Hsieh
請問一下版主大大
為什麼是用Application.CountA(Sheet2.[A7:A65536])
而不是用WorksheetFunction.CountA(Sheet2.[A7:A65536])
我在說明中只有看到下者
他們(Application和WorksheetFunction)之間都可以通用嗎?
還是有其它的限制

ASUS

TOP

C.F

小學生 Rank: 1

帖子: 28
主題: 9
精華: 0
積分: 45
點名: 0
作業系統: Windows
軟體版本: XP
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2024-8-20

12^#

發表於 2011-1-6 16:21 | 只看該作者

若單純要利用 Excel 的函數也可以用 WorksheetFunction.CountA 的方式哦~~

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

11^#

發表於 2011-1-6 15:05 | 只看該作者

回復 10# hugh0620
Sub Ex()
Dim W%
W=10
Sheet1.Cells(4, 2) = Application.CountA(Sheet1.Range("A" & W & ":A65536"))
End Sub

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

10^#

發表於 2011-1-6 14:01 | 只看該作者

回復 9# GBKEE

謝謝大大~ 幫我解決 (我自己試了老半天都無法解決):L

學習才能提升自己

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

9^#

發表於 2011-1-6 13:40 | 只看該作者

回復 8# hugh0620
Sheet1.Cells(4, 2) = Application.CountA(Sheet1.[A22:A65536]) '不接受變數
Sheet1.Cells(4, 2) = Application.CountA(Sheet1.Range("A" & W & ":A65536")) '接受變數

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

8^#

發表於 2011-1-6 11:36 | 只看該作者

回復 3# GBKEE

Dear 大大

      小弟想要再請問一個問題
      若是我在用COUNTA去統計時,若我的區間是不一定的時候,就會有問題
         一般正常的寫法是
      Application.CountA(Sheet2.[E22: E65536]) [固固區間進行統計)
         若我已W是一個Row的數值(亦即是該儲存格是在第幾列)
      Application.CountA(Sheet2.[E&W: E65536]) [改變成可浮動區間進行統計]

         請大大教導我

COUNTA進階問題_20110106.rar (9.5 KB)

學習才能提升自己

TOP