ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤u§@ªíÅã¥Ü»PÁôÂÃ

¬Ý¤£À´­n°µ¤°»ò???
¶]°j°é, ·íµM·|¦h±i¤u§@ªíÅã¥Ü©ÎÁôÂÃ~~

TOP

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Cells(Target(1).Row, 2)
     On Error GoTo 999
     CK% = Sheets(.Value).Visible + 1
     Sheets(.Value).Visible = CK
     .Cells(1, 3) = Array("Åã¥Ü¤u§@ªí", "ÁôÂäu§@ªí")(CK)
     .Cells(1, 3).Interior.Color = Array(vbRed, vbBlue)(CK)
End With
999: End Sub


=============================

TOP

¦^´_ 8# henry860608

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Cells(Target(1).Row, 2)
     On Error GoTo 999
     ck% = Abs(1 - Sheets(.Value).Visible)
     Sheets(.Value).Visible = ck
     .Cells(1, 3) = Array("ÁôÂäu§@ªí", "Åã¥Ü¤u§@ªí")(ck - 1)
     .Cells(1, 3).Interior.Color = Array(vbBlue, vbRed)(ck - 1)
End With
999: End Sub

¦Û¦æ¬ã¨s¤U:
xlSheetVisible = -1
xlSheetHidden = 0
xlSheetVeryHidden = 2

========================

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD