Hiển thị Hộp thoại thông báo theo điều kiện (1 người xem)

[duong22000]

Em có 1 file mẫu, yêu cầu đã ghi chú trong file. Em nhờ mọi người trên GPE giúp em với. Em xin cảm ơn nhiều !

 

[Cu Tồ]

Thông báo với Msgbox thì bạn tìm hiểu dùng bằng VBA nha.và trong VBA thì thông báo Msgbox không hỗ trợ nội dung Tiếng Việt có dấu.Có một số cách để lách luật để hiện thị nội dung thông báo là Tiếng Việt có dấu.Trên diễn đàn có nhiều rồi bạn tìm tham khảo

 

[duong22000]

em vẫn chưa tạo được thông báo như yêu cầu của bài trên, mong mọi người viết code giúp em với. Em xin cảm ơn !
Em viet như sau
Private Sub Worksheet_Activate()
If Range("e5").Value = 1 Then
MsgBox ("Chuan bi " & Range("b5")), vbCritical
End If
End Sub
nhưng nó chưa dò các ô e6, e7, e8, ... tiếp theo và có thông báo nếu các ô này cũng bằng 1 và tương ứng với cột B

 

[Cu Tồ]

. Tham Khảo

 

[duong22000]

. Tham Khảo

Mình cảm ơn Cu Tồ đã giúp mình, mình đã kiểm tra và chạy code đúng. giá chèn thêm được âm thanh vào thì tốt ....

 

[Cu Tồ]

Sub Worksheet_Activate()

Private Sub Worksheet_Activate()
Dim I As Long
Dim Lr As Long
Lr = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    For I = 1 To Lr
          If ActiveSheet.Range("E" & I).Value = 1 Then
                  MsgBox ActiveSheet.Range("B" & I).Value
          End If
    Next
End Sub

Nếu muốn nhấn vào sheets đó mà hiện thông báo thì viết vòng lặp như vầy

Bài đã được tự động gộp: 8/11/20

âm thanh

Âm thanh có thể làm nhưng mình chưa làm qua,nhớ là trên diễn đàn mình có 1 baif kiểu thế đấy

Bài đã được tự động gộp: 8/11/20

2> Chơi âm thanh Midi khi Form load
Trò này lại đơn giản hơn nữa... Chỉ với 1 hàm API
PHP:Sao chép.
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
1 câu lệnh duy nhất để Play file
PHP:Sao chép.
mciExecute ("play C:\WINDOWS\Media\flourish.mid")
và 1 câu lệnh duy nhất để Stop file
PHP:Sao chép.
mciExecute ("stop C:\WINDOWS\Media\flourish.mid")
Nguồn Tại Đây

Bài đã được tự động gộp: 8/11/20

Bài này của thầy ndu96081631 cũng viết khá rõ này
Link Tham Khảo

 

[duong22000]

Private Sub Worksheet_Activate()
Dim I As Long
Dim Lr As Long
Lr = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    For I = 1 To Lr
          If ActiveSheet.Range("E" & I).Value = 1 Then
                  MsgBox ActiveSheet.Range("B" & I).Value
          End If
    Next
End Sub

Nếu muốn nhấn vào sheets đó mà hiện thông báo thì viết vòng lặp như vầy

Bài đã được tự động gộp: 8/11/20

Âm thanh có thể làm nhưng mình chưa làm qua,nhớ là trên diễn đàn mình có 1 baif kiểu thế đấy

Bài đã được tự động gộp: 8/11/20

2> Chơi âm thanh Midi khi Form load
Trò này lại đơn giản hơn nữa... Chỉ với 1 hàm API
PHP:Sao chép.
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
1 câu lệnh duy nhất để Play file
PHP:Sao chép.
mciExecute ("play C:\WINDOWS\Media\flourish.mid")
và 1 câu lệnh duy nhất để Stop file
PHP:Sao chép.
mciExecute ("stop C:\WINDOWS\Media\flourish .mid")
Nguồn Tại Đây

Bài đã được tự động gộp: 8/11/20

Bài này của thầy ndu96081631 cũng viết khá rõ này
Link Tham Khảo

Mình cảm ơn bạn đã quan tâm và giúp đỡ, để mình thử và áp dụng, có gì thì mình mong tiếp tục nhận được sự giúp đỡ của bạn và mọi người trên GPE. Xin được cảm ơn bạn và mọi người !

 

[Cu Tồ]

Bạn cứ thử xem rồi tính tiếp vậy