返回列表 上一主題 發帖

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

zz5151353

帖子
206 
主題
3 
精華
0 
積分
218 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE 365 
閱讀權限
100 
性別
男 
來自
台灣台北 
註冊時間
2010-5-15 
最後登錄
2023-6-18 
1# 跳轉到 »
發表於 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

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題