Hỏi về cấu trúc Select Case trong VBA (1 người xem)

[hungpecc1]

E viết hàm ca se như sau : nhưng máy báo case without select case

Select Case h
Case < = 2
......(câu lệnh khác ).........
Case >= 16
...............
Case 2<h<16
...............
End select
tiện thể e hỏi 2 hàm selcet case có lông vào nhau đc không ?


mong các pác cho ý kiến,mới bập bõm VBA nên e hơi gà tẹo ^^

 

[nghiaphuc]

E viết hàm ca se như sau : nhưng máy báo case without select case
Select Case h
Case < = 2
......(câu lệnh khác ).........
Case >= 16
...............
Case 2<h<16
...............
End select
tiện thể e hỏi 2 hàm selcet case có lông vào nhau đc không ?
mong các pác cho ý kiến,mới bập bõm VBA nên e hơi gà tẹo ^^

Bạn nhập sai cú pháp rồi. Thử lại như vầy xem:

Sub Test()
    Dim h As Long
    h = InputBox("Nhap vao mot so nguyen: h = ")
    Select Case h
        Case Is <= 2: MsgBox "Ban nhap vao so h <= 2"
        Case Is < 16: MsgBox "Ban nhap vao so 2 < h < 16"
        Case Else: MsgBox "Ban nhap vao so h >= 16"
    End Select
End Sub

Việc đặt 2 cấu trúc Select Case lồng vào nhau là bình thường, không vấn đề gì. Ví dụ như vầy:

Sub Test1()
    Dim a As Long, b As Long
    a = InputBox("Nhap vao so nguyen a: ")
    b = InputBox("Nhap vao so nguyen b: ")
    Select Case a
        Case Is <= 2
            Select Case b
                Case Is <= 2: MsgBox "a<=2, b<=2"
                Case Is < 10: MsgBox "a<=2, b<10"
                Case Else: MsgBox "a<=2, b>=10"
            End Select
        Case Is < 16: 'Lệnh gì đó ở đây'
        Case Else: 'Lệnh gì đó ở đây'
    End Select
End Sub

 

[phuongxd269]

Mới học VBA đc vài hôm thử lập 1 function nhưng chạy bị lỗi, ai làm ơn chỉ dùm xem lỗi ở chỗ nào với. Thank nhiều!

 

[phuongxd269]

Thử viết thế này nhưng code vẫn lỗi, chạy ko theo ý là sao nhỉ? Mới tập tành mong mọi người chỉ dùm!!!
Public Sub ThuCase()
Dim CB As Double
CB = Cells(9, 3).Value
Select Case CB
Case Is = 12.5
Cells(5, 5).Value = 7.5 And Cells(5, 6).Value = 0.66 And Cells(5, 7).Value = 21000 '(Mpa)
Case Is = 15
Cells(5, 5).Value = 8.5 And Cells(5, 6).Value = 0.75 And Cells(5, 7).Value = 23000
Case Is = 20
Cells(5, 5).Value = 11.5 And Cells(5, 6).Value = 0.9 And Cells(5, 7).Value = 27000
Case Is = 25
Cells(5, 5).Value = 14.5 And Cells(5, 6).Value = 1.05 And Cells(5, 7).Value = 30000
Case Is = 30
Cells(5, 5).Value = 17 And Cells(5, 6).Value = 1.2 And Cells(5, 7).Value = 32500
Case Is = 35
Cells(5, 5).Value = 19.5 And Cells(5, 6).Value = 1.3 And Cells(5, 7).Value = 34500
Case Is = 40
Cells(5, 5).Value = 22 And Cells(5, 6).Value = 1.4 And Cells(5, 7).Value = 36000
Case Is = 45
Cells(5, 5).Value = 25 And Cells(5, 6).Value = 1.45 And Cells(5, 7).Value = 37500
Case Is = 50
Cells(5, 5).Value = 27.5 And Cells(5, 6).Value = 1.55 And Cells(5, 7).Value = 39000
Case Is = 55
Cells(5, 5).Value = 30 And Cells(5, 6).Value = 1.6 And Cells(5, 7).Value = 39500
Case Is = 60
Cells(5, 5).Value = 33 And Cells(5, 6).Value = 1.65 And Cells(5, 7).Value = 40000
Case Else
MsgBox "Nhap Lai Cap Do Ben"
End Select
End Sub