Tạo nút Ẩn/hiện 1 đoạn dòng (khối) (2 người xem)

[Van Thai Su]

Vướng mắc VBA (nhiều thứ)

Tôi muốn tạo 1 nút Ẩn/hiện 1 đoạn dòng (khối)
Cụ thể là: button Ẩn/hiện, cần ẩn dòng 20 đến 25 (hoặc xem như là từ A20:C25),
ban đầu vào sheet thì nó sẽ ẩn trước số dòng trên
click vào button thỉ nó hiện lại số dòng trên, click tiếp thì lại ẩn đi.

Bên cạnh đó có cách nào tạo ghi chú tùy biến ko mọi người (tức là trường hợp nhập 1 giá trị vào khác nhau thì nó có ghi chú khác nhau chẳng hạn).

 

[comet_1701]

Tôi muốn tạo 1 nút Ẩn/hiện 1 đoạn dòng (khối)
Cụ thể là: button Ẩn/hiện, cần ẩn dòng 20 đến 25 (hoặc xem như là từ A20:C25),
ban đầu vào sheet thì nó sẽ ẩn trước số dòng trên
click vào button thỉ nó hiện lại số dòng trên, click tiếp thì lại ẩn đi.

Bên cạnh đó có cách nào tạo ghi chú tùy biến ko mọi người (tức là trường hợp nhập 1 giá trị vào khác nhau thì nó có ghi chú khác nhau chẳng hạn).

Sub An_Hien_Dong()
    Dim AnDong As String, HuyAnDong As String
    AnDong = ChrW(7848) & "n dòng"
    HuyAnDong = "H" & ChrW(7911) & "y " & ChrW(7849) & "n dòng"
    With Sheet1.Shapes(Application.Caller).TextFrame.Characters
        .Text = IIf(.Caption = AnDong, HuyAnDong, AnDong)
        Sheet1.Range("A20:C25").EntireRow.Hidden = (.Text = HuyAnDong)
    End With
End Sub

Đây là môt code trên GPE, mình ko nhớ rõ tác giả, bạn vào diễn đàn có nhiều chủ đề này
Hoặc có thể viết module đơn giản rồi cho vào command button

Sub An_Dong()
Sheet1.Range("A20:C25").EntireRow.Hidden = True
End Sub

Sub Hien()
Sheet1.Range("A20:C25").EntireRow.Hidden = False
End Sub

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "LOC" Then
    An_Dong
    CommandButton1.Caption = "ALL"
Else
    Hien
    CommandButton1.Caption = "LOC"
End If
End Sub

 

[ndu96081631]

Không có sư phụ nào chỉ dẫn cho với

Lúc đầu hỏi về vấn đề ẩn hiện dòng... nhưng càng hỏi thì càng đi xa chủ đề
Chủ đề nào ra chủ đề đó, không có cái vụ lẩu thập cẩm ở đây nha

 

[Van Thai Su]

Chả nhẽ mỗi lần lại 1 topic, lúc đó lại có bác vào bảo sao ko gom vào 1 topic cho tiện. Hôm trước đã gặp 1 lần thế này. Vậy làm thế nào cho thỏa mãn đây?

Lại sẽ có 1 vài bác bảo sao k dùng search của diễn đàn, xin thưa thêm là tôi đã tìm nhưng chủ đề đó nhiều nội dung không khớp, thậm chí ko có trả lời.

Khó quá, đi nhờ, đụng 1 số bác rành rồi nên cạy cục hỏi mãi. Ngó lại bản thân giống như đi ăn xin vậy, nghĩ cũng nhục.

 

[ndu96081631]

Chả nhẽ mỗi lần lại 1 topic, lúc đó lại có bác vào bảo sao ko gom vào 1 topic cho tiện. Hôm trước đã gặp 1 lần thế này. Vậy làm thế nào cho thỏa mãn đây?

Chính xác phải làm vậy nếu như hỏi 2 vấn đề không liên quan nhau. Bởi không thể trong cùng một topic mà lại hỏi loạn xà ngầu đủ mọi chủ đề

Khó quá, đi nhờ, đụng 1 số bác rành rồi nên cạy cục hỏi mãi

Nếu người ta hỏi lại chứng tỏ là người ta chưa hiểu bạn nói gì. Vậy bạn phải có nhiệm vụ giải thích cho người ta hiểu nếu vẫn còn muốn nhờ giúp

Ngó lại bản thân giống như đi ăn xin vậy, , nghĩ cũng nhục.

Thì đi nhờ giúp cũng là xin thôi. Trên diễn đàn này ai mà chẳng từng đi xin, có gì là nhục hả bạn?
Nếu vẫn thấy nhục, có thể đừng nhờ nữa là xong!