Tạo nút ẩn hiện dòng trong excel 2007

[jennysam]

Có ai giúp mình tạo ẩn hiện dòng trong excel 2007 kiểu dưới đây không? (không sử dụng group nhé) vì group như vậy chỉ không nhìn được header đâu nhé


Đó, kiểu từng cấp độ như vậy, ai làm được upfile excel lên giúp mình nhé, hoặc hướng dẫn cho mình nhé
Thay vì mấy biểu tượng kiểu kia có thể làm thành dấu + hoặc - như kiểu mấy web làm ý

Cảm ơn mọi người nhiều

 

[chuot0106]

Có ai giúp mình tạo ẩn hiện dòng trong excel 2007 kiểu dưới đây không? (không sử dụng group nhé) vì group như vậy chỉ không nhìn được header đâu nhé

View attachment 115631
Đó, kiểu từng cấp độ như vậy, ai làm được upfile excel lên giúp mình nhé, hoặc hướng dẫn cho mình nhé
Thay vì mấy biểu tượng kiểu kia có thể làm thành dấu + hoặc - như kiểu mấy web làm ý

Cảm ơn mọi người nhiều

Bạn giải thích rõ yêu cầu được không?

 

[phucbugis]

Bạn giải thích rõ yêu cầu được không?

tốt nhất là Up file đó lên để xem hiện trường nó thế nào.

 

[jennysam]

Mình muốn ẩn những nội dung sau 1 và 2 mà không phải là dùng chế độ group trong excel

 

[phucbugis]

Ai giúp mình với, mình cần gấp lắm

Mình đã làm xong cho bạn rồi đây, mở macro trước khi dùng hi.
Bạn double click vào các ô + hoặc - ở cột B để xem kết quả

File mình đã chỉnh, chạy rất OK. , bạn xem file Mapping (tao group) 4.

Private Sub [COLOR=#ff0000]Worksheet_SelectionChange[/COLOR](ByVal Target As Range)
On Error GoTo Thoat 'khi chon nguyen cot
    If Target.Column = 2 Then
        If Target.Value = "-" Then
            Range("C1").ClearContents
            
            If Right(Selection.End(xlDown).Address, 5) <> 65536 Then
                Range("C1") = Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeBlanks).Address
                Hyperlinks.Add Anchor:=ActiveCell.Offset(, 1), Address:="", ScreenTip:=Range("C1").Value
            Else
                Range("C1") = ActiveCell.Offset(1, 0).Address & ":" & Range("C65536").End(xlUp).Offset(0, -1).Address
                Hyperlinks.Add Anchor:=ActiveCell.Offset(, 1), Address:="", ScreenTip:=Range("C1").Value
            End If
        End If
    End If
    
Thoat:
Exit Sub
End Sub


