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

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

3^#

發表於 2010-12-17 20:05 | 只看該作者

回復 1# hugh0620
你的程式碼是在 Sheet1物件
Sheet1.Cells(1, 1) = Sheet2.Application.CountA([A7:A65536])
[A7:A65536] 是傳回 Sheet1的工作表的位置 ->如要指定本身工作表以外的工作表需指明

如你的程式碼是在一般模組(Module )
Sheet1.Cells(1, 1) = Sheet2.Application.CountA([A7:A65536])
[A7:A65536] 是傳回作用中工作表的位置(ActiveSheet) ->如要指定作用中工作表(ActiveSheet)以外的工作表需指明

brabus

中學生 Rank: 2

帖子: 171
主題: 33
精華: 0
積分: 433
點名: 310
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-6-8
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

4^#

發表於 2010-12-19 20:53 | 只看該作者

哦
這樣我也多學了一招哦
謝謝分享囉

jeason

　暱稱: VBA向前衝

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

5^#

發表於 2010-12-19 23:11 | 只看該作者

回復 3# GBKEE

謝謝大大的詳細說明~ 讓我能夠了解~ 感恩~

　暱稱: VBA向前衝

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

6^#

發表於 2010-12-19 23:13 | 只看該作者

回復 2# Hsieh

謝謝大大~ 原來我的sheet2是放錯了位置

7long

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: WINDOWS 7
軟體版本: OFFICE 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-27
最後登錄: 2010-12-25

7^#

發表於 2010-12-25 11:10 | 只看該作者

EXCEL SHEET 跟ActiveSheet 很不容易理解
需要驗證。到現在還是無法很容易理解@@

真是傷腦筋

　暱稱: VBA向前衝

帖子: 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)

學習才能提升自己

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")) '接受變數

　暱稱: VBA向前衝

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

10^#

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

回復 9# GBKEE

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

學習才能提升自己