Sửa dùm mình đoạn code về MsgBox (1 người xem)

[vu_ctn]

Sub thongbao()
Dim Msg As Integer, ngay As Date
ngay = Range("I1").Select


Msg = MsgBox("Chon Ok hoac Cancel .", 1, "Thong bao :")
If Msg = 1 Then
ActiveSheet.PrintPreview


MsgBox ("Da khoa so ngay " & ngay)
Else
MsgBox ("Xem lai DL")
End If


End Sub

Mình muốn khi cho chạy macro sẽ hiện thông báo trã DL về ngày đã định sẳn ở Ô I1. nhưng ngày được trả về không đúng. Mong các ACE GPE xem rồi chỉ mình chỗ sai.
Thank mọi người.

 

[Hau151978]

Bạn sửa lệnh
ngay = Range("I1").Select
thành
ngay = Range("I1").Value

 

[vu_ctn]

Vậy mà mình suy nghỉ cả giờ không ra . Cảm ơn Hau151978 nhiều.

 

[vu_ctn]

mình có đoạn code như thế này :
Sub thongbao()
Dim Msg As Integer, sotien As Long ' định dạng kiểu Long đúng không ACE
sotien = Range("I2").Value '
Msg = MsgBox("Chon Ok hoac Cancel .", 1, "Thong bao :")
If Msg = 1 Then
ActiveSheet.PrintPreview

MsgBox "Tong tien phai nop la : " & sotien, , "Thong bao"
'Kiểu số tiền mình định dạng phải là 100.000,00
' Nút OK làm sao cho nó ra giữa họp thoại
Else
MsgBox ("Xem lai DL")
Exit Sub
End If
End Sub

- kết quả trả về không như ý muốn , kiểu số tiền hiện ra luôn tuồng không có phân cách giữa hàng trăm và hàng đơn vị . Mong các ACE GPE hướng dẫn dùm mình

 

[anhdepjai]

Bạn thử thay đoạn này:sotien = Format(range("I2").value, "###,###")

 

[vu_ctn]

vẫn không được bạn ơi.

 

[Hau151978]

vẫn không được bạn ơi.

Bạn sửa khai báo
Dim sotien As String
và lệnh
sotien = Format(Range("I2").Value, "##,##")

 

[Quang_Hải]

mình có đoạn code như thế này :
Sub thongbao()
Dim Msg As Integer, sotien As Long ' định dạng kiểu Long đúng không ACE
sotien = Range("I2").Value '
Msg = MsgBox("Chon Ok hoac Cancel .", 1, "Thong bao :")
If Msg = 1 Then
ActiveSheet.PrintPreview

MsgBox "Tong tien phai nop la : " & sotien, , "Thong bao"
'Kiểu số tiền mình định dạng phải là 100.000,00
' Nút OK làm sao cho nó ra giữa họp thoại
Else
MsgBox ("Xem lai DL")
Exit Sub
End If
End Sub

- kết quả trả về không như ý muốn , kiểu số tiền hiện ra luôn tuồng không có phân cách giữa hàng trăm và hàng đơn vị . Mong các ACE GPE hướng dẫn dùm mình

1. Khi không biết nên khai báo kiểu biến gì thì bỏ trống cho an toàn. Chỉ cần Dim sotien
2. Mấy cái này trong help có sẵn. Kỹ năng sử dụng help của excel rất quan trọng khi viết code
Bạn thử code thế này

MsgBox Format(sotien, "##,##0.00")

 

[ndu96081631]

Tác giả lưu ý cho:
- Mọi câu hỏi liên quan đến việc gỡ rối code, hãy vào đây hỏi:
http://www.giaiphapexcel.com/forum/showthread.php?86496-Chuyên-mục-xử-lý-gỡ-rối-code-VBA
- Đừng mở chủ đề mới để hỏi linh tinh, đến cuối cùng sẽ chẳng biết chủ đề nó đi về đâu