Tự động ẩn dòng khi giá trị bằng 0 trong excel (2 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)
S

syhoang24

Thành viên mới
Tham gia
1/9/10
Bài viết
30
Được thích
5
Nghề nghiệp
Kế Toá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.
 

File đính kèm

  • 12.jpg
    12.jpg
    20 KB · Đọc: 723
  • Untitled.jpg
    Untitled.jpg
    20.7 KB · Đọc: 686
Chỉnh sửa lần cuối bởi điều hành viên:
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
 
syhoang24 đã viết:
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.
Nhấp chuột vào đây để mở rộng...

Bạn có thể dùng AutoFilter như hình bên dưới nhé.

View attachment 52766
 

File đính kèm

  • 52.jpg
    52.jpg
    54.9 KB · Đọc: 2,774
Lần chỉnh sửa cuối:
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:

Mã: 
...............
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
................
Nói chung, dùng kỹ thuật Filter cũng được nhưng nó lại vướng cái dấu tam giác trông không thích.

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
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
syhoang24 đã viết:
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
Nhấp chuột vào đây để mở rộng...
Cột D=IF(ISERROR(VLOOKUP($B19,'TD B Gia'!$F$11:$J$158,3,0)),"",VLOOKUP($B19,'TD B Gia'!$F$11:$J$158,3,0))
Vậy nếu error thì sẽ =""
Bạn dùng thử code sau:
PHP: 
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:
syhoang24 đã viết:
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
Nhấp chuột vào đây để mở rộng...
Theo mình hiểu thì tại sheet P.B giá, những hàng từ 19 đến 42 mà có giá trị Thành tiền (cột I) là "" thì sẽ ẩn đi. Nếu đúng thì bạn nháy chuột phải vào nhãn sheet P.B giá, chọn View code và dán code sau:
PHP: 
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:
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.
 
syhoang24 đã viết:
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.
Nhấp chuột vào đây để mở rộng...

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:

PHP: 
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:

PHP: 
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:
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.
 
Learning_Excel đã viết:
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:

PHP: 
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:

PHP: 
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
Nhấp chuột vào đây để mở rộng...
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é.
 
yeudoi đã viết:
Bạn vui lòng đọc lại bài 8 để biết cách xử lý
Nhấp chuột vào đây để mở rộng...
Em làm được rồi, nhưng file của em có khác bạn syhoang24. Em định dạng sheet sẵn để gửi cho khách hàng, sếp. Em chọn giá trị (data validation) thì các dữ liệu em cần sẽ hiện ra theo form. Nhưng khi em dùng code này. Nó mặc định cho data validation được chọn luôn. Nó không hiểu cho các giá trị chọn khác, vô tình các dòng còn lại bị ẩn đi hết khi data validation được chọn có nhiều dữ liệu hơn. Có cách nào để em áp dụng không. Vì em không hiểu code này và không biết về VBA, anh giúp em nhé.
 
Ếch Xanh đã viết:
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:

PHP: 
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:

PHP: 
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
Nhấp chuột vào đây để mở rộng...

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
 
congpv đã viết:
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
Nhấp chuột vào đây để mở rộng...

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
 
quanghai1969 đã viết:
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
Nhấp chuột vào đây để mở rộng...

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
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
 
congpv đã viết:
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
Nhấp chuột vào đây để mở rộng...
Bạn sửa chỗ [I20:I120] thành Sh.[I20:I120] là được.
 
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
Nhấp chuột vào đây để mở rộng...
 
Sửa lại như thế thì khi =0 nó lại không ẩn :D ý em là muốn tại G10 = 0 thì nó ẩn đi, còn <>0 thì nó hiện ra.
 
tieulatba đã viết:
Sửa lại như thế thì khi =0 nó lại không ẩn :D ý em là muốn tại G10 = 0 thì nó ẩn đi, còn <>0 thì nó hiện ra.
Nhấp chuột vào đây để mở rộng...
Thế thì sửa lại như thế này:
Mã: 
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
 
hpkhuong đã viết:
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)
Nhấp chuột vào đây để mở rộng...
Hehe.....Người hỏi cũng biết code mà. Mới lại cái code lúc hỏi đã có trường hợp Rng.value="" rồi. Người dùng tự tùy biến thôi. Chứ tôi lười lắm. Hỏi sao trả lời vậy thôi.
 
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 ạ
 

File đính kèm

Lần chỉnh sửa cuối:
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
 

File đính kè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 ạ.
 

File đính kèm

zidkt đã viết:
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 ạ.
Nhấp chuột vào đây để mở rộng...
Thì sửa chổ này nè bạn.
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
 
