小華

帖子: 36
主題: 8
精華: 0
積分: 44
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-1-8
最後登錄: 2020-10-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-8-13 18:29 | 只看該作者

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

請教各位大大小弟有一個資料庫裡面有人名，加班小時，月份等等資料

小弟我想增加一個功能是在輸入的時候顯示"這個人"在"這個月"的"工作時數"有沒有超過30小時

如果有則用Msgbox方式表示，如沒有則不顯示

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2014-8-14 00:32 | 只看該作者

用PKKO提供的方法,再加上worksheet_change
可以達到輸入的時候顯示的效果.

如果能提供EXCEL/頁面位置,可以更易解释給你聴

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

小華

小學生 Rank: 1

帖子: 36
主題: 8
精華: 0
積分: 44
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-1-8
最後登錄: 2020-10-29

4^#

發表於 2014-8-22 22:13 | 只看該作者

回復 2# PKKO

感謝大大的教導，只是我需要在MAGBOX顯示前先比對我輸入的這筆資料"這個人"在"這個月"的加班時數加總

需要同時符合月份、姓名跟SUMIFS函數一樣(2個條件)，只是不懂得如何在VBA裡用程式碼去判斷後加總

TOP

小華

小學生 Rank: 1

帖子: 36
主題: 8
精華: 0
積分: 44
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-1-8
最後登錄: 2020-10-29

5^#

發表於 2014-8-22 22:14 | 只看該作者

回復 3# kimbal

謝謝版主的提醒，因為檔案裏面有個資所以不方便提供上來.............

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

6^#

發表於 2014-8-23 01:37 | 只看該作者

還是提供範例吧!
不然無法寫出您的需求
把個人資料刪除換成ABC即可

PKKO

TOP

小華

小學生 Rank: 1

帖子: 36
主題: 8
精華: 0
積分: 44
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-1-8
最後登錄: 2020-10-29

7^#

發表於 2014-8-25 22:58 | 只看該作者

回復 6# PKKO

附上檔案~~

OT Keyin.rar (113.43 KB)

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

8^#

發表於 2014-8-26 23:38 | 只看該作者

你附上了檔案,但看不太懂你的檔案...

PKKO

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2014-8-27 07:26 | 只看該作者

本帖最後由 GBKEE 於 2014-8-28 05:06 編輯

回復 7# 小華

Workbooks.Open Filename:=y.Range("L20") '開啟資料庫

複製代碼

'你的資料庫是在Workbooks.Open裡,還是[OT Keyin.xlsm]!DataBasa

Private Sub Enter_Click()
Dim Rng As Range, The_allTime As Single, AddTime As Single, Msg As Boolean
If ComboBox1 <> "" And Year01 <> "" And Month01 <> "" Then
With Sheets("DataBasa")
Set Rng = .Range("a6").CurrentRegion '資料庫
'*******************設資料庫準則
.Cells(1, .Columns.Count) = "日期條件" '條件式準則欄位名稱,須與資料庫的欄位名稱不相同
.Cells(2, .Columns.Count) = "=AND(YEAR(日期)=" & Year01 & ",MONTH(日期)=" & Month01 & ")"
.Cells(1, .Columns.Count - 1) = "姓名" ' "總工時"
.Cells(2, .Columns.Count - 1) = ComboBox1
The_allTime = Application.DSum(Rng, "總工時", .Cells(1, .Columns.Count - 1).Resize(2, 2))
'Application.DSum 資料庫函數(H0 參數:=資料庫,參數:=欄位,參數:=準則條件) 加總
If The_allTime > 30 Then
Msg = True
MsgBox ComboBox1 & " " & Year01 & "/" & Month01 & "加班時數 " & The_allTime
ElseIf ComboBox6 <> "" And ComboBox5 <> "" Then
AddTime = (TimeValue(ComboBox6) - TimeValue(ComboBox5)) * 24 '新增加班時數
If The_allTime + AddTime > 30 Then '以加班時數+新憎班時數
Msg = True
MsgBox ComboBox1 & " " & Year01 & "/" & Month01 & "加班時數 " & The_allTime & " + " & AddTime
End If
End If
End With
End If
If Msg Then Exit Sub '有超過30小時,離開程式
Set w = Sheets("DataBasa")
Set Y = Sheets("Base")
AAAA = ""
'你繼續下去的程式碼

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

小華

小學生 Rank: 1

帖子: 36
主題: 8
精華: 0
積分: 44
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-1-8
最後登錄: 2020-10-29

10^#

發表於 2014-8-27 22:02 | 只看該作者

回復 9# GBKEE

感謝版大~~我先來消化一下你寫的程式碼~~

我的資料庫是在[OT Keyin.xlsm]!DataBasa

TOP