VBA Ẩn cột theo điều kiện

MeThuongNho · 25/11/17

Dear Anh/Chị,
Giúp em cái code VBA ẩn cột giúp em.
1 code chung hoặc 2 code riêng cũng được.
Mục đích : muốn khi chạy code:
1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)
Cám ơn mợi người giúp đỡ.

MeThuongNho · 11/1/18

maiban1986 đã viết:
xin bạn hướng dẫn làm với các sheet khác

Sheet đang làm: Khu vực hiển thị là sheet 3: code
2 Code trong Modules như sau:

Mã:

Sub HideColumns()
    Dim Rng As Range, Cll As Range, i As Long
    For Each Cll In Sheet3.Range("B3:HG3")
        If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
            i = i + 1
            If i = 1 Then
                Set Rng = Cll
            Else
                Set Rng = Union(Rng, Cll)
            End If
        End If
    Next Cll
Rng.EntireColumn.Hidden = True
End Sub

Sub ShowColumns()
    Sheet3.Range("B3:HG3").EntireColumn.Hidden = False
End Sub

Rồi trong sheet 3 đó bạn gán cán code này cho CommandButton , Code sau:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

Làm tương tự cho sheet bạn muốn làm nha.
Thân!

maiban1986 · 11/1/18

MeThuongNho đã viết:

Sheet đang làm: Khu vực hiển thị là sheet 3: code
2 Code trong Modules như sau:

Mã:

Sub HideColumns()
    Dim Rng As Range, Cll As Range, i As Long
    For Each Cll In Sheet3.Range("B3:HG3")
        If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
            i = i + 1
            If i = 1 Then
                Set Rng = Cll
            Else
                Set Rng = Union(Rng, Cll)
            End If
        End If
    Next Cll
Rng.EntireColumn.Hidden = True
End Sub

Sub ShowColumns()
    Sheet3.Range("B3:HG3").EntireColumn.Hidden = False
End Sub

Rồi trong sheet 3 đó bạn gán cán code này cho CommandButton , Code sau:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

Làm tương tự cho sheet bạn muốn làm nha.
Thân!

xin bạn hướng dẫn tạo lút lệnh

MeThuongNho · 11/1/18

maiban1986 đã viết:
xin bạn hướng dẫn tạo lút lệnh

Vào tab : Developer ( nếu không thấy tab này : searh google và mở ra: key: " mở thẻ Developer" chẳng hạn)
--> chọn Insert --> Chọn Commnand Button. ( đó là nút lệnh bạn cần).

maiban1986 · 11/1/18

MeThuongNho đã viết:
Vào tab : Developer ( nếu không thấy tab này : searh google và mở ra: key: " mở thẻ Developer" chẳng hạn)
--> chọn Insert --> Chọn Commnand Button. ( đó là nút lệnh bạn cần).

mình làm được rồi nhưng không thể gán 2 show và hide cùng 1 lúc vào lút lệnh được mong bạn hướng dẫn. xin cảm ơn

MeThuongNho · 11/1/18

Bạn gán cái code này vào Command Button đã tạo đó:

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowColumns
        CommandButton1.Caption = "Hide"
    Else
        Call HideColumns
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

maiban1986 · 11/1/18

nhờ bạn gán hộ mình vào sheet9 với cảm ơn bạn

MeThuongNho · 11/1/18

maiban1986 đã viết:
nhờ bạn gán hộ mình vào sheet9 với cảm ơn bạn

Upfile lên đi

maiban1986 · 11/1/18

MeThuongNho đã viết:
Upfile lên đi

xin gửi bạn

maiban1986 · 11/1/18

MeThuongNho đã viết:
Upfile lên đi

nếu được xin bạn cái video bạn làm thì hay quá vì mù tịt code. xin cảm ơn

MeThuongNho · 11/1/18

maiban1986 đã viết:
nếu được xin bạn cái video bạn làm thì hay quá vì mù tịt code. xin cảm ơn

Rảnh mình làm gửi sau nha.
Còn đây là file

maiban1986 · 11/1/18

MeThuongNho đã viết:
Rảnh mình làm gửi sau nha.
Còn đây là file

cảm ơn bạn đã giúp đỡ nhưng tạo lút lệnh mình không làm như bạn được

maiban1986 · 11/1/18

Cho xin file bạn ơi. Cảm ơn nhiều

