Em xin nhờ sự giúp đỡ về ẩn và hiện đồng loạt tất cả các cột (chỉ xét sheet có nội dung tương tự)

[Bùi Thúy Thúy]

Em muốn xin code để ẩn và hiện đồng loạt tất cả các cột trong các sheet với điều kiện sau:

1. Các Sheet được xét đến để ẩn và hiện cột đều có nội dung tương tự (tức là các cột tiêu đề giống nhau ) còn các sheet khác không có nội dung tương tự vậy sẽ không tác động đến, ví dụ: chỉ xét đên các sheet (Nha o, san nha, Vuon ao), các sheet (Tong vat tu, quan trong) còn lại do không có nội dung tương tự nhau nên không tính đến,
2. Tạo nút maccro (kiểu khi ấn vào nút điều khiển sẽ chạy code để ẩn các cột, và khi nhấn nút điều khiển lần nữa sẽ hiện các cột được ẩn)

Các cột được xét đến để ẩn/hiện trong các sheet có nội dung tương tự là: “E, F, K, L, N, O” và từ “cột U đến cột Y”
Em xin cám ơn!

 

[Bùi Thúy Thúy]

Chắc là chị em sinh đôi đó bác, chỉ nhìn cái file đính kèm là có câu trả lời rồi.

Sinh không đôi nhưng cùng công việc ạ! nên nhìu khi nhờ các Thầy, các Thầy bận quá em lại sang chị ấy để xin nhờ các thầy giúp!
Thầy nghiaphuc giúp em nhé! Thầy Ba Tê nay buồn vì Việt Nam thua Hàn Quốc, thực sự vấn đề bọn em rất muốn các Thầy giúp đỡ để hoàn thành công việc, từ hồi tham gia GPE em ngày nào cũng vào, GPE rất thiết thực với công việc của em và giúp em học hỏi được rất nhiều, em cám ơn GPE và cám ơn các Thầy nữa..... khi nào hết buồn Thầy "bo" giúp chị em nốt vấn đề đó nhé Thầy!

 

[Ba Tê]

Có đôi chút à, cùng chiến hào thưa Thầy, đội tuyển lắp ghép, gom nhặt kiến thức trên GPE và là đồng nghiệp. Bạn ấy là Chị em Thầy ạ! Thầy giúp chị ấy nhé! cũng là giúp em.

Code gởi trong bài #18 "chành bành" ra rồi đó, thay vào file bài #17 thì còn gì nữa?

 

[dangky47h]

Code gởi trong bài #18 "chành bành" ra rồi đó, còn gì nữa đâu.

À hi....bài #24 của chị em đó Thầy"
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/page-2#post-877542

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

Code gởi trong bài #18 "chành bành" ra rồi đó, thay vào file bài #17 thì còn gì nữa?

Thầy giúp chị ý đó!

 

[Ba Tê]

À hi....bài #24 của chị dangky47h đó Thầy"
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/page-2#post-877542

Thầy giúp chị ý đó!

"Chời ơi"!
Bài #24 của "chị gì đó" topic kia với bài #17 của "chị gì đó" topic này là một.

"Chị gì đó" bên kia tôi "chạy" rồi. Nếu chịu khó tìm tới bài này thì xong.

 

[dangky47h]

"Chời ơi"!
Bài #24 của "chị gì đó" topic kia với bài #17 của "chị gì đó" topic này là một.
Thầy giúp em bài #24 này ạ!
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/page-2#post-877542

 

[Bùi Thúy Thúy]

"Chời ơi"!
Bài #24 của "chị gì đó" topic kia với bài #17 của "chị gì đó" topic này là một.

"Chị gì đó" bên kia tôi "chạy" rồi. Nếu chịu khó tìm tới bài này thì xong.

Dạ! đúng rồi Thầy ạ! Thầy giúp bọn e ạ! Thầy cứ sang #24 của chị ấy cho dễ ạ! vì Chị ấy tưởng Thầy "buồn" nên bảo em nhờ Thầy giúp hiii...

 

[Bùi Thúy Thúy]

Nick này và @dangky47h có liên quan gì không?
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/post-877484

Public Sub AnCot()
Dim Wf As Object, Ws As Worksheet, Arr, J As Long
Set Wf = Application.WorksheetFunction
Arr = Array(5, 6, 11, 12, 14, 15, 16, 21, 22, 23, 24, 25)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "May thi cong" Then
        With Ws
            For J = LBound(Arr) To UBound(Arr)
                If Wf.CountA(.Range(.Cells(2, Arr(J)), .Cells(1000, Arr(J)))) = 0 Then
                    .Cells(2, Arr(J)).EntireColumn.Hidden = True
                End If
            Next J
        End With
    End If
Next Ws
Set Wf = Nothing
MsgBox "Xong!", , "GPE"
End Sub

Em cám ơn Thầy! chúc Thầy buổi tối hết nỗi buồn!

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

Nick này và @dangky47h có liên quan gì không?
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/post-877484

Public Sub AnCot()
Dim Wf As Object, Ws As Worksheet, Arr, J As Long
Set Wf = Application.WorksheetFunction
Arr = Array(5, 6, 11, 12, 14, 15, 16, 21, 22, 23, 24, 25)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "May thi cong" Then
        With Ws
            For J = LBound(Arr) To UBound(Arr)
                If Wf.CountA(.Range(.Cells(2, Arr(J)), .Cells(1000, Arr(J)))) = 0 Then
                    .Cells(2, Arr(J)).EntireColumn.Hidden = True
                End If
            Next J
        End With
    End If
Next Ws
Set Wf = Nothing
MsgBox "Xong!", , "GPE"
End Sub

Thầy ơi, cho em thêm cái"hiện các cột đã bị ẩn" nữa ạ!
Như cái ban đầu Thầy giúp có cả ẩn/hiện ạ!

 

[Bùi Thúy Thúy]

Nick này và @dangky47h có liên quan gì không?
https://www.giaiphapexcel.com/diendan/threads/em-xin-được-sự-giúp-đỡ-Ẩn-dòng-và-tự-động-đánh-lại-số-thứ-tự-stt-sau-khi-ẩn-dòng.137042/post-877484

Public Sub AnCot()
Dim Wf As Object, Ws As Worksheet, Arr, J As Long
Set Wf = Application.WorksheetFunction
Arr = Array(5, 6, 11, 12, 14, 15, 16, 21, 22, 23, 24, 25)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "May thi cong" Then
        With Ws
            For J = LBound(Arr) To UBound(Arr)
                If Wf.CountA(.Range(.Cells(2, Arr(J)), .Cells(1000, Arr(J)))) = 0 Then
                    .Cells(2, Arr(J)).EntireColumn.Hidden = True
                End If
            Next J
        End With
    End If
Next Ws
Set Wf = Nothing
MsgBox "Xong!", , "GPE"
End Sub

Thầy Ba Tê ơi đã hết buồn chưa ạ! Thầy khi nào ghé diễn đàn giúp em vấn đề cho nó hiện cột đã ẩn lên "ẩn/hiện" (Thầy đã cho code ẩn rồi, xin Thầy giúp em cái hiện lên như ban đầu chưa ẩn nữa) ở bài #18 Thầy nhé!

 

[Ba Tê]

Thầy Ba Tê ơi đã hết buồn chưa ạ! Thầy khi nào ghé diễn đàn giúp em vấn đề cho nó hiện cột đã ẩn lên "ẩn/hiện" (Thầy đã cho code ẩn rồi, xin Thầy giúp em cái hiện lên như ban đầu chưa ẩn nữa) ở bài #18 Thầy nhé!

Quá sợ bạn rồi.
File bài #17 có 3 cái nút.
Mở file, Alt+F11, vào Module, thay cái Sub AnCot() cũ bằng cái mới trên bài #18. Xong!
Nút Hiện Cột đã có Sub HienCot(), vẫn xài được mà.
Có file bải #17, có Sub bài #18.
Bạn làm thử xem, chừng nào vẫn không làm được thì ... tiếp tục "buồn" nữa.

 

[Bùi Thúy Thúy]

Quá sợ bạn rồi.
File bài #17 có 3 cái nút.
Mở file, Alt+F11, vào Module, thay cái Sub AnCot() cũ bằng cái mới trên bài #18. Xong!
Nút Hiện Cột đã có Sub HienCot(), vẫn xài được mà.
Có file bải #17, có Sub bài #18.
Bạn làm thử xem, chừng nào vẫn không làm được thì ... tiếp tục "buồn" nữa.

Dạ, được rồi Thầy ạ! đã hết buồn, hi....chúc Thầy buổi tối vui vẻ!

 

[Bùi Thúy Thúy]

Quá sợ bạn rồi.
File bài #17 có 3 cái nút.
Mở file, Alt+F11, vào Module, thay cái Sub AnCot() cũ bằng cái mới trên bài #18. Xong!
Nút Hiện Cột đã có Sub HienCot(), vẫn xài được mà.
Có file bải #17, có Sub bài #18.
Bạn làm thử xem, chừng nào vẫn không làm được thì ... tiếp tục "buồn" nữa.

Em chào Thầy, Thầy ơi em có vấn đề này xin Thầy giúp em chút ạ!
Vẫn là vấn đề nhật ký thi công, nhưng giao diện có thay đổi (cấu trúc của nhật ký thay đổi do yêu cầu của chủ đầu tư phải thay đổi lại, em không biết làm sao, làm phiền Thầy chút xíu nữa! ):
Cụ thể như sau:
1. Máy móc được lấy từ sheet “May thi cong”, tên máy được lấy tương ứng với nội dung công việc ở các dòng của cột D trong sheet ( San be tong, Nha vuon) để điền vào ngày thi công tương ứng ở “cột H” của sheet ( San be tong, Nha vuon) (điền vào dòng chứa ngày thi công và ở cột H, không điền mày móc vào dòng chứa nội dung thi công) máy móc được tổng hợp được ngăn cách bởi dấu ";" và dấu cách, các máy trùng nhau chỉ được điền 1 lần.
2. Thời tiết ở “cột I” của sheet (San be tong, Nha vuon) sẽ được lấy từ “cột I” của sheet (TH_Thoitiet) tương ứng với các ngày.
Em xin được sự giúp đỡ của Thầy!

 

[♫ђöล♥ßล†♥†µ♫]

Em chào Thầy, Thầy ơi em có vấn đề này xin Thầy giúp em chút ạ!
Vẫn là vấn đề nhật ký thi công, nhưng giao diện có thay đổi (cấu trúc của nhật ký thay đổi do yêu cầu của chủ đầu tư phải thay đổi lại, em không biết làm sao, làm phiền Thầy chút xíu nữa! ):
Cụ thể như sau:
1. Máy móc được lấy từ sheet “May thi cong”, tên máy được lấy tương ứng với nội dung công việc ở các dòng của cột D trong sheet ( San be tong, Nha vuon) để điền vào ngày thi công tương ứng ở “cột H” của sheet ( San be tong, Nha vuon) (điền vào dòng chứa ngày thi công và ở cột H, không điền mày móc vào dòng chứa nội dung thi công) máy móc được tổng hợp được ngăn cách bởi dấu ";" và dấu cách, các máy trùng nhau chỉ được điền 1 lần.
2. Thời tiết ở “cột I” của sheet (San be tong, Nha vuon) sẽ được lấy từ “cột I” của sheet (TH_Thoitiet) tương ứng với các ngày.
Em xin được sự giúp đỡ của Thầy!
View attachment 203169

Uổi. Vậy là đúng như mình nói ở bài 42 của cái topic kia roài

 

[Bùi Thúy Thúy]

Uổi. Vậy là đúng như mình nói ở bài 42 của cái topic kia roài

Không chị ơi, 2 bài khác nhau ạ! không giống đâu ạ!

 

[Ba Tê]

1. Máy móc được lấy từ sheet “May thi cong”, tên máy được lấy tương ứng với nội dung công việc ở các dòng của cột D trong sheet ( San be tong, Nha vuon) để điền vào ngày thi công tương ứng ở “cột H” của sheet ( San be tong, Nha vuon) (điền vào dòng chứa ngày thi công và ở cột H, không điền mày móc vào dòng chứa nội dung thi công) máy móc được tổng hợp được ngăn cách bởi dấu ";" và dấu cách, các máy trùng nhau chỉ được điền 1 lần.
2. Thời tiết ở “cột I” của sheet (San be tong, Nha vuon) sẽ được lấy từ “cột I” của sheet (TH_Thoitiet) tương ứng với các ngày.

"Nhà đầu tư" này rảnh quá nhỉ? Mỗi ngày nghĩ ra 1 biểu mẫu, chắc tại vì biết bạn làm việc "siêu hiệu quả" nên mới thế.
Tôi chỉ lấy dữ liệu cho 2 sheet "San be tong" và "Nha vuon" theo yêu cầu, và chắc đây cũng là lần "nốt".

 

[Bùi Thúy Thúy]

