Ẩn dòng (1 người xem)

[minhhangg]

Xin anh, chị, em chỉnh sửa thêm code dùm em, em làm thấy đúng rồi mà sao chưa chạy được theo ý muốn. Chân thành cảm ơn.

 

[mhung12005]

Xin anh, chị, em chỉnh sửa thêm code dùm em, em làm thấy đúng rồi mà sao chưa chạy được theo ý muốn. Chân thành cảm ơn.

Bạn sửa thành vầy xem:

  Public Sub An()
       [A5:A20].EntireRow.Hidden = False
        If [E1] = 1 Then
          [A5:A8].EntireRow.Hidden = True
        ElseIf [E1] = 2 Then
          [A10:A13].EntireRow.Hidden = True
        ElseIf [E1] = 3 Then
          [A15:A20].EntireRow.Hidden = True
        Else
         [A5:A20].EntireRow.Hidden = False
        End If
    End Sub

 

[Quang_Hải]

Bạn sửa thành vầy xem:

  Public Sub An()
       [A5:A20].EntireRow.Hidden = False
        If [E1] = 1 Then
          [A5:A8].EntireRow.Hidden = True
        ElseIf [E1] = 2 Then
          [A10:A13].EntireRow.Hidden = True
        ElseIf [E1] = 3 Then
          [A15:A20].EntireRow.Hidden = True
        Else
         [COLOR=#ff0000][A5:A20].EntireRow.Hidden = False[/COLOR]
        End If
    End Sub

Sửa đúng rồi nhưng thừa cái chỗ màu đỏ vì đầu code ta đã set = False hết rồi

 

[minhhangg]

Bạn sửa thành vầy xem:

  Public Sub An()
      [COLOR=#ff0000] [A5:A20].EntireRow.Hidden = False
[/COLOR]       If [E1] = 1 Then
          [A5:A8].EntireRow.Hidden = True
        ElseIf [E1] = 2 Then
          [A10:A13].EntireRow.Hidden = True
        ElseIf [E1] = 3 Then
          [A15:A20].EntireRow.Hidden = True
        Else
         [COLOR=#ff0000][A5:A20].EntireRow.Hidden = False
[/COLOR]       End If
    End Sub

Xin anh giải thích dùm em cái câu màu đỏ vì sao phải chọn là false hết vậy. Mà sao không là 1 cái true 1 cái false. Cảm ơn anh.

 

[minhhangg]

Sửa đúng rồi nhưng thừa cái chỗ màu đỏ vì đầu code ta đã set = False hết rồi

Em chưa thử. Nếu vậy mình bỏ 1 cái câu đầu hả anh Hải. Thử rồi không xong. Xin giải thích dùm em 2 câu màu đỏ. Cảm ơn anh

 

[mhung12005]

Em chưa thử. Nếu vậy mình bỏ 1 cái câu đầu hả anh Hải

Xin lỗi, mình vội nên không để ý hết. Chỉ cần như vậy là đủ:

    Public Sub An()       
       [A5:A20].EntireRow.Hidden = False
        If [E1] = 1 Then
          [A5:A8].EntireRow.Hidden = True
        ElseIf [E1] = 2 Then
          [A10:A13].EntireRow.Hidden = True
        ElseIf [E1] = 3 Then
          [A15:A20].EntireRow.Hidden = True
        End If
    End Sub