Em xin chào các anh chị trong diễn đàn. em có siêu tầm được đoạn code sau trên diễn đàn như sau ạ:
Sub InBB()
Dim Rng As Range, Cll As Range, SoBB As String
With Sheet1
Set Rng = .Range("A11", .Range("A" & Rows.Count).End(xlUp))
End With
With Sheet2
For Each Cll In Rng
If Cll.Value <> Empty And IsNumeric(Cll.Value) Then
.Range("N55").Value = Cll.Value
.PrintPreview
SoBB = .Range("A53").Value
If InStrRev(SoBB, "VC", -1, vbBinaryCompare) > 0 Then
Sheet3.PrintPreview: Sheet4.PrintPreview: GoTo Tiep
End If
If InStrRev(SoBB, "ATGT", -1, vbBinaryCompare) > 0 Then
Sheet5.PrintPreview: GoTo Tiep
End If
If InStrRev(SoBB, "BT", -1, vbBinaryCompare) > 0 Then
Sheet4.PrintPreview
End If
End If
Tiep:
Next
End With
End Sub
Em muốn thêm code tự động ẩn hiện dòng khi in ở dòng 40,41 của sheet3 theo giá trị tại ô r31 của sheet3 . Khi r31 có giá trị là true thì hiện dòng 40,41 và khi giá trị ô r31 là false thì ẩn dòng. thì cần thêm vào đoạn code trên như nào ạ. Em in nhờ các anh chị trên diễn đàn ạ
Sub InBB()
Dim Rng As Range, Cll As Range, SoBB As String
With Sheet1
Set Rng = .Range("A11", .Range("A" & Rows.Count).End(xlUp))
End With
With Sheet2
For Each Cll In Rng
If Cll.Value <> Empty And IsNumeric(Cll.Value) Then
.Range("N55").Value = Cll.Value
.PrintPreview
SoBB = .Range("A53").Value
If InStrRev(SoBB, "VC", -1, vbBinaryCompare) > 0 Then
Sheet3.PrintPreview: Sheet4.PrintPreview: GoTo Tiep
End If
If InStrRev(SoBB, "ATGT", -1, vbBinaryCompare) > 0 Then
Sheet5.PrintPreview: GoTo Tiep
End If
If InStrRev(SoBB, "BT", -1, vbBinaryCompare) > 0 Then
Sheet4.PrintPreview
End If
End If
Tiep:
Next
End With
End Sub
Em muốn thêm code tự động ẩn hiện dòng khi in ở dòng 40,41 của sheet3 theo giá trị tại ô r31 của sheet3 . Khi r31 có giá trị là true thì hiện dòng 40,41 và khi giá trị ô r31 là false thì ẩn dòng. thì cần thêm vào đoạn code trên như nào ạ. Em in nhờ các anh chị trên diễn đàn ạ