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ự) (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Bùi Thúy Thúy

Bùi Thúy Thúy

Thành viên thường trực
Tham gia
2/7/18
Bài viết
290
Được thích
38
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!
tinh co.jpg
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bùi Thúy Thúy đã viết:
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!
View attachment 202731
Nhấp chuột vào đây để mở rộng...
File thực tế của bạn có bao nhiêu sheet, và có bao nhiêu sheet cần thực hiện việc ẩn/hiện cột này, các sheet này luôn nằm ở phía trước trong danh sách các sheet hay là nằm xen kẽ với các sheet không có cấu trúc giống vậy?
 
Upvote 0
nghiaphuc đã viết:
File thực tế của bạn có bao nhiêu sheet, và có bao nhiêu sheet cần thực hiện việc ẩn/hiện cột này, các sheet này luôn nằm ở phía trước trong danh sách các sheet hay là nằm xen kẽ với các sheet không có cấu trúc giống vậy?
Nhấp chuột vào đây để mở rộng...
Dạ! vì tính chất công việc của em các sheet có nội dung tương tự nhau không cố định Thầy ạ! (tầm 5 đến 10 sheet) và 02 sheet có nội dung tách biệt như em đã đính kèm file ở bài #1
Thầy cho ý kiến em đính chính lại như sau: trong file ví dụ em đã nêu:
- 02 sheet (màu tím) nằm ở vị 02 vị trí đầu tiên, 02 sheet( "Tong vat tu" và Sheet"Quan trong") này có cấu trúc cũng không giống nhau và có cấu trúc không tương tự các sheet còn lại.
- 03 sheet(màu đỏ) nằm ở 3 vị trí cuối cùng, có cấu trúc khác với 2 sheet đầu tiên và 03 sheet này có cấu trúc giống nhau (tiêu đề các cột giống nhau, nhưng số dòng có sheet nhiều dòng, sheet ít dòng hơn) là "Nha o, san nha, Vuon ao"
các sheet có vị trí sắp xếp như ở bài #1.
Em xin ý tưởng của Thầy và nhờ Thầy giúp em theo hướng có thể ứng dụng linh hoạt nếu số sheet có nội dung tương tự thay đổi!
Em cám ơn Thầy!
 
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viết:
Dạ! vì tính chất công việc của em các sheet có nội dung tương tự nhau không cố định Thầy ạ! (tầm 5 đến 10 sheet) và 02 sheet có nội dung tách biệt như em đã đính kèm file ở bài #1
Thầy cho ý kiến em đính chính lại như sau: trong file ví dụ em đã nêu:
- 02 sheet (màu tím) có nội dung không tương tự các sheet còn lại là sheet "Tong vat tu" và Sheet"Quan trong"
- 03 sheet(màu đỏ) có cấu trúc giống nhau (tiêu đề các cột giống nhau, nhưng số dòng có sheet nhiều dòng, sheet ít dòng hơn) là "Nha o, san nha, Vuon ao"
các sheet có vị trí sắp xếp như ở bài #1.
Em xin ý tưởng của Thầy và nhờ Thầy giúp em theo hướng có thể ứng dụng linh hoạt nếu số sheet có nội dung tương tự thay đổi!
Em cám ơn Thầy!
Nhấp chuột vào đây để mở rộng...
Bạn thử code sau xem:
Mã: 
Sub Hide_Unhide()
    Dim Ws As Worksheet, Flag As Boolean
    Flag = Not (Sheets("Nha o").Range("E:F").EntireColumn.Hidden)
    For Each Ws In ThisWorkbook.Worksheets
        If InStr(".Tong vat tu.quan trong.", Ws.Name) = 0 Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Flag
        End If
    Next
End Sub
Nên gán cho nó một phím tắt (Ctrl+Shift+A chẳng hạn), mỗi lần cần dùng thì nhấn cái bụp là nó chạy.
 
Upvote 0
nghiaphuc đã viết:
Bạn thử code sau xem:
Mã: 
Sub Hide_Unhide()
    Dim Ws As Worksheet, Flag As Boolean
    Flag = Not (Sheets("Nha o").Range("E:F").EntireColumn.Hidden)
    For Each Ws In ThisWorkbook.Worksheets
        If InStr(".Tong vat tu.quan trong.", Ws.Name) = 0 Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Flag
        End If
    Next
End Sub
Nên gán cho nó một phím tắt (Ctrl+Shift+A chẳng hạn), mỗi lần cần dùng thì nhấn cái bụp là nó chạy.
Nhấp chuột vào đây để mở rộng...
Dạ code chạy ổn rồi ạ! Thầy cho em hỏi thêm chút nữa em muốn tạo kiểu hộp điều khiển
Tích vào thì Ẩn cột còn bỏ dấu tích thì hiện cột, Thầy giúp em ạ!54435.jpg
 
Upvote 0
Bùi Thúy Thúy đã viết:
Dạ code chạy ổn rồi ạ! Thầy cho em hỏi thêm chút nữa em muốn tạo kiểu hộp điều khiển
Tích vào thì Ẩn cột còn bỏ dấu tích thì hiện cột, Thầy giúp em ạ!View attachment 202738
Nhấp chuột vào đây để mở rộng...
Bạn nhấp đúp vào cái Checkbox này và sử dụng code sau:
Mã: 
Private Sub CheckBox1_Click()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If InStr(".Tong vat tu.quan trong.", Ws.Name) = 0 Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Not CheckBox1
        End If
    Next
End Sub
 
Upvote 0
nghiaphuc đã viết:
Bạn nhấp đúp vào cái Checkbox này và sử dụng code sau:
Mã: 
Private Sub CheckBox1_Click()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If InStr(".Tong vat tu.quan trong.", Ws.Name) = 0 Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Not CheckBox1
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi Còn thiếu chữ "Ẩn/Hiện" nữa ạ
 
Upvote 0
Upvote 0
♫ђöล♥ßล†♥†µ♫ đã viết:
Anh ơi Còn thiếu chữ "Ẩn/Hiện" nữa ạ
Nhấp chuột vào đây để mở rộng...
nghiaphuc đã viết:
Bạn nhấp đúp vào cái Checkbox này và sử dụng code sau:
Mã: 
Private Sub CheckBox1_Click()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If InStr(".Tong vat tu.quan trong.", Ws.Name) = 0 Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Not CheckBox1
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ, em cảm ơn Thầy ạ!
Em xin ý kiến Thầy chút nữa!
Có cách nào mà khi em thêm sheet có cấu trúc tương tự với sheet còn lại (như bài #1 em đã nêu) mà không phải chỉnh tên sheet trong đoạn mã code không ạ!
 
Upvote 0
Bùi Thúy Thúy đã viết:
Dạ, em cảm ơn Thầy ạ!
Em xin ý kiến Thầy chút nữa!
Có cách nào mà khi em thêm sheet có cấu trúc tương tự với sheet còn lại (như bài #1 em đã nêu) mà không phải chỉnh tên sheet trong đoạn mã code không ạ!
Nhấp chuột vào đây để mở rộng...
Nếu không muốn chỉnh trong code thì có lẽ là sẽ lấy 1 sheet làm chuẩn (sheet "Nha o" chẳng hạn), lấy tiêu đề các cột của sheet này đưa vào một mảng Tmp. Khi duyệt qua mỗi sheet Ws thì so sánh tiêu đề của sheet này với các phần tử của mảng Tmp, nếu phát hiện có tiêu đề không trùng khớp thì bỏ qua sheet Ws mà không thực hiện ẩn/hiện cột.
 
Upvote 0
nghiaphuc đã viết:
Nếu không muốn chỉnh trong code thì có lẽ là sẽ lấy 1 sheet làm chuẩn (sheet "Nha o" chẳng hạn), lấy tiêu đề các cột của sheet này đưa vào một mảng Tmp. Khi duyệt qua mỗi sheet Ws thì so sánh tiêu đề của sheet này với các phần tử của mảng Tmp, nếu phát hiện có tiêu đề không trùng khớp thì bỏ qua sheet Ws mà không thực hiện ẩn/hiện cột.
Nhấp chuột vào đây để mở rộng...
Vâng ạ! Em hỏi Thầy vậy bởi vì tính chất công việc em làm thay đổi tên sheet và số Sheet liên tục.
Thầy làm ơn giúp em như cách Thầy vừa nêu ở bài số #11 được không ạ!
Em gà quá ^^^^ nên Thầy cho ý tưởng cũng chưa thể thực hiện được.
Mong nhận được sự hồi âm của Thầy.
 
Upvote 0
Bùi Thúy Thúy đã viết:
Vâng ạ! Em hỏi Thầy vậy bởi vì tính chất công việc em làm thay đổi tên sheet và số Sheet liên tục.
Thầy làm ơn giúp em như cách Thầy vừa nêu ở bài số #11 được không ạ!
Em gà quá ^^^^ nên Thầy cho ý tưởng cũng chưa thể thực hiện được.
Mong nhận được sự hồi âm của Thầy.
Nhấp chuột vào đây để mở rộng...
Thế này chẳng hạn này:
Mã: 
Sub Hide_Unhide()
    Dim Ws As Worksheet, Flag As Boolean, i As Long, Tmp
    Tmp = Sheets(1).Range("A1:Y1").Value
    Flag = Not (Sheets(1).Range("E:F").EntireColumn.Hidden)
    For Each Ws In ThisWorkbook.Worksheets
        For i = 1 To UBound(Tmp,2)
            If Ws.Cells(1, i) <> Tmp(1, i) Then Exit For
        Next
        If i > UBound(Tmp,2) Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Flag
        End If
    Next
End Sub
Điều kiện để code chạy đúng là cái sheet mà bạn "lấy làm chuẩn" phải được đưa lên đầu tiên giống như sheet "Nha o" trong file ở bài 1, vì tiêu đề và thuộc tính ẩn/hiện sẽ dựa vào sheet này.
 
Lần chỉnh sửa cuối:
Upvote 0
nghiaphuc đã viết:
Thế này chẳng hạn này:
Mã: 
Sub Hide_Unhide()
    Dim Ws As Worksheet, Flag As Boolean, i As Long, Tmp
    Tmp = Sheets(1).Range("A1:Y1").Value
    Flag = Not (Sheets(1).Range("E:F").EntireColumn.Hidden)
    For Each Ws In ThisWorkbook.Worksheets
        For i = 1 To UBound(Tmp)
            If Ws.Cells(1, i) <> Tmp(1, i) Then Exit For
        Next
        If i > UBound(Tmp) Then
            Ws.Range("E:F,K:L,N:O,U:Y").EntireColumn.Hidden = Flag
        End If
    Next
End Sub
Điều kiện để code chạy đúng là cái sheet mà bạn "lấy làm chuẩn" phải được đưa lên đầu tiên giống như sheet "Nha o" trong file ở bài 1, vì tiêu đề và thuộc tính ẩn/hiện sẽ dựa vào sheet này.
Nhấp chuột vào đây để mở rộng...
Em cám ơn Thầy ạ!
Chúc Thầy sức khỏe và nhiều niềm vui!
 
Upvote 0
nghiaphuc đã viết:
Tôi mới sửa một chút, chỗ Ubound(Tmp) sửa thành Ubound(Tmp,2) mới chính xác.
Nhấp chuột vào đây để mở rộng...
Thầy ơi, em có tham khảo bài viết của Thầy Ba Tê có đoạn code ẩn và hiện cột, em muốn chỉnh lại code đó để ẩn và hiện cột như em muố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”
Nhưng khi nhìn đoạn code (code ẩn/hiện cột) Thầy Ba Tê viết giúp em, em không biết chỉnh ở phần nào để có thể ẩn như mình muốn.
Thầy giúp em mới ạ!hoan thien.jpg
 

File đính kèm

Upvote 0
Bùi Thúy Thúy đã viết:
Thầy ơi, em có tham khảo bài viết của Thầy @Ba Tê có đoạn code ẩn và hiện cột, em muốn chỉnh lại code đó để ẩn và hiện cột như em muố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”
Nhưng khi nhìn đoạn code (code ẩn/hiện cột) Thầy @Ba Tê viết giúp em, em không biết chỉnh ở phần nào để có thể ẩn như mình muốn.
Nhấp chuột vào đây để mở rộng...
Nick này và @dangky47h có liên quan gì không?
https://www.giaiphapexcel.com/diend...thứ-tự-stt-sau-khi-ẩn-dòng.137042/post-877484
PHP: 
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
 
Upvote 0
Ba Tê đã viết:
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
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
Ba Tê đã viết:
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
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
nghiaphuc đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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é! :yeah: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!
 
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viế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.
Nhấp chuột vào đây để mở rộng...
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?
 
Upvote 0
Ba Tê đã viết:
Code gởi trong bài #18 "chành bành" ra rồi đó, còn gì nữa đâu.
Nhấp chuột vào đây để mở rộng...
À 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:

Ba Tê đã viết:
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?
Nhấp chuột vào đây để mở rộng...
Thầy giúp chị ý đó!
 
Upvote 0
dangky47h đã viế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
Nhấp chuột vào đây để mở rộng...

dangky47h đã viết:
Thầy giúp chị ý đó!
Nhấp chuột vào đây để mở rộng...

"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.
 
Upvote 0
Upvote 0
Ba Tê đã viết:
"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.
Nhấp chuột vào đây để mở rộng...
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...:vampire:
 
Upvote 0
Ba Tê đã viết:
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
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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:

Ba Tê đã viết:
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
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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 ạ!
 
Lần chỉnh sửa cuối:
Upvote 0
Ba Tê đã viết:
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
PHP: 
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
Nhấp chuột vào đây để mở rộng...
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é!
 
Upvote 0
Bùi Thúy Thúy đã viế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é!
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
Ba Tê đã viết:
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.
Nhấp chuột vào đây để mở rộng...
Dạ, được rồi Thầy ạ! đã hết buồn, hi....chúc Thầy buổi tối vui vẻ!
 
Upvote 0
Ba Tê đã viết:
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.
Nhấp chuột vào đây để mở rộng...
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!
nhat ky moi.jpg
 

File đính kèm

Upvote 0
Bùi Thúy Thúy đã viết:
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
Nhấp chuột vào đây để mở rộng...
Uổi. Vậy là đúng như mình nói ở bài 42 của cái topic kia roài :wiggle:
 
Upvote 0
Bùi Thúy Thúy đã viế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ấp chuột vào đây để mở rộng...
"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".
 

File đính kèm

Upvote 0
Ba Tê đã viết:
"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".
Nhấp chuột vào đây để mở rộ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 ạ!
Em cám ơn Thầy!
 
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viế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!
Nhấp chuột vào đây để mở rộng...
Bài đó là "nốt" theo ý bạn bài #31 rồi.
 
Upvote 0
Ba Tê đã viết:
"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".
Nhấp chuột vào đây để mở rộng...
Ba Tê đã viết:
Bài đó là "nốt" theo ý bạn rồi.
Nhấp chuột vào đây để mở rộng...
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 ạ!
 
Upvote 0
Ba Tê đã viết:
"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".
Nhấp chuột vào đây để mở rộng...
Không phải đâu Thầy ơi. Họ là Chủ Đầu Tư mờ
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Bùi Thúy Thúy đã viế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.
Nhấp chuột vào đây để mở rộng...
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?
Bùi Thúy Thúy đã viế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 ạ!
Nhấp chuột vào đây để mở rộng...
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á.
 

File đính kèm

Upvote 0
Ba Tê đã viết:
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?

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á.
Nhấp chuột vào đây để mở rộng...
Dạ em cám ơn Thầy! được rồi ạ! chúc Thầy sức khỏe và nhiều may mắn!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả. (5 người xem)
Trả lời
2
Đọc
79
minhminh27
minhminh27
Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc (2 người xem)
Trả lời
4
Đọc
506
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
382
Đọc
45K
TomRuoi
TomRuoi
NguyenthiH
Mở file Excel có Pass Open (1 người xem)
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng (1 người xem)
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
416
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên
Trả lời
6
Đọc
302
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ.
Trả lời
10
Đọc
199
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno (1 người xem)
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế (1 người xem)
    • Yêu thích
    • Thích
Trả lời
1
Đọc
329
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến (1 người xem)
Trả lời
28
Đọc
2K
nguyendang95
N
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
13
Đọc
283
dazkangel
dazkangel
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
5
Đọc
289
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
114
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
346
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
702
nguyendang95
N
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
151
Nga1852k
Nga1852k
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom