2014-11-19 29 views
5

Tôi đang cố gắng lấy kết quả của các ô khác nhau dựa trên câu lệnh if đặt trước Tôi nhận được kết quả trong nhiều hộp thư và kết quả cho tất cả các ô đang được tính toán dựa trên đầu tiên kiểm tra tuyên bố. Làm thế nào tôi có thể nhận được tất cả các kết quả trong một msgbox và cho phép chức năng kiểm tra từng ô trong phạm vi?VBA Excel: Nhận kết quả cho nhiều ô

Dim rcell As Range 
For Each rcell In Vou_Summary.Range("I5:I16") 
    If 0 < rcell <= 2.5 Then 
     MsgBox rcell.Cells.Offset(0, -3).Value & " Is Critical", vbOKOnly, "Notice!" 
    ElseIf 2.5 < rcell <= 4 Then 
     MsgBox rcell.Cells.Offset(0, -3).Value & " Requires PR Placement", vbOKOnly, "Notice!" 
    ElseIf rcell >= 7 Then 
     MsgBox rcell.Cells.Offset(0, -3).Value & " Is Oversupplied", vbOKOnly, "Notice!" 
    Else 
End If 
Next 

Trả lời

3

Bạn có thể tạo biến Chuỗi trước tiên. Đừng ném một MsgBox nhưng lưu kết quả vào biến. Qua câu lệnh End If hiển thị MsgBox và chuyển biến chuỗi làm nội dung.

Tốt hơn, bạn có thể sử dụng String Builder để làm cho thiết bị hoạt động nhanh hơn 1000 lần so với kết nối VBA mặc định;)

Các vấn đề liên quan