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

³]©wVBA CommandButton¤Á´«ÁôÂæC­×§ï¬°ÁôÂÃÄæ

³]©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

¦^´_ 1# james1912
³\¦hµ{¦¡½X¥i¥Î¿ý»s·s¥¨¶°¨ú±o.
½m²ß¤@¤U¾Þ§@Ä檺ÁôÂõ{¦¡½X,±a¤J§Aªºµ{¦¡½X¸Õ¸Õ¬Ý.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ·PÁ±z!§Ú¤w¬ã¨s¥X¨Ó¤F

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD