[Hỏi] Ẩn hiện dòng trong Excel dùng VBA

mythanh76 · Đăng lúc 27/8/2014 14:40

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Chào các anh trong diễn đàn.
Em làm đoạn code ẩn hiện dòng trong excel nhưng chỉ ẩn các dòng cho kết quả rổng, khi nhập dữ liệu vào thì các dòng thì các dòng tự động hiện ra, đoạn code của em chỉ tự động ẩn được các dòng, khi em nhập dữ liệu thì không hiện ra được, em phải Unhide thì mất công quá. Các anh chỉ dùm em với, em mới tập làm VBA nên không biết cách nào, em viết code như sau:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim firstAddress As String
With Range("C4:C23")
      Set c = .Find(What:=" ", LookIn:=xlValues)
      If Not c Is Nothing Then
         firstAddress = c.Address
         Do
            c.EntireRow.Hidden = True
            Set c = .FindNext(c)
         Loop While Not c Is Nothing
      End If
End With
End Sub

an hien dong.xls (31.5 KB, Lượt tải về: 2763)

tranhungdao12a3 · Đăng lúc 27/8/2014 15:47

Xài vầy xem:

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("c4:c23")) Is Nothing Then
Dim c As Range
Dim firstAddress As String
Rows("4:23").Hidden = False
    With Range("C4:C23")
        Set c = .Find(What:="", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Hidden = True
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End If
End Sub

Thay vì nhập dữ liệu vô c4:c23 thì bạn nhập dữ liệu sang vùng khác và LInk đến c4:c23 là được đó bạn.

mythanh76 · Đăng lúc 29/8/2014 09:35

Bạn tranhungdao ơi, đoạn code của bạn mình chạy vẫn không được, mình làm rất nhiều file liên kết để quản lý học sinh nên mình rất cần đoạn code ẩn hiện dòng trống tự động khi mình nhập vào thì các file liên kết tự động hiện ra, mình có thử cách dùng Else nhưng nó cứ thụt thò không hay lắm:Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim c As Range

Dim firstAddress As String

WithRange("C4:C23")

Set c =.Find(What:=" ", LookIn:=xlValues)

If Not c IsNothing Then

firstAddress = c.Address

Do

c.EntireRow.Hidden = True

Set c= .FindNext(c)

Loop While Not c Is Nothing

Else

Rows("4:23").EntireRow.Hidden = False

End If

End With

End Sub

tranhungdao12a3 · Đăng lúc 29/8/2014 10:28

mythanh76 gửi lúc 29/8/2014 09:35
Bạn tranhungdao ơi, đoạn code của bạn mình chạy vẫn không được, mình làm rất nhiều ...

Xài vầy đi:

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim firstAddress As String
Rows("4:23").Hidden = False
    With Range("C4:C23")
        Set c = .Find(What:="", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                c.EntireRow.Hidden = True
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With
End Sub

Gán c4:c23 = g24:g43
Xem File đi bạn

xd360.xlsm (23.75 KB, Lượt tải về: 2716)

tranhoe · Đăng lúc 29/8/2014 10:30

mythanh76 gửi lúc 29/8/2014 09:35
Bạn tranhungdao ơi, đoạn code của bạn mình chạy vẫn không được, mình làm rất nhiều ...

Code của Bạn sai ở đây nè: Set c =.Find(What:=" ", LookIn:=xlValues)
chổ tô màu đỏ tương ứng với ký tự trắng.
đúng ra phải là Set c =.Find(What:="", LookIn:=xlValues)

mythanh76 · Đăng lúc 31/8/2014 03:13

Cảm ơn bạn tranhungdao nhé, code được rồi, chúc bạn có nhiều may mắn và sức khỏe.

mythanh76 · Đăng lúc 31/8/2014 04:03

Bạn tranhungdao cho mình hỏi thêm một chút nữa nha, cho đoạn code ẩn hiện dòng vào thì nhập dữ liệu các cột bên cạnh nó nháy màn hình nhứt mắt quá, bạn có cách nào cho nó không nháy được không.

tranhoe · Đăng lúc 31/8/2014 09:21

mythanh76 gửi lúc 31/8/2014 04:03
Bạn tranhungdao cho mình hỏi thêm một chút nữa nha, cho đoạn code ẩn hiện dòng vào thì ...

Để màn hình không nhấp nháy thì thêm lệnh Application.ScreenUpdating vào.
Code:

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim c As Range
    Dim firstAddress As String
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("c4:c23")) Is Nothing Then
        Rows("4:23").Hidden = False
        With Range("C4:C23")
            Set c = .Find(What:="", LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    c.EntireRow.Hidden = True
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing
            End If
        End With
    End If
    Application.ScreenUpdating = True
End Sub

mythanh76 · Đăng lúc 31/8/2014 17:18

Cảm ơn bạn tranhoe (tranhungdao, tung) đã giúp mình về đoạn code. Chúc bạn may mắn và thành công trong công việc, mau chóng có được bạn đời như ý.

nguoibantot · Đăng lúc 29/2/2016 16:51

tranhungdao12a3 gửi lúc 29/8/2014 10:28
Xài vầy đi:
[mw_shl_code=vb,true]Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Ra ...

Cảm ơn anh tranhungdao12a3 nhiều nhé!Nhờ tham khảo bài viết này của anh mà em đã có thể tự động ẩn dòng và hiện dòng được rồi, code của em là:

Private Sub Worksheet_Activate()
Dim c As Range
Dim firstAddress As String
Application.ScreenUpdating = False
Rows("11:202").Hidden = False
With Range("A11:A202")
      Set c = .Find(What:=" ", LookIn:=xlValues)
      If Not c Is Nothing Then
         firstAddress = c.Address
         Do
            c.EntireRow.Hidden = True
            Set c = .FindNext(c)
         Loop While Not c Is Nothing
      End If
End With
End Sub

Anh tranhungdao12a3 ơi! Anh có thể giúp em code thêm phần này được không ạ
Ngoài tính năng tự động ẩn dòng và hiện dòng, khi cập nhật sheet “File nguon” - phần Thông tin học viên (cụ thể là chèn thêm dòng) thì các sheet khác cũng sẽ tự động chèn thêm dòng (có copy công thức). Ngoài ra, em cũng nhờ anh tranhungdao12a3 có thể hướng dẫn giúp em thao tác “Undo” khi sử dụng VBA nhé

Cảm ơn các anh tranhungdao12a3 thật nhiều

robinson · Đăng lúc 15/5/2016 19:56

Trong file của bạn nguoibantot gửi lên thì khi xóa dữ liệu ở cột G trong sheet File nguon thì các sheet khác sẽ tự ẩn dòng, còn xóa dữ liệu các cột khác thì ko. Xin hỏi các a là nếu muốn trong sheet File nguon, khi bất kì ô nào không có dữ liệu thì chức năng ẩn dòng vẫn hoạt động thì sửa code thế nào ạ. Thank các a

thienbinh9091 · Đăng lúc 26/3/2017 16:14

mythanh76 gửi lúc 31/8/2014 17:18
Cảm ơn bạn tranhoe (tranhungdao, tung) đã giúp mình về đoạn code. Chúc bạn may mắn và ...

Anh tranhoe cho em hỏi là sao em cop y nguyên của anh vào nhung khi chạy vẫn ẩn từng dòng là sao ag?

tranhoe · Đăng lúc 27/3/2017 20:19

thienbinh9091 gửi lúc 26/3/2017 16:14
Anh tranhoe cho em hỏi là sao em cop y nguyên của anh vào nhung khi chạy vẫn ẩn từng dòn ...

Code riêng lẽ như thế này thông thường chỉ áp dụng cho 1 file cụ thể. Muốn biết dùng được hay không thì phải biết đọc code và tùy biến code. Tức là phải có căn bản về VBE.
Cho nên nói như Bạn thì Tôi bó tay. File của Bạn, yêu cầu là của Bạn; Tôi có thấy file đâu. Lấy râu Ông nọ đem cắm vào cằm Bà kia rồi bảo không đúng thì trả lời thế nào?.
Thật sự thiếu chuyên nghiệp!

950XL · Đăng lúc 24/10/2017 00:39

tranhungdao12a3 gửi lúc 29/8/2014 10:28
Xài vầy đi:
[mw_shl_code=vb,true]Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Ra ...

Anh ơi? Code như vậy thì phải link nhập liệu. Nếu C4:C23 mà ẩn từ C5:C23 khi em nhập liệu vào C4 thì C5 hiện, nhập vào C5 thì C6 hiện thì code phải viết thế nào ạ?
Anh chỉ giúp em với!

classicgt · Đăng lúc 28/5/2019 10:43

Nhờ anh "tranhoe" giúp hộ em VBA. Khi em next lên xuống công cụ Spinner thì trong bảng giá trị ở cột C thay đổi liên tục số hàng. Khi ô giá trị nào ở cột C trống thì tự ẩn đi, có thì tự nhận mở ẩn. Quan trọng cứ giá trị ở ô "N5" thay đổi thì cập nhật ẩn hàng theo điều kiện giá trị ở cột C trống. Như vậy khi em in sẽ khỏi phải mất công ẩn, mở liên tục, rất mất thời gian. Em xin chân thành cảm ơn.

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[Hỏi] Ẩn hiện dòng trong Excel dùng VBA

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

mythanh76

Đánh giá

Đánh giá

Đánh giá

Đánh giá

[Hỏi] Ẩn hiện dòng trong Excel dùng VBA

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Cảm ơn!

Cảm ơn!

mythanh76

Đánh giá

Cảm ơn!

Đánh giá

Đánh giá

Đánh giá

Cảm ơn!

Cảm ơn!