返回列表 上一主題 發帖

[發問] 計算人員進案件數~~

馨。

帖子
53 
主題
24 
精華
0 
積分
87 
點名
0  
作業系統
windows10 
軟體版本
office2016 
閱讀權限
20 
性別
女 
註冊時間
2016-2-13 
最後登錄
2018-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-6-23 17:39 | 只看該作者

[發問] 計算人員進案件數~~

各位高手好
我想完成一個表格，表格中有1~17的數字及«進案件數»的字樣
想詢問若是我在數字1~17的下方打下文件(人員進案的案名)
是否有公式可以讓«進案件數»依我有打的文字來取出1~17的數字呢？(直接計算件數有幾件)
感謝~~~

檔案.rar (6.78 KB)

收藏 分享

idnoidno

帖子
52 
主題
12 
精華
0 
積分
63 
點名
0  
作業系統
window 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-8-15 
最後登錄
2023-3-24 
2#
發表於 2017-6-23 20:43 | 只看該作者
您的意思很難理解，可以給一個具體的文字然後得到的結果附上嗎

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-5 

熱烈參與勳章
3#
發表於 2017-6-23 20:51 | 只看該作者
=COUNTA(B3:R3)
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

zz5151353

帖子
206 
主題
3 
精華
0 
積分
218 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE 365 
閱讀權限
100 
性別
男 
來自
台灣台北 
註冊時間
2010-5-15 
最後登錄
2023-6-18 
4#
發表於 2017-6-26 15:59 | 只看該作者
本帖最後由 zz5151353 於 2017-6-26 16:02 編輯

公式使用法
S3
=COUNTIF(B3:R3,"<>")

Sub zz()
Dim Rng
Set Rng = Range("B3:R3")
  [S3] = Application.WorksheetFunction.CountIf(Rng, "<>")
End Sub

Or  只顯示晝面不寫入如下

Sub zz()
Dim Rng
Set Rng = Range("B3:R3")
  MsgBox Application.WorksheetFunction.CountIf(Rng, "<>")
End Sub
300 字節以內
不支持自定義 Discuz! 代碼

TOP

馨。

帖子
53 
主題
24 
精華
0 
積分
87 
點名
0  
作業系統
windows10 
軟體版本
office2016 
閱讀權限
20 
性別
女 
註冊時間
2016-2-13 
最後登錄
2018-11-3 
5#
發表於 2017-8-8 09:47 | 只看該作者
=COUNTA(B3:R3)
hcm19522 發表於 2017-6-23 20:51



    感謝您!!!~~~

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題