Hỏi cách ẩn cột có tổng số = 0 trong table

[PhamHuyHung1990]

Xin chào cả nhà,

Mình có khai báo table, tên là data, bảng có nhiều cột mà một số cột có tổng số bằng không (hay là không có dữ liệu). Mình muốn ẩn và hiện nhanh các cột này thì làm thế nào?
Mong được sự giúp đỡ của GPE

 

[Hoàng Tuấn 868]

Mình muốn ẩn và hiện nhanh các cột này thì làm thế nào?

Đầu tiên là bạn đưa file có bảng đó xem cụ thể thế nào. (Bảng nằm ở đâu, bắt đầu từ dòng nào...).

 

[PhamHuyHung1990]

Đầu tiên là bạn đưa file có bảng đó xem cụ thể thế nào. (Bảng nằm ở đâu, bắt đầu từ dòng nào...).

file đây, bạn giúp mình với!

 

[le_vis]

file đây, bạn giúp mình với!

Thử cách củ chuối này xem có ưng cái bụng không ?

 

[PhamHuyHung1990]

Thử cách củ chuối này xem có ưng cái bụng không ?

Bạn ơi, mình muốn ẩn cột chứ không phải ẩn dòng

 

[Hoàng Tuấn 868]

file đây, bạn giúp mình với!

Bạn xem thử nhé.

 

[PhamHuyHung1990]

Đúng rồi, cám ơn bạn rất nhiều!

 

[PhamHuyHung1990]

Bạn xem thử nhé.

nếu đưa macro của nút cập nhật dữ liệu vào file Personal.xlsb

Sub Cmd1_Click()
If Cmd1.Caption = "Hidden" Then
Call Hidden
Cmd1.Caption = "Unhidden"
Else
Call Unhidden
Cmd1.Caption = "Hidden"
End If
End Sub


làm sao để nút cập nhật dữ liệu trong file "ẩn cột" hoạt động.
Mình đã thử mà không chạy

 

[Hoàng Tuấn 868]

nếu đưa macro của nút cập nhật dữ liệu vào file Personal.xlsb

Sub Cmd1_Click()
If Cmd1.Caption = "Hidden" Then
Call Hidden
Cmd1.Caption = "Unhidden"
Else
Call Unhidden
Cmd1.Caption = "Hidden"
End If
End Sub


làm sao để nút cập nhật dữ liệu trong file "ẩn cột" hoạt động.
Mình đã thử mà không chạy

View attachment 269760

Xin lỗi bạn nhé, câu hỏi này thiếu mất chủ ngữ.

 

[PhamHuyHung1990]

Xin lỗi bạn nhé, câu hỏi này thiếu mất chủ ngữ.

Mình thành thật xin lỗi bạn.
Sự giúp đỡ của phía trên của bạn rất hữu ích cho mình và mình rất biết ơn về điều này.

file trong bài #6 đúng rồi và mình đã đưa macro vào file Personal.xlsb để dùng chung. Nhưng làm như vậy nút bấm cập nhật dữ liệu như bạn thiết kế không hoạt động. Vậy mong bạn chỉ giúp mình cách sửa lỗi với!

Xin cám ơn bạn rất nhiều!

 

[Hoàng Tuấn 868]

file trong bài #6 đúng rồi và mình đã đưa macro vào file Personal.xlsb để dùng chung. Nhưng làm như vậy nút bấm cập nhật dữ liệu như bạn thiết kế không hoạt động.

Bạn đưa file Personal.xlsb lên đây xem thế nào.

 

[PhamHuyHung1990]

Bạn đưa file Personal.xlsb lên đây xem thế nào.

file đây, bạn xem giúp với. Mình mình muốn đưa 2 macro này vào nút bấm:

Sub HiddenDat()
Dim i As Range
Application.ScreenUpdating = False
For Each i In Range("k1:BH1")
If i.Value = 0 Then
i.EntireColumn.Hidden = True
Else
i.EntireColumn.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub UnhiddenDat()
Dim sh As Worksheet
Set sh = Sheets("data")
sh.Range("k1:BH1").EntireColumn.Hidden = False
End Sub

 

[Hoàng Tuấn 868]

file đây, bạn xem giúp với. Mình mình muốn đưa 2 macro này vào nút bấm:

Sub HiddenDat()
Dim i As Range
Application.ScreenUpdating = False
For Each i In Range("k1:BH1")
If i.Value = 0 Then
i.EntireColumn.Hidden = True
Else
i.EntireColumn.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub UnhiddenDat()
Dim sh As Worksheet
Set sh = Sheets("data")
sh.Range("k1:BH1").EntireColumn.Hidden = False
End Sub

Bạn kiểm tra lại nhé.

 

[PhamHuyHung1990]

Bạn kiểm tra lại nhé.

@Hoàng Tuấn 868 do mình dễn đạt không tốt nên chưa toát lên được ý muốn hỏi. Ý của mình là toàn bộ macro để ở file Personal.xlsb. File làm việc chỉ gán nút để gọi macro. Việc gọi từng macro đơn lẻ mình làm được rồi. Còn nút macro như bạn làm ở bài #6 thì mình làm không được.

