[發問] 如何在現有的程式碼加入countif

本帖最後由 j88141 於 2014-3-17 17:28 編輯

請問如果想要在下列的程式碼加入
Range("B8")=COUNTIF(G6,"*")+COUNTIF(G8,"*")+COUNTIF(G10,"*")+COUNTIF(G12,"*")
Range("B10")=COUNTIF(E6,"*")+COUNTIF(E8,"*")+COUNTIF(E10,"*")+COUNTIF(E12,"*")
的話該怎麼改寫
自己試過一些
可是好像只要在儲存格內加入函數的話
原本的程式碼就不會執行

檔案1.rar (13.65 KB)

Private Sub Worksheet_Change(ByVal myRange As Range)
If Intersect(myRange, [B1:B10]) Is Nothing Then Exit Sub '變動儲存格不在B1:B10則退出程序
Range("A1") = Application.Sum([B1:B10]) '儲存格A1 等於 SUM(B1:B10)
If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
'如果儲存格A1 大於等於儲存格E1 和小於儲存格G1的話
MsgBox Range("D1") & 和& & Range("F1"), vbOKOnly
'顯示.....
ElseIf Range("A1") < Range("E1") Then
'如果儲存格A1小於儲存格E1
Range("A1").Interior.ColorIndex = 3
'儲存格顯示紅色
ElseIf Range("A1") > Range("F1") Then
'如果儲存格A1大於儲存格F1
MsgBox Range("E1") & "和&" & Range("G1"), vbCritical
'顯示.....
End If
End Sub

複製代碼

樓主熱帖

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

2^#

發表於 2014-3-18 00:13 | 顯示全部帖子

回復 2# Hsieh

Range("B8") =計算儲存格G6、G8、G10、G12 中含有文字的儲存格數目

因為不知道還有哪些函數可以使用
所以只好把儲存格一個一個這樣加總起來

TOP

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

3^#

發表於 2014-3-18 20:54 | 顯示全部帖子

回復 4# Hsieh

可以了
我又學到一課了
謝謝

TOP

j88141

中學生 Rank: 2

帖子: 46
主題: 10
精華: 0
積分: 88
點名: 0
作業系統: WIN10
軟體版本: excel2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2014-1-27
最後登錄: 2018-3-30

4^#

發表於 2014-3-19 19:44 | 顯示全部帖子

本帖最後由 j88141 於 2014-3-19 19:48 編輯

回復 4# Hsieh
hsieh大
不好意思又來發問

我現在想把B8公式改成 (跨工作表計算)
=COUNTA(工作表2!A1,工作表2!A3,工作表2!A5,工作表2!A7)
所以我就把原本的
If Intersect(myRange, [G6,G8,G10,G12]) Is Nothing Then Exit Sub
改成
If Intersect(myRange, [工作表2!A1,工作表2!A3,工作表2!A5,工作表2!A7]) Is Nothing Then Exit Sub

但好像不能這樣子做
是不是要改哪邊的代碼

TOP

j88141