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

[µo°Ý] ¦³Ãö«ö¶sÁôÂøò¨ú®øÁôÂ꺰ÝÃD

[µo°Ý] ¦³Ãö«ö¶sÁôÂøò¨ú®øÁôÂ꺰ÝÃD

½Ð°Ý¤@¤U
§Ú·Q°µ­Ó«ö¶s«ö¤U¥h«á¥i¥H§âA2-A9ÁôÂáA¦A«ö¤@¦¸·|¨ú®øÁôÂÃ
¥Ø«e§Ú¥i¥H°µ¥X¨â­Ó«ö¶s¥X¨Ó¡A¤@­Ó¬OÁôÂáA¥t¤@­Ó¬O¨ú®øÁôÂÃ
½Ð°Ý­n«ç»ò§â³o¨â­Ó«ö¶s¦X¨Ö¦¨¤@­Ó©O? ¤]´N¬O«ö¤U¥h«á¥i¥H§âA2-A9ÁôÂáA¦A«ö¤@¦¸·|¨ú®øÁôÂÃ

Private Sub CommandButton1_Click()
' hide ¥¨¶°
' ÁôÂÃA2-A9
    Rows("2:9").Select
    Selection.EntireRow.Hidden = True
End Sub

Private Sub CommandButton2_Click()
'nohide ¥¨¶°
' ¨ú®øÁôÂÃA2-A9
  Rows("1:10").Select
  Selection.EntireRow.Hidden = False
End Sub

¥H¤W³o­Ó­Ó«ç»ò§â¥¦©ñ¦b¦P¤@­Ó«ö¶s¤º©O?
·PÁÂ

¦^´_ 1# ShaoQiang

¸Õ¸Õ¬Ý
  1. Sub test()

  2. ' hide ¥¨¶°

  3.     If Rows("2:9").EntireRow.Hidden = True Then
  4.         Rows("2:9").EntireRow.Hidden = False ' ¨ú®øÁôÂÃA2-A9
  5.     Else
  6.         Rows("2:9").EntireRow.Hidden = True ' ÁôÂÃA2-A9
  7.     End If
  8. End Sub
½Æ»s¥N½X
PKKO

TOP

¦^´_ 2# PKKO
¥i²²¤¨Ç
  1. Private Sub CommandButton1_Click()
  2. ' hide ¥¨¶°
  3. ' ÁôÂÃA2-A9
  4.     With Rows("2:9")
  5.         .EntireRow.Hidden = IIf(.EntireRow.Hidden, False, True)
  6.     End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# PKKO

OK¦¨¥\¤F~~
¨º¦pªG¦bÁÙ¨SÁôÂîɥLªº«ö¶s·|Åã¥Ü"ÁôÂÃ"~~ÂI¿ïÁôÂëá«ö¶s·|Åã¥Ü"¨ú®øÁôÂÃ"
³o¼Ë­n«ç»ò§ï©O?

TOP

¦^´_ 3# GBKEE

GBKEE¤jªº»yªk¤]¦¨¥\¥i¥H¨Ï¥Î~«D±`·PÁÂ~:D

TOP

¥»©«³Ì«á¥Ñ 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§óºë²
¦ý½Ð°Ý¤@¤U­n«ç»ò§ï«öÁ䪺Ã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

TOP

¦^´_ 6# ShaoQiang
  1. Private Sub CommandButton1_Click()
  2.     Dim Msg As Boolean
  3.     With Rows("25:41").EntireRow
  4.         .Hidden = IIf(.Hidden, False, True)
  5.         Msg = .Hidden
  6.     End With
  7.     With CommandButton1
  8.         .Caption = IIf(Msg, "Åã¥Ü", "ÁôÂÃ")
  9.         .BackColor = IIf(Msg, vbRed, vbBlue)
  10.         .ForeColor = IIf(Msg, vbBlack, vbWhite)
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE

·PÁÂG¤jªº¦^ÂÐ~

½Ð°ÝG¤j¦pªG§Ú­n§ïÃC¦âªº¸Ü­n«ç»ò§ï©O? ¦³ÃC¦âªº»yªk¥i¥H¬d¸ß¶Ü?
¨Ò¦p§Ú­n²L¦Ç¦â¸ò²LÂŦâ

TOP

½Ð°Ý¥H¤Wµ{§Ç¬O«ü©wActiveX±±¨î¶µªº©R¥O«ö¶s.¬O§_¥i¥H¦b¦C¦L®É¤£¦L¥X¨Ó,­Y¥Îªí³æ±±¨î¶µ«ö¶s¥i¥H¶Ü?

TOP

¦^´_ 9# fei6999

³o°ÝÃD¥i¯à­n½ÐGBKEE¤j¦^ÂФ@¤U

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD