Ẩn dòng bằng VBA. (1 người xem)

[thecuong.n99]

Xin chào ACE.
Em có 1 File ở Sheet Packing 8hr,em muốn ấn các dòng( row) từ A22:A636,những ô giá trị = 0
ACE cho em xin code VBA cho trường hợp này được không ạ.
thanks !

 

[heyhey1994]

Tạo một tài khoản chatGPT thì những phần này sẽ dễ dàng hơn bạn

Sub HideRowsWithValueZero()
Dim i As Long

For i = 22 To 636
If Range("A" & i).Value = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub

 

[Maika8008]

View attachment 290091
Tạo một tài khoản chatGPT thì những phần này sẽ dễ dàng hơn bạn

Sub HideRowsWithValueZero()
Dim i As Long

For i = 22 To 636
If Range("A" & i).Value = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub

ChatGPT chỉ cho code chân phương nhất mà nó biết chứ không tối ưu. Trong trường hợp này phải union các dòng thỏa điều kiện vào 1 range, cuối cùng mới hide 1 lần cho cả range.

 

[VetMini]

ChatGPT chỉ cho code chân phương nhất mà nó biết chứ không tối ưu. Trong trường hợp này phải union các dòng thỏa điều kiện vào 1 range, cuối cùng mới hide 1 lần cho cả range.

Tối ưu chi vậy? Ăn mày đòi xôi gấc.

Người ta học tối ưu, hiệu quả là vì chuyện lâu dài. Ở đây chỉ là mấy cái chuyện chữa cháy. Miễn ra đúng kết quả là xong.

 

[cantl]

Tối ưu

Tối ưu vì đam mê bác ơi. Em viết đoạn đổi dấu , thành ; mà ra kết quả nhưng không vừa ý. Nó không được như các chuyên gia. Viết xong lại đá đủ thứ, thế là lại chán.

 

[HeSanbi]

@thecuong.n99 Bạn có thể tham khảo hàm UDF tự động ẩn dòng với nhiều điều kiện tại bài viết:

Hàm UDF Tự động ẩn dòng với một hoặc nhiều điều kiện

HÀM TỰ ĐỘNG ẨN DÒNG VỚI MỘT HOẶC NHIỀU ĐIỀU KIỆN với S_AutoHide Hướng dẫn sử dụng hàm: Hàm: =S_AutoHide(Title,Target,Cells,Conditions,OrdersRange,CreateButtonShowing) Tham số : Vị trí Tham số Kiểu Optional Diễn giải 1 Title Chuỗi Rỗng Chuỗi trả về cho Ô nhập công thức...

www.giaiphapexcel.com

 

[heyhey1994]

ChatGPT chỉ cho code chân phương nhất mà nó biết chứ không tối ưu. Trong trường hợp này phải union các dòng thỏa điều kiện vào 1 range, cuối cùng mới hide 1 lần cho cả range.

Em biết tối ưu chắc chắn cần thiết cho hệ thống có dữ liệu lớn, nhưng em nghĩ là với nhu cầu của em và bạn hỏi đều là những người "ngoại đạo", cần giải quyết nhu cầu cấp bách trước mắt thì chat gpt vẫn là công cụ tương đối là hiệu quả ạ.

 

[bebo021999]

Ép nó dùng UNION cũng được. Nhưng chỉ thắc mắc là vùng đã xác định từ 22:636 rồi mà nó còn đi tìm lastRow làm gì không biết?

Sub HideRowsWithZeroValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rngToHide As Range
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name
    
    With ws
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A
        
        Application.ScreenUpdating = False ' Disable screen updating for faster execution
        
        For i = 6 To 636 ' Rows 6 to 636
            If .Cells(i, 1).Value = 0 Then ' Check if the value in column A is 0
                If rngToHide Is Nothing Then
                    Set rngToHide = .Rows(i)
                Else
                    Set rngToHide = Union(rngToHide, .Rows(i))
                End If
            End If
        Next i
        
        If Not rngToHide Is Nothing Then
            rngToHide.EntireRow.Hidden = True ' Hide the rows using the Union range
        End If
        
        Application.ScreenUpdating = True ' Enable screen updating
        
    End With
End Sub

Bài đã được tự động gộp: 16/5/23

