返回列表 上一主題 發帖

[發問] Msgbox顯示符合條件的加總

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-7-10 13:26 | 顯示全部帖子

[發問] Msgbox顯示符合條件的加總

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("I6:I1000")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
   
    MsgBox "完成!"
   
End Sub
這是結果


希望"完成!"的部分可以顯示符合條件的總筆數
收藏 分享

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
2#
發表於 2021-7-12 07:57 | 顯示全部帖子
回復 2# samwang


條件是"機台"欄位有資料的比數加總，空白欄位不算

至於檔案的部分，因為它有連結另一個ECXEL檔，另一個ECXEL檔容量很大，暫時無法提供
檔案的部分我會再想想辦法

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
3#
發表於 2021-7-12 09:49 | 顯示全部帖子
回復 2# samwang


老闆她希望可以針對"機台"欄位有機台的做加總，空白的不要算進去

匯入資料TEST123.zip (317.29 KB)

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
4#
發表於 2021-7-12 10:43 | 顯示全部帖子
回復 5# samwang
非常感謝samwang大大的解答



如果可以，只要"I"欄位的總數就好
不需要針對不同的機台個別加總

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
5#
發表於 2021-7-12 12:38 | 顯示全部帖子
回復 7# samwang


非常感謝samwang大大的解答

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題