12
返回列表 上一主題 發帖

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

小華

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

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

小華

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

小華

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

小華

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

帖子
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# 小華
  1. Workbooks.Open Filename:=y.Range("L20") '開啟資料庫
複製代碼
'你的資料庫是在Workbooks.Open裡,還是[OT  Keyin.xlsm]!DataBasa
  1. Private Sub Enter_Click()
  2.     Dim Rng As Range, The_allTime As Single, AddTime As Single, Msg As Boolean
  3.     If ComboBox1 <> "" And Year01 <> "" And Month01 <> "" Then
  4.                 With Sheets("DataBasa")
  5.             Set Rng = .Range("a6").CurrentRegion    '資料庫
  6. '*******************設資料庫準則
  7.             .Cells(1, .Columns.Count) = "日期條件"  '條件式準則欄位名稱,須與資料庫的欄位名稱不相同
  8.             .Cells(2, .Columns.Count) = "=AND(YEAR(日期)=" & Year01 & ",MONTH(日期)=" & Month01 & ")"
  9.             
  10.             .Cells(1, .Columns.Count - 1) = "姓名" ' "總工時"
  11.             .Cells(2, .Columns.Count - 1) = ComboBox1
  12.             
  13.             The_allTime = Application.DSum(Rng, "總工時", .Cells(1, .Columns.Count - 1).Resize(2, 2))
  14.             'Application.DSum  資料庫函數(H0 參數:=資料庫,參數:=欄位,參數:=準則條件) 加總
  15.             If The_allTime > 30 Then
  16.                 Msg = True
  17.                 MsgBox ComboBox1 & "  " & Year01 & "/" & Month01 & "加班時數 " & The_allTime
  18.                
  19.             ElseIf ComboBox6 <> "" And ComboBox5 <> "" Then
  20.                 AddTime = (TimeValue(ComboBox6) - TimeValue(ComboBox5)) * 24  '新增加班時數
  21.              If The_allTime + AddTime > 30 Then     '以加班時數+新憎班時數
  22.                 Msg = True
  23.                 MsgBox ComboBox1 & "  " & Year01 & "/" & Month01 & "加班時數 " & The_allTime & " + " & AddTime
  24.              End If
  25.             End If
  26.         End With
  27.     End If
  28.     If Msg Then Exit Sub   '有超過30小時,離開程式

  30. Set w = Sheets("DataBasa")
  31. Set Y = Sheets("Base")
  32. AAAA = ""
  33. '你繼續下去的程式碼
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

小華

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

        靜思自在 : 甘願做、歡喜受。
12
返回列表 上一主題