Tự động ẩn dòng (1 người xem)

[cattuong_lin]

Giúp mình với, mình không biết tí gì về VBA cả, làm sao để tự động ẩn những dòng có giá trị =0, sheet này toàn là tham chiếu từ sheet khác, nên những dòng đó có thể thay đổi.

 

[Hai Lúa Miền Tây]

Giúp mình với, mình không biết tí gì về VBA cả, làm sao để tự động ẩn những dòng có giá trị =0, sheet này toàn là tham chiếu từ sheet khác, nên những dòng đó có thể thay đổi.

Bạn dùng AutoFilter, lọc bỏ những dòng <=0 là được.

 

[cattuong_lin]

Sử dụng Auto filter thì mình biết và mình đang sử dụng advanced filter, nhưng mỗi lần chọn thì phải vào đó ok nó mới đúng, nhw vậy rất mất công.

 

[cattuong_lin]

mấy cao thủ ra tay giúp tui với

 

[ndu96081631]

Sử dụng Auto filter thì mình biết và mình đang sử dụng advanced filter, nhưng mỗi lần chọn thì phải vào đó ok nó mới đúng, nhw vậy rất mất công.

Tức là bạn vẫn làm bằng tay dùng AutoFilter nhưng đồng thời bật chức năng record macro lên. Xong việc, tắt record macro và vào xem code viết thế nào rồi chỉnh sửa lại tí là dùng được rồi
Nếu bạn không làm được thì đưa file lên đây

 

[cattuong_lin]

Hiện tại, mình muốn xem thẻ kho mặt hàng nào mình sẽ vào form chọn tên hàng, sau đó fải vào data> advanced filter, thì những dòng sẽ ẩn đi để tiện in ấn, vì sheet này mình sẽ khoá nên không thể sử dụng auto filter, điều mình muốn nhờ các bạn giúp là chỉ vào form chọn mặt hàng thì các dòng trống sẽ tự ẩn đi.

File kèm theo:

 

[cattuong_lin]

mấy bạn chỉ giúp mình với. Mình thấy có bạn này cũng hỏi giống mình. Nhưng vì mình không biết, không hiểu gì về VBA nên không biết áp dụng. Mong các bạn giúp đỡ.

http://www.giaiphapexcel.com/forum/showthread.php?43618-xóa-hàng-có-giá-trị-0

 

[viehoai]

Hiện tại, mình muốn xem thẻ kho mặt hàng nào mình sẽ vào form chọn tên hàng, sau đó fải vào data> advanced filter, thì những dòng sẽ ẩn đi để tiện in ấn, vì sheet này mình sẽ khoá nên không thể sử dụng auto filter, điều mình muốn nhờ các bạn giúp là chỉ vào form chọn mặt hàng thì các dòng trống sẽ tự ẩn đi.

File kèm theo:

Mình record được như vầy, có gì bạn cho ý kiến thêm, mình cũng chưa hiểu hết ý lắm
Bạn chọn mã hàng tại H8 nhé.

 

[cattuong_lin]

Thanks bạn. Đúng là bạn chưa hiểu ý mình. Khi mình khoá sheet thẻ kho lại, bạn sẽ không vào được ô H8 để chọn mã hàng để in thẻ kho. Và đồng thời khi mình nhập hoặc xuất thêm thì những dòng đó sẽ tự thể hiện. mÌnh sẽ gửi lại file đã khoá. Mấy bạn vào xem sẽ hiểu ý mình hơn.

 

[viehoai]

Mình đã hiểu ý bạn tuy nhiên mình làm theo ý mình cũng như vậy (không qua listBox như bạn, nếu bạn bắt buộc cần vậy thì sẽ bàn tiếp)

Khi mình khoá sheet thẻ kho lại, bạn sẽ không vào được ô H8 để chọn mã hàng để in thẻ kho.

Vậy mình khóa sheet nhưng để lại H8 để bạn chọn vậy

Và đồng thời khi mình nhập hoặc xuất thêm thì những dòng đó sẽ tự thể hiện.

Khi bạn nhập thêm thì bạn phải Autofilter All mới nhập tiếp chứ

 

[cattuong_lin]

Khi bạn nhập thêm thì bạn phải Autofilter All mới nhập tiếp chứ

khi mình chọn mã tại H8, mình fải vào đâu? vì khi khoá sheet thì auto filter cũng bị khoá, trừ advanced filter. Và sheet thẻ kho là không nhập gì vào mà nhập liệu ở 1 sheet khác.

 

[Candlelight]

khi mình chọn mã tại H8, mình fải vào đâu? vì khi khoá sheet thì auto filter cũng bị khoá, trừ advanced filter. Và sheet thẻ kho là không nhập gì vào mà nhập liệu ở 1 sheet khác.

Thì UnProtect Sheet, Password là GPE chứ vào đâu nữa bạn???

 

[cattuong_lin]

mình khoá sheet, mà người khác sử dụng, và họ chỉ việc nhập liệu ở sheet nhập liệu thôi. Không biết mật khẩu.

 

[thnghiachau]

Bạn dùng AutoFilter, lọc bỏ những dòng <=0 là được.

Chào,
Mình tình cờ đọc thấy đề tài này, nên góp chút ý kiến.

Khi mở file lên thì sẽ tự động dầu hết nhưng dòng nào tương ứng ô E3:E10 trống:

Option Explicit
Private Sub Workbook_Open()    Dim i As Long        For i = 3 To 10        If Sheets("Summary").Range("E" & i).Value <> "" Then            Sheets("Summary").Range("E" & i).EntireRow.Hidden = False          Else            Sheets("Summary").Range("E" & i).EntireRow.Hidden = True        End If    NextEnd Sub

khi thay đổi ô G12:G19 (tức thay đổi giá trị ô E3:E10) thì ô nào <>"" thì sẽ hiện ra lại hàng tương ứng đó hoặc ngược lại

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)    Dim i As Long        For i = 3 To 10        If Sheets("Summary").Range("E" & i).Value <> "" Then            Sheets("Summary").Range("E" & i).EntireRow.Hidden = False          Else            Sheets("Summary").Range("E" & i).EntireRow.Hidden = True        End If    Next    End Sub

Có gì sai sót mong các cao thủ gở rối dùm mình.

Cám ơn nhiều.