Trong thiết lập tùy chọn của Excel có nội dung cho phép bạn Ẩn/Hiện giá trị số 0 cho cả Worksheet. Cụ thể cách thực hiện như sau:
Bước 1: Bấm chọn vào thẻ File > chọn tiếp Options > Chọn mục Advanced
Bước 2: Hộp thoại Format Cells xuất hiện, trong tab Number các bạn chọn Custom. Trong phần thiết lập của Custom, các bạn nhập 0;-0;;@ vào mục Type và chọn OK.
Kết quả các giá trị 0 có trong vùng dữ liệu các bạn chọn được ẩn đi.
CÁCH 2: ĐỊNH DẠNG ĐIỀU KIỆN.
Bước 1: Chọn vùng dữ liệu cần ẩn giá trị bằng 0, trên tab Home của thanh Ribbon các bạn chọn Conditional Formatting -> New Rule.
Bước 2: Xuất hiện hộp thoại New Formatting Rule.
- Trong phần Select a Rule Type các bạn chọn Format only cells that contain.
- Thiết lập các thông số trong phần Format only cells with như hình dưới.
- Sau đó chọn Format.
Bước 3: Trong tab Font của hộp thoại Format Cells, các bạn chọn màu chữ phù hợp với màu nền bảng tính. Ví dụ màu trắng và nhấn OK.
Tiếp tục nhấn OK để đóng hộp thoại New Formatting Rule, kết quả các giá trị 0 được ẩn. Cách này phù hợp với những bảng tính Excel có một màu nền.
CÁCH 3: CÀI ĐẶT BẢNG TÍNH EXCEL.
Bước 1: Mở bảng tính Excel cần ẩn các giá trị bằng 0, các bạn chọn File -> Options.
Bước 2: Trong hộp thoại Excel Options các bạn chọn Advanced sau đó tìm đến phần Show a zero in cells that have zero value và bỏ chọn trong ô vuông trước nó và nhấn OK.
Như vậy các số 0 cũng sẽ được ẩn đi.
Bài viết trên đã giới thiệu tới các bạn ba cách giúp làm ẩn các giá trị bằng 0 trong bảng tính Excel. Các bạn có thể chọn cho mình cách đơn giản nhất để thao tác. Chúc các bạn thành công
Các bác ơi.
Em có một file quản lý báo giá như sau [ File đính kèm ], các phần khác thì em đã xử lý xong hết rồi, duy chỉ có phần Phiếu báo giá, em muốn khi em nhập dữ liệu và chuyển sang sheet này thì những ô không có giá trị [ bằng 0 ] trong bảng sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra mà em không biết làm thế nào cả.
Em đang tự mày mò VBA nhưng chẳng biết tí gì, các bác có ai biết giúp em với em đang cần gấp lắm vì sắp tới em phải quản lý nó để báo cáo xếp rồi.
Cố gắng giúp em nha.
Chỉnh sửa lần cuối bởi điều hành viên: 27/9/10
Mọi người sẽ giúp bạn, nhưng chính bạn cũng phải bỏ ra 1 chút công chứ. Nếu vì riêng tư không công bố file gốc đươc, thì bạn cũng phải soạn 1 file ví dụ .
Mình đã nhiều lần vừa mất công tạo ví dụ rồi sử lý--->Không đúng do sai mẫu.
Mình gần như dám chắc khi viết xong bài này giá có file mẫu mình cũng đã sử lý xong yêu cầu của bạn
Các bác ơi.
Em có một file quản lý báo giá như sau [ File đính kèm ], các phần khác thì em đã xử lý xong hết rồi, duy chỉ có phần Phiếu báo giá, em muốn khi em nhập dữ liệu và chuyển sang sheet này thì những ô không có giá trị [ bằng 0 ] trong bảng sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra mà em không biết làm thế nào cả.
Em đang tự mày mò VBA nhưng chẳng biết tí gì, các bác có ai biết giúp em với em đang cần gấp lắm vì sắp tới em phải quản lý nó để báo cáo xếp rồi.
Cố gắng giúp em nha.
View attachment 52766
Lần chỉnh sửa cuối: 27/9/10
Các bạn lưu ý:
Đây là ẩn cả dòng khi giá trị ở đâu đó bằng không, khi tính toán giá trị của nó khác 0 thì phải hiện nó ra.Vậy nó có 2 giải pháp:
1/Dùng VBA đặt vào sự kiện Active của sheet. Đại khái câu lệnh:
...............
Dim Clls as Range
For each Clls in Range[..............]
if Clls=0 then
Rows[Clls.Row].EntierRow.Hidden=True
Else
Rows[Clls.Row].EntierRow.Hidden=False
End if
next
................
2/Dùng công thức kết hợp với Name hay cột phụ. Sau đó lọc sang Sheet khác [Hạ sách]
Cảm ơn các bác nhiều lắm, ,nhưng ý em không phải vậy vì đây là bảng giá trị in và lấy dữ liệu từ sheets khác nên em muốn nó tự động ẩn hiện.
Em gửi lại file có gì các bác giúp đỡ em nhé.
pass để mở file là : nguyenhoang
Chỉnh sửa lần cuối bởi điều hành viên: 27/9/10
Cảm ơn các bác nhiều lắm, ,nhưng ý em không phải vậy vì đây là bảng giá trị in và lấy dữ liệu từ sheets khác nên em muốn nó tự động ẩn hiện.
Em gửi lại file có gì các bác giúp đỡ em nhé.
pass để mở file là : nguyenhoang
Sub hide[] 'Hide nhung dong ma sl =""' With Sheets["P.B giá"] .Range["D19:D42"].SpecialCells[4, 22].EntireRow.Hidden = True End With End Sub Sub unhide[] 'UnHide nhung dong ma sl =""' With Sheets["P.B giá"] .Range["D19:D42"].EntireRow.Hidden = False End With End Sub
Lần chỉnh sửa cuối: 27/9/10
Cảm ơn các bác nhiều lắm, ,nhưng ý em không phải vậy vì đây là bảng giá trị in và lấy dữ liệu từ sheets khác nên em muốn nó tự động ẩn hiện.
Em gửi lại file có gì các bác giúp đỡ em nhé.
pass để mở file là : nguyenhoang
Private Sub Worksheet_Activate[] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] Rng.EntireRow.Hidden = Rng.Value = "" Next Rng End Sub
Sau đó, bạn vào sheet TD B Gia, nhập một vài phiếu rồi quay lại sheet P.B giá xem kết quả nhé.
Có vẻ ý Bạn Syhoang24 muốn ô có giá trị 0 thì trắng ký tự. Nếu đúng vậy thì bạn vào Tool/Options/View bỏ chọn Zero value là được. Nếu Bạn muốn ẩn dòng mà bất kỳ có ô nào trong dòng đó có giá trị bằng 0 thì Bạn có thể thêm cột phụ,
công thức ở cột phụ là =If[Countif[A1:**1,0]>0,0,1], sau đó dùng AutoFilter chọn giá trị 1 ở cột phụ là xong.
Lần chỉnh sửa cuối: 27/9/10
Bác nghiaphuc ơi cho em hỏi là ở sheets P. Báo giá nếu em muốn khóa và giấu công thức của mình bằng protection thi khi nhập số liệu nó bị lỗi không nhảy được. còn nếu mở pass thì ok. là sao vậy bác, tại máy tính của em có nhiều người dùng nên em không muốn người nào táy máy phá số liệu ý mà, bác giúp em tí nha.
Cảm ơn.
Bác nghiaphuc ơi cho em hỏi là ở sheets P. Báo giá nếu em muốn khóa và giấu công thức của mình bằng protection thi khi nhập số liệu nó bị lỗi không nhảy được. còn nếu mở pass thì ok. là sao vậy bác, tại máy tính của em có nhiều người dùng nên em không muốn người nào táy máy phá số liệu ý mà, bác giúp em tí nha.
Cảm ơn.
Private Sub Worksheet_Activate[] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] Rng.EntireRow.Hidden = Rng.Value = "" Next Rng ActiveSheet.Protect ["Learning_Excel"] End Sub
Với ["Learning_Excel"] là password của bạn! Nhìn vào code của NghiaPhuc tôi thấy chỉ có ẩn dòng trống tại cột I, còn giá trị = 0 thì không bị ẩn, nên tôi bổ sung lại như sau:
Private Sub Worksheet_Activate[] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"] End Sub
Lần chỉnh sửa cuối: 28/9/10
Cảm ơn các bác nhiều lắm, nhờ các bác hướng dẫn mà em có thể làm được điều mà mình mong muốn, tiếc là trình độ của em còn yếu nên chưa đóng góp được nhiều.
Cảm ơn các bác và diễn đàn.
Khi Protect Sheet, bạn chọn thêm các thuộc tính sau: Format cells
Format columns
Format rows Như vậy, bạn có thể Format tất cả trên đó mà không phải sợ mất dữ liệu. Còn không thì trong code của nghiaphuc bạn thêm như vầy: Private Sub Worksheet_Activate[]
ActiveSheet.Unprotect ["Learning_Excel"]
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [I19:I42]
Rng.EntireRow.Hidden = Rng.Value = ""
Next Rng
ActiveSheet.Protect ["Learning_Excel"]
End Sub
Với ["Learning_Excel"] là password của bạn! Nhìn vào code của NghiaPhuc tôi thấy chỉ có ẩn dòng trống tại cột I, còn giá trị = 0 thì không bị ẩn, nên tôi bổ sung lại như sau:
Private Sub Worksheet_Activate[] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"] End Sub
Em muốn sử dụng code này. Em cũng có một bảng, em muốn ẩn dòng có giá trị tại cột H bằng 0 nhưng không dùng mật mã thì em sửa code như thế nào? Anh giúp em nhé.
Bạn vui lòng đọc lại bài 8 để biết cách xử lý
Khi Protect Sheet, bạn chọn thêm các thuộc tính sau: Format cells
Format columns
Format rows Như vậy, bạn có thể Format tất cả trên đó mà không phải sợ mất dữ liệu. Còn không thì trong code của nghiaphuc bạn thêm như vầy: Private Sub Worksheet_Activate[]
ActiveSheet.Unprotect ["Learning_Excel"]
Dim Rng As Range
Application.ScreenUpdating = False
For Each Rng In [I19:I42]
Rng.EntireRow.Hidden = Rng.Value = ""
Next Rng
ActiveSheet.Protect ["Learning_Excel"]
End Sub
Với ["Learning_Excel"] là password của bạn! Nhìn vào code của NghiaPhuc tôi thấy chỉ có ẩn dòng trống tại cột I, còn giá trị = 0 thì không bị ẩn, nên tôi bổ sung lại như sau:
Private Sub Worksheet_Activate[] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"] End Sub
Mình có thể thêm gì vào để tính cho tất cả các sheet cùng 1 lúc được không ạ. File của em có 500 sheet nên tính từng sheet 1 sẽ rất lâu
Mình có thể thêm gì vào để tính cho tất cả các sheet cùng 1 lúc được không ạ. File của em có 500 sheet nên tính từng sheet 1 sẽ rất lâu
và đặt code trong thisworkbook
Bạn có thể thay dòng này vào code Private Sub Workbook_SheetActivate[ByVal Sh As Object]
và đặt code trong thisworkbook
Private Sub Workbook_SheetActivate[ByVal Sh As Object] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I20:I120] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"] End Sub Private Sub Workbook_SheetActivate[ByVal Sh As Object] ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I20:I120] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"]
End Sub
Em đã thay vào nhưng không được, anh xem giúp em với ạ, em cảm ơn anh
Có phải ntn không ạ Private Sub Workbook_SheetActivate[ByVal Sh As Object]
ActiveSheet.Unprotect ["Learning_Excel"] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I20:I120] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ["Learning_Excel"]
End Sub
Em đã thay vào nhưng không được, anh xem giúp em với ạ, em cảm ơn anh
Hi Phucnghia, Code cua bạn chạy đúng đó, nhưng có thể làm cho nó tự động ẩn hiện với nhiều ròng hơn dc không, mình sửa mãi mà ko dc, với lại có vẻ Nặng lắm, làm kết quả hơi chậm
Thank's
Làm sao để khi Giá trị tại G10 khác 0 thì nó tự động hiện ra nhỉ các bác Private Sub Worksheet_Activate[] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [G10:G10] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True
End Sub
Page 2
Sửa lại như thế thì khi =0 nó lại không ẩn
Sửa lại như thế thì khi =0 nó lại không ẩn ý em là muốn tại G10 = 0 thì nó ẩn đi, còn 0 thì nó hiện ra.
Private Sub Worksheet_Activate[] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [G10:G10] If Rng.Value 0 Then Rng.EntireRow.Hidden = False Else Rng.EntireRow.Hidden = True End If Next Rng Application.ScreenUpdating = True End Sub
Sửa lại như thế thì khi =0 nó lại không ẩn ý em là muốn tại G10 = 0 thì nó ẩn đi, còn 0 thì nó hiện ra.
Thế thì sửa lại như thế này:
Private Sub Worksheet_Activate[] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [G10:G10] If Rng.Value 0 Then Rng.EntireRow.Hidden = False Else Rng.EntireRow.Hidden = True End If Next Rng Application.ScreenUpdating = True End Sub
Hix. 0 thì khi G10 là Empty cũng không ẩn chứ bác...code trên sẽ ẩn nếu G10 là Empty......hehe [ 0 , thì Empty cũng là 0]
Lần chỉnh sửa cuối: 24/7/15
Hix. 0 thì khi G10 là Empty cũng không ẩn chứ bác...code trên sẽ ẩn nếu G10 là Empty......hehe [ 0 , thì Empty cũng là 0]
đc rùi, cảm ơn bác nhé giangleloi!
Híc, bác nào xem giúp e trường hợp này với, khi nhập giá trị tùy biến tại G5 phải click qua sheet khác thì F10 mới chạy code, làm cách nào để nó auto đc ạ
Lần chỉnh sửa cuối: 24/7/15
Híc, bác nào xem giúp e trường hợp này với, khi nhập giá trị tùy biến tại G5 phải click qua sheet khác thì F10 mới chạy code, làm cách nào để nó auto đc ạ
Cũ là:
Private Sub Worksheet_Activate[]
Mới là:
Private Sub Worksheet_Change[ByVal Target As Range]
Private Sub Worksheet_Change[ByVal Target As Range] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [F10:F10] If Rng.Value 0 Then Rng.EntireRow.Hidden = False Else Rng.EntireRow.Hidden = True End If Next Rng Application.ScreenUpdating = True End Sub
---------------------------------- P/s: trong code của bạn vừa đưa lên, điều kiện là = 0 mới ẩn, còn nếu khác 0 thì hiên. Vậy trường hợp Không gõ gì [rỗng] thì cũng coi như #0, nhưng trường hợp này vẫn bị ẩn dòng => chưa thỏa yêu cầu. Vậy bạn hãy nghiên cứu làm sao cho G5 rỗng => dòng 10 vẫn không ẩn.Chúc bạn thành công!
Lần chỉnh sửa cuối: 24/7/15
Vậy làm thế nào mà khi F10 được tham chiếu từ sheet khác sang nhưng tự động chạy code không bác
VD như file sau
Vậy làm thế nào mà khi F10 được tham chiếu từ sheet khác sang nhưng tự động chạy code không bác
VD như file sau
Sao có vấn đề đó mà bạn không nghiệm ra vậy, lồng vồng có bấy nhiêu đó. Thì giờ bạn dùng sự kiện Private Sub Worksheet_Activate[] thôi. sao lại không chạy được
Em xin phép đào mộ chút ạ! Cũng nội dung trên nếu em muốn lấy điều kiện ở cả 2 cột thì sao ạ. Ý em là điều kiện là cả 2 cột có giá trị "" hoặc =0 thì mới ẩn ạ. Em xin gửi file mẫu nhờ các bác giúp dùm ạ.
Em xin phép đào mộ chút ạ! Cũng nội dung trên nếu em muốn lấy điều kiện ở cả 2 cột thì sao ạ. Ý em là điều kiện là cả 2 cột có giá trị "" hoặc =0 thì mới ẩn ạ. Em xin gửi file mẫu nhờ các bác giúp dùm ạ.
Private Sub Worksheet_Activate[] Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [D2:[COLOR=#ff0000][B]E[/B][/COLOR]50] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True End Sub
Em xin phép đào mộ chút ạ! Cũng nội dung trên nếu em muốn lấy điều kiện ở cả 2 cột thì sao ạ. Ý em là điều kiện là cả 2 cột có giá trị "" hoặc =0 thì mới ẩn ạ. Em xin gửi file mẫu nhờ các bác giúp dùm ạ.
Bạn Giải pháp hình như hiểu ngược ý của chủ thớt thì phải ? "...điều kiện là cả 2 cột có giá trị "" hoặc =0 thì mới ẩn ạ ..."Mà chả biết mình có hiểu đúng ý bạn ấy không nữa ...thôi thì ...chuồn...
Lần chỉnh sửa cuối: 24/10/16
Cả nhà ơi.
Em có một file quản lý công nợ [ File đính kèm ], em muốn khi em nhập dữ liệu và chuyển sang sheet này thì những ô không có giá trị [ bằng 0 ] trong bảng sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra. Em mò mẫm cả ngày mà vẫn không ra được [đã dựa vào hướng dẫn phía trên mà vẫn không ra được].
Em nhờ cả nhà giúp dùm em
Bạn chép code sau thay cho cái cũ Private Sub Worksheet_Activate[] Dim i As Long Application.ScreenUpdating = False For i = 2 To 50 If Cells[i, 4].Value = 0 And Cells[i, 5].Value = 0 Then Rows[i].Hidden = True End If Next i Application.ScreenUpdating = True
End Sub
Bạn Giải pháp hình như hiểu ngược ý của chủ thớt thì phải ? "...điều kiện là cả 2 cột có giá trị "" hoặc =0 thì mới ẩn ạ ..."Mà chả biết mình có hiểu đúng ý bạn ấy không nữa ...thôi thì ...chuồn...
Cả nhà ơi.
Em có một file quản lý công nợ [ File đính kèm ], em muốn khi em nhập dữ liệu và chuyển sang sheet này thì những ô không có giá trị [ bằng 0 ] trong bảng sẽ tự động ẩn đi và nếu có giá trị sẽ tự động hiện ra. Em mò mẫm cả ngày mà vẫn không ra được [đã dựa vào hướng dẫn phía trên mà vẫn không ra được].
Em nhờ cả nhà giúp dùm em
Sub abc[] Dim i As Long Application.ScreenUpdating = False For i = 10 To Range["a" & Rows.Count].End[3].Row Cells[i, "v"].Formula = "=SUM[" & Range[Cells[i, "B"], Cells[i, "U"]].Address & "]" If Cells[i, "V"].Value = 0 Then Cells[i, "V"].EntireRow.Hidden = True End If Next i Application.ScreenUpdating = True Columns["V"].Delete End Sub
Lần chỉnh sửa cuối: 12/9/17
Mọi người sẽ giúp bạn, nhưng chính bạn cũng phải bỏ ra 1 chút công chứ. Nếu vì riêng tư không công bố file gốc đươc, thì bạn cũng phải soạn 1 file ví dụ .
Mình đã nhiều lần vừa mất công tạo ví dụ rồi sử lý--->Không đúng do sai mẫu.
Mình gần như dám chắc khi viết xong bài này giá có file mẫu mình cũng đã sử lý xong yêu cầu của bạn
MÌnh có file đính kèm trong sheet 2 bạn có thể viết code VBA cho mình theo điều kiện ẩn tất cả các hàng nếu như giá trị tại cột A bằng 0 được ko bạn
Sub ABC[] With Sheet6 .Range["A15:G" & .Range["A" & Rows.Count].End[3].Row].AutoFilter 1, "0" End With End Sub
Dạ xin chào các a e! mình đang tạo một công thức tính cột P [MỤC KIỂM]=cột L-cột M:
+ Nếu P=0 thì ẩn,
+ Nếu P#0 thì hiện.
Và điều kiện tiếp theo Nếu P#0 thì các dòng cột C đi kèm keo hiện theo con mục đó
File đính kèm, cảm ơn các a e
Em xin chào anh chị ạ
Anh chị giúp em với ạ
Em có một bảng lương. Em muốn các cột không có số liệu tự động ẩn đi và khí có số liệu thì tự hiện lại ạ
Em chị giúp em ạ
Em xin chân thành cảm ơn
Trân trọng