如何寫符合條件後用MXGBOX方式表示 - Excel程式區

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

[發問] 如何寫符合條件後用MXGBOX方式表示

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2014-8-13 19:06 | 顯示全部帖子

因為你沒有詳細的資料
我只能預設
A1儲存格為這個月的總加班時數
B1為人名
C1為月份

Sub test1()
Dim I As Integer
'計算A1到A100共有幾個項目,就跑幾次迴圈
For I = 1 To Application.WorksheetFunction.CountA(Range("a1:a100"))
If Cells(1, 1) > 30 Then MsgBox Cells(1, 2) & "在" & Cells(1, 3) & "月份,總工作時數為" & Cells(1, 1) & "小時"
Next I

End Sub

PKKO

TOP

PKKO