Ẩn hiện dòng theo số ký tự của chuỗi

[tuan16]

Em xin nhờ các anh chị trong diễn dàn viết giúp em đoạn code để ẩn hiện dòng theo mong muốn..
Nếu ô b10 có 0 đến 105 ký tự thì hiện các dòng từ 11 đến 20
Nếu ô b10 có từ 106 đến 210 ký tự thì hiện các dòng từ 11 đến 15
Nếu ô b10 có từ 211 đến 315 ký tự thì hiện các dòng từ 11 đến 13
Nếu ô b10 có từ 316 đến 420 ký tự thì hiện các dòng từ 11 đến 12
Nếu ô b10 lớn hơn 421 ký tự thì chỉ hiện dòng 11
Các dòng từ 1 đến 9 và từ 21 đến cuối không chịu tác động của đoạn code trên

 

[SA_DQ]

Bạn trãi nghiệm với con macro này:

Sub HienDongTheoSoLuongKiTu()
 Dim lRw As Long, DD As Long
 
Rows("11:35").Hidden = False
 DD = Len([B10].Value)
 lRw = Switch(DD < 106, 20, DD < 211, 15, DD < 316, 13, DD < 421, 12, DD >= 421, 11)
 Rows("11:" & lRw).Hidden = True
End Sub

 

[tuan16]

Bạn trãi nghiệm với con macro này:

Sub HienDongTheoSoLuongKiTu()
 Dim lRw As Long, DD As Long
 
Rows("11:35").Hidden = False
 DD = Len([B10].Value)
 lRw = Switch(DD < 106, 20, DD < 211, 15, DD < 316, 13, DD < 421, 12, DD >= 421, 11)
 Rows("11:" & lRw).Hidden = True
End Sub

Thầy xem lại giúp em với ạ... em chạy đoạn code của thầy mà nó ẩn hết từ dòng 11 đến dòng 20. Khi độ dài b10 thay đổi thì các dòng từ 11 đến 20 không ẩn hiện ra ạ

 

[SA_DQ]

Thì chỗ nào có True bạn sửa lại thành False & ngược lại xem sao!

 

[tuan16]

Thì chỗ nào có True bạn sửa lại thành False & ngược lại xem sao!

dạ em sửa True thành False thì đã ẩn hiện được nhưng các dòng từ 21 xuống cũng bị ẩn luôn... em muốn các dòng bên dưới vẫn hiện bình thường... nhờ thầy xem lại giúp ạ

 

[Phuocam]

Em xin nhờ các anh chị trong diễn dàn viết giúp em đoạn code để ẩn hiện dòng theo mong muốn..
Nếu ô b10 có 0 đến 105 ký tự thì hiện các dòng từ 11 đến 20
Nếu ô b10 có từ 106 đến 210 ký tự thì hiện các dòng từ 11 đến 15
Nếu ô b10 có từ 211 đến 315 ký tự thì hiện các dòng từ 11 đến 13
Nếu ô b10 có từ 316 đến 420 ký tự thì hiện các dòng từ 11 đến 12
Nếu ô b10 lớn hơn 421 ký tự thì chỉ hiện dòng 11
Các dòng từ 1 đến 9 và từ 21 đến cuối không chịu tác động của đoạn code trên

Thử code này:

Sub AnHienDong()

Dim KyTu As Long
Rows("11:20").Hidden = True
KyTu = VBA.Len(Range("B10").Value)
Select Case KyTu
    Case 0 To 105
        Rows("11:20").Hidden = False
    Case 106 To 210
        Rows("11:15").Hidden = False
    Case 211 To 315
        Rows("11:13").Hidden = False
    Case 316 To 420
        Rows("11:12").Hidden = False
    Case Else
        Rows("11:11").Hidden = False
End Select

End Sub

 

[tuan16]

Thử code này:

Sub AnHienDong()

Dim KyTu As Long
Rows("11:20").Hidden = True
KyTu = VBA.Len(Range("B10").Value)
Select Case KyTu
    Case 0 To 105
        Rows("11:20").Hidden = False
    Case 106 To 210
        Rows("11:15").Hidden = False
    Case 211 To 315
        Rows("11:13").Hidden = False
    Case 316 To 420
        Rows("11:12").Hidden = False
    Case Else
        Rows("11:11").Hidden = False
End Select

End Sub

dạ em cảm ơn anh ạ