Em xin được sự giúp đỡ :Ẩn dòng và tự động đánh lại số thứ tự (STT) sau khi ẩn dòng

[dangky47h]

Xét trong vùng dữ liệu từ cột D đến cột Y:
Nếu tất cả các dòng trong vùng dữ liệu từ cột D đến cột Y đều trống (các ô từ cột D đến cột Y đều không chữa dữ liệu) thì dòng chứa các ô đó sẽ bị ẩn và khi đó ở cột A số thứ tự (STT) tự động được đánh lại cho những dòng không bị ẩn.
Em nhờ sự giúp đỡ của các Thầy, cac Anh, Chị.
Em xin cám ơn!

 

[dangky47h]

Các tên trang tính nên có khuôn fép thì tiện trong khi xài VBA; Như:

9_Nha de xe
9_San
13Be tong
. . . .
Các con số 9 hay 13 là những cột tương ứng cần lây dữ liệu của trang (tính)

E sửa lại file theo quy luật Thầy cho ý kiến, Em nhờ Thầy giúp em ạ!

 

[Ba Tê]

File bài #14

 

[dangky47h]

File bài #14

Em xin cám ơn Thầy, chúc Thầy sức khỏe và nhiều niềm vui!

 

[dangky47h]

File bài #14

Thầy ơi rất đúng ý em, em làm phiền Thầy chút xíu nữa để hoàn thiện ạ! Cột cần ẩn và hiện là những cột thuộc sheet (Nha de xe, San be tong, Ranh nuoc, Nha hieu bo, Cot co) Các cột cần ẩn, cần hiện (em tô màu xanh) trong sheet nêu trên là cột “E, F, K, L, N, O, P” và các cột từ “U đến Y”
Em cám ơn Thầy, Thầy làm ơn giúp em nhé!

 

[Quang_Hải]

File bài #14

Em nghĩ không dùng Dic có vẻ gọn hơn. Không biết là em có thiếu sót gì không. Viết vui thôi chứ không test kỹ

Sub Do_Tim_May_Thi_Cong()
Dim sh As Worksheet, MayThiCong(), sArr(), i As Long, ii As Long, Res()
With Sheets("May Thi Cong")
   MayThiCong = .Range("A2", .[A65536].End(3)).Resize(, 3).Value
End With
For Each sh In ThisWorkbook.Worksheets
   If Replace(LCase(sh.Name), " ", "") <> "maythicong" Then
      sArr = sh.Range("A2", sh.[A65536].End(3)).Resize(, 9).Value
      ReDim Res(1 To UBound(sArr), 1 To 1)
      For i = 1 To UBound(sArr)
         If sArr(i, 9) <> Empty Then
            For ii = 1 To UBound(MayThiCong)
               If sArr(i, 9) Like "*" & MayThiCong(ii, 2) & "*" Then
                  Res(i, 1) = MayThiCong(ii, 3)
               End If
            Next
         End If
      Next
      sh.[T2].Resize(UBound(Res), UBound(Res, 2)) = Res
   End If
Next
End Sub

 

[dangky47h]

Em nghĩ không dùng Dic có vẻ gọn hơn. Không biết là em có thiếu sót gì không. Viết vui thôi chứ không test kỹ

Sub Do_Tim_May_Thi_Cong()
Dim sh As Worksheet, MayThiCong(), sArr(), i As Long, ii As Long, Res()
With Sheets("May Thi Cong")
   MayThiCong = .Range("A2", .[A65536].End(3)).Resize(, 3).Value
End With
For Each sh In ThisWorkbook.Worksheets
   If Replace(LCase(sh.Name), " ", "") <> "maythicong" Then
      sArr = sh.Range("A2", sh.[A65536].End(3)).Resize(, 9).Value
      ReDim Res(1 To UBound(sArr), 1 To 1)
      For i = 1 To UBound(sArr)
         If sArr(i, 9) <> Empty Then
            For ii = 1 To UBound(MayThiCong)
               If sArr(i, 9) Like "*" & MayThiCong(ii, 2) & "*" Then
                  Res(i, 1) = MayThiCong(ii, 3)
               End If
            Next
         End If
      Next
      sh.[T2].Resize(UBound(Res), UBound(Res, 2)) = Res
   End If
Next
End Sub

Thầy giúp em vấn đề ẩn cột em nêu ở bài #24 ạ!

 

[Ba Tê]

Em nghĩ không dùng Dic có vẻ gọn hơn. Không biết là em có thiếu sót gì không. Viết vui thôi chứ không test kỹ