Sau vài lần ép nó ra bã, yêu cầu GPT phải đi tìm phương án tối ưu, phương án cuối cùng nhanh nhất và tối ưu nhất là Filter

Sub HideRowsWithZeroValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name
    
    With ws
        Application.ScreenUpdating = False ' Disable screen updating for faster execution
        
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A
        
        .Range("A6:A636").AutoFilter Field:=1, Criteria1:=0 ' Apply filter to column A with value 0
        
        If Application.WorksheetFunction.Subtotal(103, .Columns(1)) > 1 Then ' Check if any visible cells exist (excluding the header row)
            .Range("A7:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True ' Hide visible rows (excluding the header row)
        End If
        
        .AutoFilterMode = False ' Turn off the AutoFilter
        
        Application.ScreenUpdating = True ' Enable screen updating
    End With
End Sub

 

[VetMini]

Em biết tối ưu chắc chắn cần thiết cho hệ thống có dữ liệu lớn, nhưng em nghĩ là với nhu cầu của em và bạn hỏi đều là những người "ngoại đạo", cần giải quyết nhu cầu cấp bách trước mắt thì chat gpt vẫn là công cụ tương đối là hiệu quả ạ.

Bạn định nghĩa "tối ưu" là gì?
Theo quan điểm quản lý, "tối ưu" thiên về hiệu quả (kết quả đúng, dễ kiểm soát). The quan điểm kỹ thuật thì tối ưu thiên về hiệu suất (tốc độ là một dạng hiệu suất)

Nếu bạn muốn đào sâu, đi vào cốt kiếc này nọ thì mới cần suy tính. Nếu không thì như hiện tại, bạn thấy Chat GPT "tương đối hiệu quả" thì chả có lý do gì phải suy tính. Cứ theo nó đến khii nào không thấy hiệu quả nữa thì tính cách khác.

 

[thecuong.n99]

Ép nó dùng UNION cũng được. Nhưng chỉ thắc mắc là vùng đã xác định từ 22:636 rồi mà nó còn đi tìm lastRow làm gì không biết?


View attachment 290202View attachment 290203

Sub HideRowsWithZeroValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rngToHide As Range
    Dim i As Long
   
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name
   
    With ws
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A
       
        Application.ScreenUpdating = False ' Disable screen updating for faster execution
       
        For i = 6 To 636 ' Rows 6 to 636
            If .Cells(i, 1).Value = 0 Then ' Check if the value in column A is 0
                If rngToHide Is Nothing Then
                    Set rngToHide = .Rows(i)
                Else
                    Set rngToHide = Union(rngToHide, .Rows(i))
                End If
            End If
        Next i
       
        If Not rngToHide Is Nothing Then
            rngToHide.EntireRow.Hidden = True ' Hide the rows using the Union range
        End If
       
        Application.ScreenUpdating = True ' Enable screen updating
       
    End With
End Sub

Bài đã được tự động gộp: 16/5/23

Sau vài lần ép nó ra bã, yêu cầu GPT phải đi tìm phương án tối ưu, phương án cuối cùng nhanh nhất và tối ưu nhất là Filter
View attachment 290204View attachment 290205

Sub HideRowsWithZeroValue()
    Dim ws As Worksheet
    Dim lastRow As Long
   
    Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name
   
    With ws
        Application.ScreenUpdating = False ' Disable screen updating for faster execution
       
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A
       
        .Range("A6:A636").AutoFilter Field:=1, Criteria1:=0 ' Apply filter to column A with value 0
       
        If Application.WorksheetFunction.Subtotal(103, .Columns(1)) > 1 Then ' Check if any visible cells exist (excluding the header row)
            .Range("A7:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True ' Hide visible rows (excluding the header row)
        End If
       
        .AutoFilterMode = False ' Turn off the AutoFilter
       
        Application.ScreenUpdating = True ' Enable screen updating
    End With
End Sub

cảm ơn bác,e thấy cái này nó ẩn 1 phát đc luôn.

 

[bebo021999]

cảm ơn bác,e thấy cái này nó ẩn 1 phát đc luôn.

Thử cái Filter chưa?
Thay vì 636 dòng, test thử với 636000 biết nhau ngay

 

[thecuong.n99]

Thử cái Filter chưa?
Thay vì 636 dòng, test thử với 636000 biết nhau ngay

e chạy code thì nó báo lỗi