Private Sub [COLOR=#ff0000]Worksheet_BeforeDoubleClick[/COLOR](ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 Then
    Cancel = True
        If Target.Value <> "" Then
            If Target.Row = 1 Then
                If Target.Value = "+" Then
                    Call showall_row
                Else
                    Call hideall_row
                End If
            Else
                ScreenTip = GetHyperlinkScreenTip(ActiveCell.Offset(, 1))
                If Target.Value = "-" Then
                    Range(ScreenTip).EntireRow.Hidden = True  'hide
                    ActiveCell.Value = "+"
                Else
                    Range(ScreenTip).EntireRow.Hidden = False  'show
                    ActiveCell.Value = "-"
                End If
            End If
        End If
    End If
End Sub

Function [COLOR=#ff0000]GetHyperlinkScreenTip[/COLOR](Hyperlink_cell As Range)
    GetHyperlinkScreenTip = WorksheetFunction.Clean(Hyperlink_cell.Hyperlinks(1).ScreenTip)
End Function

Dim rng As Range, rRange As Range


Sub [COLOR=#ff0000]showall_row[/COLOR]()
Dim LastRow As Long
    If WorksheetFunction.CountA(Cells) > 0 Then
        LastRow = Cells.Find(What:="*", After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    End If


    Range("C1") = ActiveCell.Offset(1, 0).Address & ":$B$" & LastRow
    Range(Range("C1").Value).EntireRow.Hidden = False  'show
    ActiveCell.Value = "-"
    Set rRange = Range(Selection, Selection.Cells(65536, 1).End(xlUp))
    For Each rng In rRange
        If rng = "+" Then rng = "-"
    Next
End Sub


Sub [COLOR=#ff0000]hideall_row[/COLOR]()
    ActiveCell.Value = "+"
    Set rRange = Range(Selection, Selection.Cells(65536, 1).End(xlUp))
    
    For Each rng In rRange
        If rng = "-" Then
        ScreenTip = GetHyperlinkScreenTip(rng.Offset(, 1))
            Range(ScreenTip).EntireRow.Hidden = True 'hide
            rng = "+"
        End If
    Next
End Sub

Link MediaFire: Mapping (tao group) 4

 

[Let'GâuGâu]

Mình muốn ẩn những nội dung sau 1 và 2 mà không phải là dùng chế độ group trong excel

mục đích của bạn là giữ lại hàng đầu làm tiêu đề (header) phải ko? hay bạn kỵ xài group?
nếu ko kỵ nó thì bạn convert nó lại theo hướng dẫn sau đây
http://razgulyaev.blogspot.com/2012/05/how-to-group-rows-in-ms-excel-so-that.html

 

[hungpa]

Bạn thử áp dụng tính năng Subtotal như file mình gửi xem sao. Khi nhấn vào dấu + thì nó sổ ra chi tiết, nhấn vào dấu - nó ẩn chi tiết đi, có thể đúng ý bạn.

 

[jennysam]

Mình không kỵ dùng group, như bạn nói mình muốn để hàng đầu làm header, cảm ơn bạn nhiều
Cảm ơn phucbugis nhé, đúng ý mình rồi đấy

 

[jennysam]

Mình đã làm xong cho bạn rồi đây, mở macro trước khi dùng hi.
Bạn double click vào các ô + hoặc - ở cột B để xem kết quả

File mình đã chỉnh, chạy rất OK. , bạn xem file Mapping (tao group) 3.

[/CODE]

Bạn có thể hướng dẫn mình làm không?

 

[phucbugis]

Bạn có thể hướng dẫn mình làm không?

Bạn down lại file Mapping (tao group) 4.xls mình mới gửi ở #5

- Bạn double click vào các ô + hoặc - ở cột B, nếu - thì nó hide row, + thì show row.
- Mỗi khi chèn thêm row vào 1 group -> ko ảnh hưởng.
- Khi thêm group thì bạn chỉ cần thêm dấu - ở cột B (bên cạnh cái tiêu đề của group vừa tạo)

 

[Let'GâuGâu]

Bạn down lại file Mapping (tao group) 4.xls mình mới gửi ở #5

ở chở đính kèm file, kéo xuống phía dưới bạn sẻ thấy "remove file"

 

[chuot0106]

ở chở đính kèm file, kéo xuống phía dưới bạn sẻ thấy "remove file"

Bạn có thể đính kèm hình ảnh được không? Mình không tìm thấy "remove file".

 

[phucbugis]

Bạn có thể đính kèm hình ảnh được không? Mình không tìm thấy "remove file".

Khi bạn sửa bài viết: Đổi sang khung lớn - Bấm nút File đính kèm


(có thể bạn nới rộng form đó ra, nó nằm bên dưới)

 

[chuot0106]

Khi bạn sửa bài viết: Đổi sang khung lớn - Bấm nút File đính kèm
View attachment 115647

(có thể bạn nới rộng form đó ra, nó nằm bên dưới)

Vậy là mình chỉ remove được file vừa tải lên thôi. Mình muốn remove file đã tải lên trước và thay thế bằng file khác có được không bạn?

 

[phucbugis]

Vậy là mình chỉ remove được file vừa tải lên thôi. Mình muốn remove file đã tải lên trước và thay thế bằng file khác có được không bạn?

Được chứ, thì bài trên đề cập đến việc xóa các file đã up trước đó mà.

 

[chuot0106]

Được chứ, thì bài trên đề cập đến việc xóa các file đã up trước đó mà.

Ý mình là các File đã tải lên xong rồi cơ. Có thể là của những bài cách đây đã lâu.

 

[phucbugis]

Có thể là của những bài cách đây đã lâu.

Mình chưa thử, nhưng nếu có xuất hiện chữ Remove chắc là được.

 

[chuot0106]

Mình chưa thử, nhưng nếu có xuất hiện chữ Remove chắc là được.

Mình đã thử nhưng không được bạn ạ. Ah tiện đây cho mình hỏi chút: Bạn có tài liệu VBA nào ko gửi cho mình xin với. Mình theo dõi mấy bài tập của bạn đã giúp đỡ mình thấy bạn khá giỏi VBA.
Mail: chuot0106@gmail.com

 

[danhminh959]

Cả nhà ơi, giúp mình với. Mình muốn mở ẩn dòng mà không được. Sp này của bộ phận khác giao cho Đội nhập dữ liệu. có ddieuf kiện giúp mình hieur thêm

 

[Let'GâuGâu]

Lâu rồi không thấy Phucbugis xuất hiện nhỉ???
không biết có "đột biến gen" thành nick nào khác hay tuỵet tích giang hồ nhỉ?