Cách kiểm tra xem người dùng có nhấp vào [Hủy] trên InputBox trong VBA hay không

Bạn có biết rằng có thể phân biệt giữa người dùng nhấp "OK" trên InputBox với "Hủy", ngay cả khi họ không nhập bất kỳ văn bản nào?

Hãy xem xét mã mẫu sau:

Sub InputBoxTest()
    Dim Result As String
    
    Result = InputBox("Leave this box blank")
    If StrPtr(Result) = 0 Then
        Debug.Print "User clicked [Cancel]"
    ElseIf Len(Result) = 0 Then
        Debug.Print "User clicked [OK]"
    Else
        Debug.Print "User can't follow instructions"
    End If
    
End Sub

Đây là mã thử nghiệm đang hoạt động:

Nếu bạn quan tâm đến lý do tại sao điều này hoạt động, tôi khuyên bạn nên đặt câu hỏi sau trên stackoverflow:Những lợi ích và rủi ro của việc sử dụng StrPtr trong VBA là gì? Cả hai câu trả lời được bình chọn nhiều nhất (từ người dùng Comintern và GSerg) đều đáng đọc để có kiến ​​thức nền tảng.

Tham chiếu bên ngoài