返回列表下一主題上一主題發帖

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

馨。

中學生 Rank: 2

帖子: 55
主題: 25
精華: 0
積分: 90
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2025-3-20

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-6-23 17:39 | 只看該作者

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

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

檔案.rar (6.78 KB)

樓主熱帖

馨。

中學生 Rank: 2

帖子: 55
主題: 25
精華: 0
積分: 90
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2025-3-20

5^#

發表於 2017-8-8 09:47 | 只看該作者

=COUNTA(B3:R3)
hcm19522 發表於 2017-6-23 20:51

感謝您!!!~~~

TOP

zz5151353

版主 Rank: 7 Rank: 7 Rank: 7

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

hcm19522