Làm sao để hiện msgbox có điều kiện

Liên hệ QC

vn8690

Thành viên mới
Tham gia
11/3/13
Bài viết
36
Được thích
0
Xin chào cả nhà

Nhờ mọi người giúp mình viết cái hàm cho mgsbox với

Mình muốn làm 1 cảnh báo tự động , khi số % ngày làm thấp hơn 55% thì sẽ có cảnh báo

“ chú ý điều chỉnh công việc cho hợp lý “

Mà không biết làm sao gán hàm vào cho nó tự hiện

Giwof mình đang dung hàm

Count để đếm ô ngày đi làm và counta để đếm số ngày làm 1 công việc 1.2 ( ký hiệu việc )

Sau đó chia % để biết điều chỉnh

Khi số % thấp hơn 55% / tháng sẽ hiện cảnh báo curaMGSBOX để biết và điều chỉnh

Không thể đưa hàm :

IF(R49<55,” chú ý điều chỉnh công việc ”,””) then

Msgbox ” chú ý điều chỉnh công việc ”,

End if

End sub

Rất mong các cao nhân giúp đỡ
 
IF R49<55% then

Msgbox ” chú ý điều chỉnh công việc ”

End if
 
IF R49<55% then

Msgbox ” chú ý điều chỉnh công việc ”

End if
thanks ban
de minh test luon :D
Bài đã được tự động gộp:

Cảm ơn ban
de minh test luon :D
IF R49<55% then

Msgbox ” chú ý điều chỉnh công việc ”

End if

Cái này phải ấn run nó mới hiện ra


Có cách nào nó tự động hiện ra khi điều kiện đủ không bạn ?
 
Cảm ơn ban
de minh test luon :D
Bài đã được tự động gộp:




Cái này phải ấn run nó mới hiện ra


Có cách nào nó tự động hiện ra khi điều kiện đủ không bạn ?
Bạn làm cho nó cái sự kiện vào là được nhé.
 
minh khong biet lam cai do
ban co the giup minh duoc khong
Cảm ơn
Góp ý cho bạn:
Nhằm tránh vi phạm nội quy, bạn nên đọc lại nội quy tại khoản 1, mục II Hình thức của bài viết, có quy định thế này "Tất cả các bài viết bằng tiếng Việt cần viết có dấu đầy đủ, tránh phạm lỗi chính tả và làm mất đi sự trong sáng của tiếng Việt".
 
Xin chào cả nhà

Nhờ mọi người giúp mình viết cái hàm cho mgsbox với

Mình muốn làm 1 cảnh báo tự động , khi số % ngày làm thấp hơn 55% thì sẽ có cảnh báo

“ chú ý điều chỉnh công việc cho hợp lý “

Mà không biết làm sao gán hàm vào cho nó tự hiện

Giwof mình đang dung hàm

Count để đếm ô ngày đi làm và counta để đếm số ngày làm 1 công việc 1.2 ( ký hiệu việc )

Sau đó chia % để biết điều chỉnh

Khi số % thấp hơn 55% / tháng sẽ hiện cảnh báo curaMGSBOX để biết và điều chỉnh

Không thể đưa hàm :

IF(R49<55,” chú ý điều chỉnh công việc ”,””) then

Msgbox ” chú ý điều chỉnh công việc ”,

End if

End sub

Rất mong các cao nhân giúp đỡ
Với một thông báo đơn giản như vậy thì bạn dùng Hàm Alert dưới xem sao. Không nhất thiết phải bấm Ok để tắt MsgBox

Copy code sau vào Events của Workbook
Mã:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  'If ... Then
    'Alert "abc"
  'End If
End Sub

Copy code sau vào Module
Mã:
#If VBA7 Then
  Public Declare PtrSafe Function MsgBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, _
    ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
#Else
  Public Declare Function MsgBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, _
    ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
#End If
Sub test_Alert()
Alert "hello"
End Sub
    Public Sub Alert(ByVal str As Variant, _
                    Optional ByVal Header As Variant = "AlertBox", _
                    Optional ByVal Style As VbMsgBoxStyle = vbOKOnly, _
                    Optional ByVal wTime As Integer = 1, _
                    Optional ByVal hold As Boolean = False)
        If hold Then
            Dim objShell As Object: Set objShell = CreateObject("WScript.Shell")
            Select Case objShell.Popup(str, wTime, Header, 0)
                Case 1, -1
                    Exit Sub
            End Select
        Else
            Call MsgBoxTimeout(0, str, Header, Style, 0, wTime * 1000)
        End If
    End Sub
----------------------------------------------------------------------
Kiểm thử kết quả Mảng trong Immediate với hàm dbPrint
----------------------------------------------------------------------
 
Với một thông báo đơn giản như vậy thì bạn dùng Hàm Alert dưới xem sao. Không nhất thiết phải bấm Ok để tắt MsgBox

Copy code sau vào Events của Workbook
Mã:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  'If ... Then
    'Alert "abc"
  'End If
End Sub

Copy code sau vào Module
Mã:
#If VBA7 Then
  Public Declare PtrSafe Function MsgBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, _
    ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
#Else
  Public Declare Function MsgBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, _
    ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
#End If
Sub test_Alert()
Alert "hello"
End Sub
    Public Sub Alert(ByVal str As Variant, _
                    Optional ByVal Header As Variant = "AlertBox", _
                    Optional ByVal Style As VbMsgBoxStyle = vbOKOnly, _
                    Optional ByVal wTime As Integer = 1, _
                    Optional ByVal hold As Boolean = False)
        If hold Then
            Dim objShell As Object: Set objShell = CreateObject("WScript.Shell")
            Select Case objShell.Popup(str, wTime, Header, 0)
                Case 1, -1
                    Exit Sub
            End Select
        Else
            Call MsgBoxTimeout(0, str, Header, Style, 0, wTime * 1000)
        End If
    End Sub
thanks ban
minh test ngay bay gio :D
 
Web KT
Back
Top Bottom