maiban1986 · 12/1/18

MeThuongNho đã viết:
Rảnh mình làm gửi sau nha.
Còn đây là file

cho cho mình xin cái video tạo lút lệnh của bạn làm. mình làm mãi mà không được

NguyenNgocThuHien · 12/1/18

maiban1986 đã viết:
cho cho mình xin cái video tạo lút lệnh của bạn làm. mình làm mãi mà không được

Tự google đi bạn, cái này dễ mà. google

https://caprovn.wordpress.com/2015/03/02/tao-lenh-in-bang-macro-trong-excel/

Mình lại khuyên dùng shape thay nút bấm do áp dụng trên nhiều sheet ( nhưng phải code lại)

maiban1986 · 12/1/18

NguyenNgocThuHien đã viết:
Tự google đi bạn, cái này dễ mà. google

https://caprovn.wordpress.com/2015/03/02/tao-lenh-in-bang-macro-trong-excel/

Mình lại khuyên dùng shape thay nút bấm do áp dụng trên nhiều sheet ( nhưng phải code lại)

bạn ơi code kế tiếp của code này là gì vậy:
Sub HideFour()
Dim Rng As Range, Cll As Range, i As Long
For Each Cll In Sheet9.Range("B3:HG3")
If Cll.Value = 0 Or Len(Cll.Value) = 0 Then
i = i + 1
If i = 1 Then
Set Rng = Cll
Else
Set Rng = Union(Rng, Cll)
End If
End If
Next Cll
Rng.EntireColumn.Hidden = True
End Sub
Sub ShowFour()
Sheet9.Range("B3:HG3").EntireColumn.Hidden = False
End Sub
làm sao phải thay các chữ màu xanh chỉ cho mình với. xin cảm ơn bạn

MeThuongNho · 12/1/18

Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "Show" Then
        Call ShowTVG
        CommandButton1.Caption = "Hide"
    Else
        Call HideTVG
        CommandButton1.Caption = "Show"
    End If
    Application.ScreenUpdating = True
End Sub

maiban1986 · 12/1/18

MeThuongNho đã viết:
Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "Show" Then Call ShowTVG CommandButton1.Caption = "Hide" Else Call HideTVG CommandButton1.Caption = "Show" End If Application.ScreenUpdating = True End Sub

Sao mình thay như vậy để áp dụng với các sheet khác lại không được nhỉ bạn. xin hướng dẫn mình với

maiban1986 · 12/1/18

MeThuongNho đã viết:
Cái chỗ màu xanh đó tên j cũng đc: nhưng k dc thiếu chữ Sub và dấu () sau tên code:
- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo

Mã:

Private Sub CommandButton1_Click() Application.ScreenUpdating = False If CommandButton1.Caption = "Show" Then Call ShowTVG CommandButton1.Caption = "Hide" Else Call HideTVG CommandButton1.Caption = "Show" End If Application.ScreenUpdating = True End Sub

cho mình hỏi muốn dùng code cho các sheet khác chỉ càn thay đổi Sub Hide......() và Show......() là được đúng không bạn

MeThuongNho · 12/1/18

maiban1986 đã viết:
cho mình hỏi muốn dùng code cho các sheet khác chỉ càn thay đổi Sub Hide......() và Show......() là được đúng không bạn

Mã:

- Sau khi sửa tên tùy ý: ví dụ : Sub HideTVG() và ShowTVG()
thì trong code sau cũng phải sửa theo
Code:
Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   If CommandButton1.Caption = "Show" Then
       Call ShowTVG
       CommandButton1.Caption = "Hide"
   Else
       Call HideTVG
       CommandButton1.Caption = "Show"
   End If
   Application.ScreenUpdating = True
End Sub

MeThuongNho · 12/1/18

-- 1 sheet cần 2 code Module đó là Show và Hide
-- và trong sheet đó cần code này: mình đã lặp lại mấy lần rồi.

Mã:

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   If CommandButton1.Caption = "Show" Then
       Call ShowTVG
       CommandButton1.Caption = "Hide"
   Else
       Call HideTVG
       CommandButton1.Caption = "Show"
   End If
   Application.ScreenUpdating = True
End Sub

Code này chỉnh sửa tên theo 2 cái tên mình tùy đặt, mình đã ví dụ ak.

VBA Ẩn cột theo điều kiện

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Cute Black Cat

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Facebook

Group