Hỏi về hiển thị mặc định chọn nút trong MsgBox

[PhanTuHuong]

Trong MsgBox, ta có thể tùy chọn loại nút lệnh như OK, Cancel, Yes, No,... và có thể đặt mặc định nút nào bằng vbDefaultButton... (từ 1 đến 4).
Ví dụ:

Sub TinhCanBacHai3()
    Dim Num As Variant
    Dim Msg As String
TryAgain:
        On Error GoTo BadEntry
            Num = InputBox("Hay vao gia tri de tinh can bac 2")
                If Num = “” Then Exit Sub
                    ActiveCell.Value = Sqr(Num)
                Exit Sub
BadEntry:
    Msg = "Phat hien loi. Ban co muon lam lai khong?"
    Ans = MsgBox(Msg, vbYesNo + vbDefaultButton2)
    If Ans = vbYes Then Resume TryAgain
End Sub

Trong trường hợp này, ta đã gán mặc định vào nút No.

Tuy nhiên, tôi vẫn hay gặp trường hợp đã gán mặc định mà nút đó không được chọn, chẳng hiểu tại sao?

 

[levanduyet]

??

Tuy nhiên, tôi vẫn hay gặp trường hợp đã gán mặc định mà nút đó không được chọn, chẳng hiểu tại sao?

PhanTuHuong mà không hiểu thì ai mà hiểu !
Em kiểm tra kỹ lại xem, sao anh thấy đâu có gì đâu?

Lê Văn Duyệt

 

[PhanTuHuong]

Anh Duyệt à, em đã thử Sub khác (không phải Sub trên).


Nếu chạy trực tiếp từ cửa sổ VB (bấm F5 trên Sub) thì tốt, nhưng chạy từ các nút lệnh thì không được. Thế mới lạ chứ?!*****

 

[levanduyet]

???

Anh Duyệt à, em đã thử Sub khác (không phải Sub trên).


Nếu chạy trực tiếp từ cửa sổ VB (bấm F5 trên Sub) thì tốt, nhưng chạy từ các nút lệnh thì không được. Thế mới lạ chứ?!*****

Cụ thể là báo lỗi gì vậy?

LVD

 

[PhanTuHuong]

Không lỗi gì đâu, nó chỉ không mặc định chọn nút thôi.

 

[TrungChinhs]

Trong Excel có tất cả 34 kiểu Msgbox, muốn gọi Msgbox kiểu nào ta chỉ cần gõ vào sub câu lệnh: Msgbox "nội dung thông báo", số mặc định, "nội dung nhãn".

vd: MsgBox "So mac dinh cua kieu nay la: 70", 70 (sử dụng nhãn mặc định).
các bạn có thể chọn xem các kiểu MsgBox và số mặc định của nó trong File đính kèm.

Mừng sinh nhật GPE tròn 3 tuổi, xin được chia vui cùng các bạn !​