zidkt đã viết:
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 ạ.
Nhấp chuột vào đây để mở rộng...
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...
 
Lần chỉnh sửa cuối:
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
 

File đính kèm

Kh Biet đã viết:
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...
Nhấp chuột vào đây để mở rộng...
Bài số 34 quá trời cột bằng 0 thì code như thế nào bạn.
 
Yuki Trần đã viết:
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
Nhấp chuột vào đây để mở rộng...
Xin mời thử với:
PHP: 
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:
sealand đã viết:
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
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

voldemort_k49 đã viết:
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
Nhấp chuột vào đây để mở rộng...
Bạn thử:
PHP: 
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
 

File đính kèm

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
 

File đính kèm

Ếch Xanh đã viết:
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:

PHP: 
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:

PHP: 
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
Nhấp chuột vào đây để mở rộng...
Xin chào các anh chị, các bạn. Mình không biết cách hỏi trên diễn đàn nên hỏi ở đây: Do phải điều chỉnh nhiều lần số thứ tự thanh tà vẹt cần phải thay thế nên lúc nhập không sắp xếp ngay được theo tăng dần (Vị trí tà vẹt được đánh số từ đầu đến cuối của 1 bộ ghi từ 1 đến 60). Muốn xin các anh, chị, các bạn code để sau khi nhập thì tự sắp xếp tăng dần. Để bản in ra từ cột A đến cột V thì số tà vẹt tại các ô trong cột V theo thứ tự tăng dần. Trân thành cảm ơn anh chị và các bạn.
Bài đã được tự động gộp:

nghiaphuc đã viết:
Bạn sửa chỗ [I20:I120] thành Sh.[I20:I120] là được.
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

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

T
  • Question Question
Kết quả lọc dữ liệu từ sheet TONG HOP qua từng chi tiết
Trả lời
2
Đọc
42
Hoàng Tuấn 868
H
N
  • Question Question
Sự kiện keydown & textbox user form (1 người xem)
Trả lời
0
Đọc
26
nguyenduy39
N
S
Cảm ơn Admin đã duyệt (1 người xem)
Trả lời
0
Đọc
30
samthai8017
S
S
Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới). Thank
Trả lời
4
Đọc
60
samthai8017
S
S
Xin các Pro chia sẻ giúp (1 người xem)
Trả lời
4
Đọc
65
samthai8017
S
GPE-Trợ Lý
TALKSHOW 16 BẬT MÍ THỦ THUẬT GOOGLE SHEET: TỔNG HỢP DỮ LIỆU TỪ NHIỀU SHEET & FILE BĂNG IMPORTRANGE
Trả lời
1
Đọc
488
GPE-Trợ Lý
GPE-Trợ Lý
B
Em nhờ các bro giúp giải pháp in nhiều file ạ
Trả lời
3
Đọc
65
Hoàng Tuấn 868
H
T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu
    • Cười
Trả lời
17
Đọc
328
LOGANWover
L
HeSanbi
  • Question Question
VBScript.RegExp sẽ bị xóa khỏi Windows: thư viện Pcre2 giải pháp thay thế tối ưu
    • Thích
    • Cảm ơn
Trả lời
1
Đọc
82
HeSanbi
HeSanbi
S
Xin hỏi các pro. Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới).
Trả lời
3
Đọc
62
samthai8017
S
T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable
Trả lời
2
Đọc
77
thuhacoicoi
T
HeSanbi
  • Question Question
Chuyển mã VBA ứng dụng Excel 32 bit hoạt động trên cả 64bit (Hoàn toàn 0 phí)
    • Thích
Trả lời
0
Đọc
62
HeSanbi
HeSanbi
T
Ctrl + Shift + 0 không dùng để unhide cột được
Trả lời
24
Đọc
22K
Oji
O
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
    • Yêu thích
Trả lời
19
Đọc
4K
Hoàng Tuấn 868
H
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel
Trả lời
3
Đọc
101
HeSanbi
HeSanbi
huytamlinh
Anh Chị giúp em sửa lỗi định dạng với ạ !
Trả lời
3
Đọc
53
Hoàng Tuấn 868
H
T
  • Question Question
Xin giúp em mã lệnh tổng hợp tự động lên bảng tổng hợp!
Trả lời
1
Đọc
62
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
4
Đọc
928
nguyendang95
N
V
Quản lý xuất nhập vật tư trong kho (1 người xem)
Trả lời
19
Đọc
768
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên
    • Cảm ơn
Trả lời
4
Đọc
357
phuongnam366377
phuongnam366377
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