- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-3-27
|
¦^´_ 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
======================== |
|