- ©«¤l
- 41
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2014-11-9
- ³Ì«áµn¿ý
- 2022-1-13
|
¥»©«³Ì«á¥Ñ ShaoQiang ©ó 2014-11-22 00:15 ½s¿è
§Ú¤w¸g§ä¨ìµª®×¤F¡A¥Î¥H¤U³o¼Ë¼g´N¥i¥H¤F¡A©Î¥ÎGBKEE¤j¤jªº»yªk¥i¥H§óºë²
¦ý½Ð°Ý¤@¤Un«ç»ò§ï«öÁ䪺ÃC¦â©O?
¨Ò¦p§Ún¦Ç¦â©Î¨ä¥¦ÃC¦â~n¥hþÃä§ä»yªk? (¥H¤Uªº®×¨Ò¬O¬õ¦â¸òÂŦâ)
Private Sub CommandButton1_Click()
' hide ¥¨¶°
If Rows("25:41").EntireRow.Hidden = True Then
CommandButton1.Caption = "ÁôÂÃ"
CommandButton1.BackColor = vbBlue
Rows("25:41").EntireRow.Hidden = False ' ¨ú®øÁôÂÃA2-A9
Else
CommandButton1.Caption = "Åã¥Ü"
CommandButton1.BackColor = vbRed
Rows("25:41").EntireRow.Hidden = True ' ÁôÂÃA2-A9
End If
End Sub |
|