"Nhà đầu tư" này rảnh quá nhỉ? Mỗi ngày nghĩ ra 1 biểu mẫu, chắc tại vì biết bạn làm việc "siêu hiệu quả" nên mới thế.
Tôi chỉ lấy dữ liệu cho 2 sheet "San be tong" và "Nha vuon" theo yêu cầu, và chắc đây cũng là lần "nốt".

Vâng, em cám ơn Thầy rất nhiều, Thầy cho em thỉnh cầu lần cuối: như lần trước Thầy giúp em, em chỉ cần thêm sheet bất kỳ nào có cấu trúc tương tự thì đều ok.
Ở bài này em thêm 1 sheet hoặc nhiều hơn 1 sheet cấu trúc tương tự như 2 sheet kia vào thì sửa code như thế nào để có thể như 2 sheet "Sàn bê tông" và "Nhà vườn" được ạ!
Em cám ơn Thầy!

 

[Ba Tê]

Vâng, em cám ơn Thầy rất nhiều, Thầy cho em thỉnh cầu lần cuối: như lần trước Thầy giúp em, em chỉ cần thêm sheet bất kỳ nào có cấu trúc tương tự thì đều ok.
Ở bài này em thêm 1 sheet hoặc nhiều hơn 1 sheet cấu trúc tương tự như 2 sheet kia vào thì sửa code như thế nào để có thể như 2 sheet "Sàn bê tông" và "Nhà vườn" được ạ!
Em cám ơn Thầy!

Bài đó là "nốt" theo ý bạn bài #31 rồi.

 

[Bùi Thúy Thúy]

"Nhà đầu tư" này rảnh quá nhỉ? Mỗi ngày nghĩ ra 1 biểu mẫu, chắc tại vì biết bạn làm việc "siêu hiệu quả" nên mới thế.
Tôi chỉ lấy dữ liệu cho 2 sheet "San be tong" và "Nha vuon" theo yêu cầu, và chắc đây cũng là lần "nốt".

Bài đó là "nốt" theo ý bạn rồi.

Vâng cái đó thực sự e rất cần, bởi vì như vậy em mới áp dụng được ạ! mong Thầy giúp em ạ!

 

[♫ђöล♥ßล†♥†µ♫]

"Nhà đầu tư" này rảnh quá nhỉ? Mỗi ngày nghĩ ra 1 biểu mẫu, chắc tại vì biết bạn làm việc "siêu hiệu quả" nên mới thế.
Tôi chỉ lấy dữ liệu cho 2 sheet "San be tong" và "Nha vuon" theo yêu cầu, và chắc đây cũng là lần "nốt".

Không phải đâu Thầy ơi. Họ là Chủ Đầu Tư mờ

 

[Bùi Thúy Thúy]

Bài đó là "nốt" theo ý bạn bài #31 rồi.

Thầy ơi! giuspe

Không phải đâu Thầy ơi. Họ là Chủ Đầu Tư mờ[/QUOTn
Chị làm ơn nhờ Thầy giúp em đi ạ!

 

[Ba Tê]

Vâng, em cám ơn Thầy rất nhiều, Thầy cho em thỉnh cầu lần cuối: như lần trước Thầy giúp em, em chỉ cần thêm sheet bất kỳ nào có cấu trúc tương tự thì đều ok.

Muốn có tác dụng với sheet nào thì nhập tên các sheet đó vào cột F sheet "May thi cong" như tôi đã làm cho dễ nhìn, dễ hiểu, sao phải bắt duyệt xem sheet "có cấu trúc tương tự" hay không?

Vâng, em cám ơn Thầy rất nhiều, Thầy cho em thỉnh cầu lần cuối: như lần trước Thầy giúp em, em chỉ cần thêm sheet bất kỳ nào có cấu trúc tương tự thì đều ok.
Ở bài này em thêm 1 sheet hoặc nhiều hơn 1 sheet cấu trúc tương tự như 2 sheet kia vào thì sửa code như thế nào để có thể như 2 sheet "Sàn bê tông" và "Nhà vườn" được ạ!

Bài #31 nếu nói rõ thì xong luôn rồi, bạn tính là chỉ nói 2 sheet thôi rồi bạn tự thêm được?
Nếu bạn biết đọc code thì đã tự thêm được rồi, từ 2 ô F1, F2 trong sheet "May thi cong" thành bao nhiêu ô tùy ý.
Chỉ một chuyện mà gần 40 bài chưa chắc đã xong là do bạn diễn đạt yêu cầu "lu xu bu" quá.