Sub Do_Tim_May_Thi_Cong()
Dim sh As Worksheet, MayThiCong(), sArr(), i As Long, ii As Long, Res()
With Sheets("May Thi Cong")
   MayThiCong = .Range("A2", .[A65536].End(3)).Resize(, 3).Value
End With
For Each sh In ThisWorkbook.Worksheets
   If Replace(LCase(sh.Name), " ", "") <> "maythicong" Then
      sArr = sh.Range("A2", sh.[A65536].End(3)).Resize(, 9).Value
      ReDim Res(1 To UBound(sArr), 1 To 1)
      For i = 1 To UBound(sArr)
         If sArr(i, 9) <> Empty Then
            For ii = 1 To UBound(MayThiCong)
               If sArr(i, 9) Like "*" & MayThiCong(ii, 2) & "*" Then
                  Res(i, 1) = MayThiCong(ii, 3)
               End If
            Next
         End If
      Next
      sh.[T2].Resize(UBound(Res), UBound(Res, 2)) = Res
   End If
Next
End Sub

Lúc đầu tôi cũng không dùng Dic, nhưng có loại Máy đầm cóc, Máy đầm ... cần liệt kê không trùng.

Bài đã được tự động gộp: 29/8/18

Thầy ơi rất đúng ý em, em làm phiền Thầy chút xíu nữa để hoàn thiện ạ! Cột cần ẩn và hiện là những cột thuộc sheet (Nha de xe, San be tong, Ranh nuoc, Nha hieu bo, Cot co) Các cột cần ẩn, cần hiện (em tô màu xanh) trong sheet nêu trên là cột “E, F, K, L, N, O, P” và các cột từ “U đến Y”
Em cám ơn Thầy, Thầy làm ơn giúp em nhé!

Tôi "bo" thêm ẩn hiện cột là làm theo yêu cầu bài #13:
"Thầy ơi! Em nhờ Thầy giúp em thêm chút xíu nữa cho hoàn thiện, Thầy giúp em ẩn những cột với điều kiện " tất cả các cột từ dòng thứ 2 trở xuống mà không có dữ liệu đều bị ẩn đi, xét trong vùng làm việc từ cột A đến cột Y."
Giờ thì bạn thay đổi yêu cầu?
Tôi hổng biết.
VN thua Hàn Quốc 1-3. Ngủ thôi!

 

[dangky47h]

Lúc đầu tôi cũng không dùng Dic, nhưng có loại Máy đầm cóc, Máy đầm ... cần liệt kê không trùng.

Bài đã được tự động gộp: 29/8/18

Tôi "bo" thêm ẩn hiện cột là làm theo yêu cầu bài #13:
"Thầy ơi! Em nhờ Thầy giúp em thêm chút xíu nữa cho hoàn thiện, Thầy giúp em ẩn những cột với điều kiện " tất cả các cột từ dòng thứ 2 trở xuống mà không có dữ liệu đều bị ẩn đi, xét trong vùng làm việc từ cột A đến cột Y."
Giờ thì bạn thay đổi yêu cầu?
Tôi hổng biết.
VN thua Hàn Quốc 1-3. Ngủ thôi!

Hi, Thầy cố giúp em nhé! lần sau Việt Nam sẽ thắng Thầy ơi!

 

[Quang_Hải]

Thầy giúp em vấn đề ẩn cột em nêu ở bài #24 ạ!

Bạn nên tập viết code theo yêu cầu của riêng mình
Mình viết mẫu cho bạn 2 code ẩn hiện cột trong sheet hiện hành. Bạn có thể tự phát triển theo ý riêng
Ai cũng có việc phải làm để kiếm cơm nên không thể giúp mình mãi đâu

Sub An()
Union([E1], [F1], [K1:L1]).EntireColumn.Hidden = True
End Sub
Sub Hien()
Union([E1], [F1], [K1], [L1]).EntireColumn.Hidden = False
End Sub

 

[dangky47h]

Bạn nên tập viết code theo yêu cầu của riêng mình
Mình viết mẫu cho bạn 2 code ẩn hiện cột trong sheet hiện hành. Bạn có thể tự phát triển theo ý riêng
Ai cũng có việc phải làm để kiếm cơm nên không thể giúp mình mãi đâu

Sub An()
Union([E1], [F1], [K1:L1]).EntireColumn.Hidden = True
End Sub
Sub Hien()
Union([E1], [F1], [K1], [L1]).EntireColumn.Hidden = False
End Sub

Dạ em cám ơn Thầy ạ!