³]©wVBA CommandButton¤Á´«ÁôÂæCקאּÁôÂÃÄæ
- ©«¤l
- 10
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- service pack 1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-11-21
- ³Ì«áµn¿ý
- 2019-12-26
|
³]©wVBA CommandButton¤Á´«ÁôÂæCקאּÁôÂÃÄæ
¦U¦ì·s¶i½Ð±Ð¤@¤U§Ú¨Ï¥Î¤U¦C»yªk°õ¦æCommandButton±±¨îÁôÂäF8~15¦C
¦p§Únק令CommandButton1ÁôÂÃE~H¤ÎCommandButton2 ÁôÂà N~S
½Ð°Ý¸Ó»yªk¸Ó¦p¦ó×¥¿
Private Sub CommandButton1_Click()
With Rows("8:15")
.EntireRow.Hidden = IIf(.EntireRow.Hidden, False, True)
Dim Msg As Boolean
End With
With CommandButton1
.Caption = IIf(Msg, "Åã¥Ü", "ÁôÂÃ")
.BackColor = IIf(Msg, vbRed, vbBlue)
.ForeColor = IIf(Msg, vbBlack, vbWhite)
End With
End Sub |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- service pack 1
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-11-21
- ³Ì«áµn¿ý
- 2019-12-26
|
¦^´_ 2# GBKEE
·PÁ±z!§Ú¤w¬ã¨s¥X¨Ó¤F |
|
|
|
|
|
|