mình xin gửi lại cả 2 files Personal.xlsb và file làm việc. Bạn thiết kế giúp mình nút bấm với.

p/s: macro để gọi 2 macro mình copy từ bài #6 của bạn.

 

[Hoàng Tuấn 868]

Ý của mình là toàn bộ macro để ở file Personal.xlsb. File làm việc chỉ gán nút để gọi macro. Việc gọi từng macro đơn lẻ mình làm được rồi.
mình xin gửi lại cả 2 files Personal.xlsb và file làm việc. Bạn thiết kế giúp mình nút bấm với.

Minh chưa rõ ý bạn lắm.
1/ Câu này : "Ý của mình là toàn bộ macro để ở file Personal.xlsb" là bạn muốn ấn một nút sẽ chạy hết các macro hay thế nào.
2/ File Personal.xlsb của bạn trắng tinh thì mình không hiểu bạn định làm gì?
3/ Mình gửi trước file: "an cot theo dieu kien" đã gộp nút bấm cho bạn.

 

[VetMini]

Minh chưa rõ ý bạn lắm.
1/ Câu này : "Ý của mình là toàn bộ macro để ở file Personal.xlsb" là bạn muốn ấn một nút sẽ chạy hết các macro hay thế nào.
2/ File Personal.xlsb của bạn trắng tinh thì mình không hiểu bạn định làm gì?
3/ Mình gửi trước file: "an cot theo dieu kien" đã gộp nút bấm cho bạn.

Thớt muốn gán nút bấm vào hai cái Sub HiiddenDat và UnHiddenDat, mà hai macros này nằm trong PERSONAL.xlsb. Hai nút bấm thì nằm trong file đa ta đa tiếc gì đó.

Chú: HiddenDat là cụm danh từ. HideDat/UnhideDat mới là cụm động từ.

 

[PhamHuyHung1990]

Minh chưa rõ ý bạn lắm.
1/ Câu này : "Ý của mình là toàn bộ macro để ở file Personal.xlsb" là bạn muốn ấn một nút sẽ chạy hết các macro hay thế nào.
2/ File Personal.xlsb của bạn trắng tinh thì mình không hiểu bạn định làm gì?
3/ Mình gửi trước file: "an cot theo dieu kien" đã gộp nút bấm cho bạn.

file Personal.xlsb là file khởi động cùng excel, ở dạng ẩn, chỉ chứa macro, không chứa dữ liệu. Nó lưu ở C:\Users\user name\AppData\Local\Microsoft\Excel\XLStart
Nút bạn tạo ra đúng mong muốn của mình rồi. Nhưng macro bạn lại copy vào file "an cot theo dieu kien". Mình muốn trên file ""an cot theo dieu kien" chỉ có 1 nút để gọi hai cái Sub HiddenDat và UnHiddenDat. Còn macro thì lưu trên file Personal.xlsb. (sẽ đổi lại tên thành HidenDat và UnhidenDat như bác VetMini góp ý)

 

[VetMini]

Muốn macros của PERSONAL hiện lên để chọn và gán vào nút thì phải unhide PERSONAL.xlsb

View > Window > bấm 'Unhide'
Trong cửa sổ Unhide, chọn PERSONAL.xlsb > Ok

Cách dễ hơn là lúc nó bảo gán macro thì gõ vào ô Macro name: PERSONAL.xlsb!SubGiGiDo

 

[PhamHuyHung1990]

Muốn macros của PERSONAL hiện lên để chọn và gán vào nút thì phải unhide PERSONAL.xlsb

View > Window > bấm 'Unhide'
Trong cửa sổ Unhide, chọn PERSONAL.xlsb > Ok

Cách dễ hơn là lúc nó bảo gán macro thì gõ vào ô Macro name: PERSONAL.xlsb!SubGiGiDo

Để gọi Sub HiddenDat và UnHiddenDat, bạn @Hoàng Tuấn 868 dùng nút có gắn macro Cmd1_Click() như sau:

Private Sub Cmd1_Click()
If Cmd1.Caption = "An cot" Then
Call HiddenDat
Cmd1.Caption = "Hien cot"
Else
Call UnhiddenDat
Cmd1.Caption = "An cot"
End If
End Sub

Nút gọi macro nằm trên file "an cot theo dieu kien".

Vấn đề là lưu Sub HiddenDat, Sub UnHiddenDat, Sub Cmd1_Click() trên file làm việc ("an cot theo dieu kien") thì chạy vô tư. Nhưng khi quăng 3 Sub trên sang PERSONAL.xlsb thì:
- Nút gọi gắn Sub Cmd1_Click(): không hoạt động.
- Nếu nút gọi chỉ gắn Sub HiddenDat hoặc Sub UnHiddenDat thì hoạt động bình thường. -> phải dùng tới 2 nút lận, không thuận tiện và đẹp mắt.