giao tiếp với người dùng qua MSGBOX (2 người xem)

[nhatthuc147]

mình dùng msgbox để xuất ra 2 nút lệnh yes và no nhưng không biết lấy thông tin từ người dùng trả về, các bạn giúp mình nha.

 

[BNTT]

Ví dụ nhé:

Dim Msg, Style, Title, Response, MyString

Msg = "Bạn có thích ăn không?" (câu hỏi của bạn)

Style = vbYesNo + vbCritical + vbDefaultButton2 (kiểu hiện ra có 2 button Yes và No)

Title = "Bánh ngọt" (tiêu đề của hộp thoại)

Response = Msgbox(Msg, Style, Title) (Câu lệnh để hiện ra hộp thoại)

If Response = vbYes then (nếu nhấn nút Yes)

MyString = "Mời bạn" (thì hiện ra câu trả lời này)
​

Else (còn không thì - nếu nhấn nút No)

MyString = "Cảm ơn bạn." (hiện ra câu này)
​

Endif
​

 

[nhatthuc147]

thank, mình sẽ thử xem thế nào.

 

[ongtrungducmx25]

Dim Msg, Style, Title, Response, MyString

Msg = "Bạn có thích ăn không?" (câu hỏi của bạn)

Style = vbYesNo + vbCritical + vbDefaultButton2 (kiểu hiện ra có 2 button Yes và No)

Title = "Bánh ngọt" (tiêu đề của hộp thoại)

Response = Msgbox(Msg, Style, Title) (Câu lệnh để hiện ra hộp thoại)

If Response = vbYes then (nếu nhấn nút Yes) MyString = "Mời bạn" (thì hiện ra câu trả lời này)
Else (còn không thì - nếu nhấn nút No) MyString = "Cảm ơn bạn." (hiện ra câu này)
Endif

cái này nó không chạy được bạn ơi!
</BLOCKQUOTE>

 

[nvson]

Trên đây chỉ là những dòng lệnh cơ bản thôi, bạn muốn chạy thì phải đưa chúng vào 1 hàm (Function) hay 1 thủ tục (Sub) nào đó chứ.

 

[phamduylong]

mình dùng msgbox để xuất ra 2 nút lệnh yes và no nhưng không biết lấy thông tin từ người dùng trả về, các bạn giúp mình nha.

Kết quả trả về khi người dùng bấm vào nút lệnh trên msgbox:
1 OK
2 Cancel
3 Abort
4 Retry
5 Ignore
6 Yes
7 No
Cũng có thể dùng vbCancel, vbAbort, vbRetry, vbIgnore, vbYes, vbNo thay cho 1, 2, ..., 7

Căn cứ vào kết quả đó, bạn biết đươc người dùng đã chọn nút nào.

Sub Phongvan()
traloi = MsgBox("Ban co thich Excel khong ?", vbYesNoCancel, "Phong van")
If traloi = 6 Then
  MsgBox "Ban thich Excel"
ElseIf traloi = 7 Then
  MsgBox "Ban khong thich Excel"
Else
  MsgBox "Ban khong y kien"
End If
End Sub

 

[dnphuonganh]

Em muốn dùng code này để đóng file:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
traloi = MsgBox("Ban co thich Excel khong ?", vbYesNoCancel, "Phong van")
If traloi = 6 Then
  MsgBox "Ban thich Excel"
ElseIf traloi = 7 Then
  MsgBox "Ban khong thich Excel"
Else
  [B]MsgBox "Ban khong y kien"[/B]
End If
End Sub

[/quote]
Nếu em muốn dòng lệnh Else cuối cùng thực hiện không đóng excel nữa thì phải sửa như thế nào?
Hoặc có cách nào khác nữa không?

 

[phamduylong]

Thêm Cancel=True sau MsgBox "Ban khong y kien"

Else
  [B]MsgBox "Ban khong y kien"[/B]
  [B]Cancel=True[/B] 
End If