Sửa lại code nhằm ẩn cột hiệu quả hơn

[LikeIt]

KG các anh chị,

Em mới tập ghi macro nên không biết cách sửa. và thu ngắn các code lại, không biết cái nào thừa hoặc cần thiết. Chỉ biết công việc lặp đi lặp lại nhiều nên ghi lại chạy cho nhanh.

Em có một file báo cáo hàng tuần. Các AC giúp em là khi thêm các cột vào liên tục (Xem file đính kèm-VD như tuần 36) khi em cần em kích vào nút số lượng thì toàn bộ cột số tiền ẩn đi, hoặc ngược lại khi em kích nút số tiền thì các cột số lượng ẩn đi.

Hoặc các anh chị giúp thu ngắn code cho em gọn. Nút all ở đây là hiện nên hết các cột khi cần xem cả cột số lượng và số tiền.

Xin cảm ơn
NHT

 

[XuanThanh]

KG các anh chị,

Em mới tập ghi macro nên không biết cách sửa. và thu ngắn các code lại, không biết cái nào thừa hoặc cần thiết. Chỉ biết công việc lặp đi lặp lại nhiều nên ghi lại chạy cho nhanh.

Em có một file báo cáo hàng tuần. Các AC giúp em là khi thêm các cột vào liên tục (Xem file đính kèm-VD như tuần 36) khi em cần em kích vào nút số lượng thì toàn bộ cột số tiền ẩn đi, hoặc ngược lại khi em kích nút số tiền thì các cột số lượng ẩn đi.

Hoặc các anh chị giúp thu ngắn code cho em gọn. Nút all ở đây là hiện nên hết các cột khi cần xem cả cột số lượng và số tiền.

Xin cảm ơn
NHT

Sub HideAmount()
    Columns("C:C,E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,vW:vW,Y:Y,AA:AA").Hidden = True
    Range("A1").Select
End Sub

Sub Opened()
    Columns("B:AB").Hidden = False
End Sub

Với QTY làm tương tự như với AMOUNT
Thân

 

[TrungChinhs]

Tôi làm thử cho bạn 2 cách:
Cách 1 (theo yêu cầu của bạn): dùng comand Button (3 sub).
Cách 2: dùng DoubleClick. Khi bạn kích đúp chuột vào dòng tiêu đề QTY - AMOUNT thì cột sẽ ẩn hiện theo yêu cầu, nếu bạn muốn hiện tất cả thì kích đúp chuột vào ô bất kỳ ngoài dòng tiêu đề.
Nếu chưa vừa ý ta sẽ trao đổi tiếp.

 

[ndu96081631]

KG các anh chị,

Em mới tập ghi macro nên không biết cách sửa. và thu ngắn các code lại, không biết cái nào thừa hoặc cần thiết. Chỉ biết công việc lặp đi lặp lại nhiều nên ghi lại chạy cho nhanh.

Em có một file báo cáo hàng tuần. Các AC giúp em là khi thêm các cột vào liên tục (Xem file đính kèm-VD như tuần 36) khi em cần em kích vào nút số lượng thì toàn bộ cột số tiền ẩn đi, hoặc ngược lại khi em kích nút số tiền thì các cột số lượng ẩn đi.

Hoặc các anh chị giúp thu ngắn code cho em gọn. Nút all ở đây là hiện nên hết các cột khi cần xem cả cột số lượng và số tiền.

Xin cảm ơn
NHT

Tôi chỉ bạn 1 cách đơn giản để bạn có thể tự làm:
- Từ cell B1 đến cell AC1, bạn gõ số gì đó vào với nguyên tắc: Gõ số vào 1 cell... bỏ trống 1 cell... và cứ thế đến cuối
- Để ẩn QTy ta quét chọn B1:AC1, bấm Ctrl + G\Special\Contants
- Để ẩn AMOUNT ta quét chọn B1:AC1, bấm Ctrl + G\Special\Blanks
==> Cái này hoàn toàn có thể thu lại thành 1 macro, đúng không?
Sau khi chỉnh sửa lại, ta được:

Sub HideAmount()
  Opened
  Range("B1:AC1").SpecialCells(4).EntireColumn.Hidden = True
End Sub

Sub HidenQty()
  Opened
  Range("B1:AC1").SpecialCells(2).EntireColumn.Hidden = True
End Sub

Sub Opened()
  Range("B1:AC1").EntireColumn.Hidden = False
End Sub

Xem file