Code ẩn / hiện dòng diễn giải có điều kiện (1 người xem)

[BoKuDo]

Nhờ các bạn giúp mình đoạn code ẩn/hiện các dòng diễn giải với điều kiện là dựa vào các ô ở cột A có giá trị là các số (vd: 1,2,3,...).
Cụ thể: khi chạy code nếu các dòng đó (Các dòng mà ở cột A có giá trị là số) chưa ẩn thì sẽ làm ẩn. Còn nếu các dòng đó đang ẩn thì sẽ làm hiện.

Đặc biệt dòng 9 luôn luôn ẩn cho dù chạy code.

Mình có gửi bảng đính kèm để các bạn tiện giúp.
Mình cảm ơn trước!

 

[Let'GâuGâu]

Nhờ các bạn giúp mình đoạn code ẩn/hiện các dòng diễn giải với điều kiện là dựa vào các ô ở cột A có giá trị là các số (vd: 1,2,3,...).
Cụ thể: khi chạy code nếu các dòng đó (Các dòng mà ở cột A có giá trị là số) chưa ẩn thì sẽ làm ẩn. Còn nếu các dòng đó đang ẩn thì sẽ làm hiện.

Đặc biệt dòng 9 luôn luôn ẩn cho dù chạy code.

Mình có gửi bảng đính kèm để các bạn tiện giúp.
Mình cảm ơn trước!

mạng nhà mình chán thiết, nó cứ quay tròn tròn riết.........

Sub Macro1()
    If Range([a11], [a11].End(xlDown)).SpecialCells(12).Rows.Count = Range([a11], [a11].End(xlDown)).Rows.Count Then
        Range([a11], [a11].End(xlDown)).SpecialCells(2, 1).EntireRow.Hidden = 1
    Else
        Range([a11], [a11].End(xlDown)).EntireRow.Hidden = False
    End If
End Sub

 

[BoKuDo]

mạng nhà mình chán thiết, nó cứ quay tròn tròn riết.........

Sub Macro1()
    If Range([a11], [a11].End(xlDown)).SpecialCells(12).Rows.Count = Range([a11], [a11].End(xlDown)).Rows.Count Then
        Range([a11], [a11].End(xlDown)).SpecialCells(2, 1).EntireRow.Hidden = 1
    Else
        [COLOR=#0000cd]Range([a11], [a11].End(xlDown)).EntireRow.Hidden = False[/COLOR]
    End If
End Sub

Mình cảm ơn! Về phần hide thì mình thấy ổn rồi, tuy nhiên phần unhide vẫn chưa được bạn ah. vẫn chưa thể unhide tất cả các dòng vừa ẩn.
Như trong VD ở file đính kèm thì dòng bên dưới 'Mẻ 3' ko hiện sau khi chạy code.
Nhờ bạn xem lại giúp mình.

 

[Let'GâuGâu]

Tôi tắt máy tính rồi, bạn cho dong Cuời nó dài ra vd A11:A100

 

[BoKuDo]

Tôi tắt máy tính rồi, bạn cho dong Cuời nó dài ra vd A11:A100

Mình cảm ơn!
Mình đã thử thay như ý bạn "Range([a11], [a11:a100]).EntireRow.Hidden = False"
thì hiện được mấy dòng cuối đó, trước mắt vậy đã
Hy vọng ngày mai bạn sẽ giúp hoàn chỉnh đoạn code, để đối với bảng tính có bao nhiêu dòng thì code vẫn chạy tốt

Chúc ngủ ngon!

 

[ChanhTQ@]

Nói leo 1 cái, vì chắc chàng ta đang ngủ

[Option Explicit
Sub MacroGPE()
 Dim Rws&
 
 Rws = [b10].CurrentRegion.Rows.Count * 9
 'MsgBox Rws        '
 If [a11].Resize(Rws).SpecialCells(12).Rows.Count = [a11].Resize(Rws).Rows.Count Then
    Range([a11], [a11].End(xlDown)).SpecialCells(2, 1).EntireRow.Hidden = True
 Else
    [a11].Resize(Rws).EntireRow.Hidden = False
 End If
End Sub

 

[BoKuDo]

[Option Explicit
Sub MacroGPE()
 Dim Rws&
 
 Rws = [b10].CurrentRegion.Rows.Count * 9
 'MsgBox Rws        '
 If [a11].Resize(Rws).SpecialCells(12).Rows.Count = [a11].Resize(Rws).Rows.Count Then
    Range([a11], [a11].End(xlDown)).SpecialCells(2, 1).EntireRow.Hidden = True
 Else
    [a11].Resize(Rws).EntireRow.Hidden = False
 End If
End Sub

Cảm ơn bạn! Code đúng ý mình rồi
Có thể cho mình hỏi chút là 2 dòng
Rws = [b10].CurrentRegion.Rows.Count * 9
'MsgBox Rws '
có ý nghĩa gì được ko? (Mình hỏi để biết hôm sau còn tùy biến cho các mục đích tương ứng)
Mình cảm ơn!

 

[ChanhTQ@]

Câu lệnh 1:
Lấy chỉ số dòng của vùng liền kề với [B10] đưa vô biến Rws đã khai báo.

Câu 2
Hiện thời câu này đang bị vô hiệu hóa bỡi dấu nháy đơn đầu dòng;
Nếu bỏ dấu nháy này đi & chạy macro; Bạn sẽ fải tiếp xúc với hộp thoại; Nó báo cho bạn biết số liệu mà nó đang chứa trong biến Rws
(Dấu nháy cuối dòng lệnh để đối fó với chức năng của diễn đàn [PHP ].. .[/php] mà thôi

 

[Let'GâuGâu]

[Option Explicit
   .CurrentRegion
  [/QUOTE][QUOTE][/QUOTE]

xài cái này dể dính đạn lắm..........hihihihiih

 

[BoKuDo]

xài cái này dể dính đạn lắm..........hihihihiih

'dính đạn' là sao bạn?

 

[Let'GâuGâu]

'dính đạn' là sao bạn?

bạn xài tốt là được rồi........hihihihi
bạn biết thao tác bằng tay ko?
bạn đặt con trỏ tại ô A10==> nhấn Ctrl G==>special==>chọn current zone==> nó sẻ chọn cho bạn từ A10:G27 (tức là chọn dữ liệu liên tục trong một vùng)
===========
bị giờ nếu vô tình ô A9 dính khoảng trắng bạn thao tác như trên xem nó chọn như thế nào?
nói chung tôi ít khi sử dụng nó nếu số liệu không chuẩn, nhất là người khác hập mà đưa cho mình làm, một vài đoạn code ngắn ngắn thì còn biết nó sai ở đâu...............nếu mà
cả một project dài thì tìm chổ sai cũng hơi mệt mỏi.heheheh