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

Excel ÂI¿ï¥ô¤@Àx¦s®æ¡A¥H«ö¶s¿z¿ïµ²ªG

Excel ÂI¿ï¥ô¤@Àx¦s®æ¡A¥H«ö¶s¿z¿ïµ²ªG

¥»©«³Ì«á¥Ñ oobird ©ó 2011-8-15 13:11 ½s¿è

[attach]7460[/attach]

sheet2.png (63.67 KB)

sheet2.png

  1. Private Sub CommandButton1_Click()
  2.     If Cells.SpecialCells(12).Rows.Count = 65536 Then
  3.         Set Rng = Range([a2], [f65536].End(3)).ColumnDifferences(Selection)
  4.         Rng.EntireRow.Hidden = True
  5.     Else
  6.         Cells.EntireRow.Hidden = False
  7.     End If
  8. End Sub
½Æ»s¥N½X
a.gif

TOP

¬O¤@­Ó«Ü¦nªº³Ð·N

¥i¥H°µ¦¨¼W¯q¶°¤u¨ãªº¤@³¡¥÷ ´N·|§ó¦n¤F

TOP

¦^´_ 2# oobird

½Ð°Ý SpecialCells(12) ªº 12 §t¸q¬°¦ó
¨ä¥L¬ÛÃöªº¼Æ¦r¦³µL¸ê®Æ¥i°Ñ¦Ò
  1. XlCellType ¥i¥H¬O³o¨Ç XlCellType ±`¼Æ¤§¤@¡C
  2. xlCellTypeAllFormatConditions¡C  ¥ô¦ó®æ¦¡ªºÀx¦s®æ
  3. xlCellTypeAllValidation¡C¨ã¦³ÅçÃÒ·Ç«hªºÀx¦s®æ
  4. xlCellTypeBlanks¡CªÅÀx¦s®æ
  5. xlCellTypeComments¡C¥]§tµù¸ÑªºÀx¦s®æ
  6. xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
  7. xlCellTypeFormulas¡C¥]§t¤½¦¡ªºÀx¦s®æ
  8. xlCellTypeLastCell¡C¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
  9. xlCellTypeSameFormatConditions¡C  ¦³¬Û¦P®æ¦¡ªºÀx¦s®æ
  10. xlCellTypeSameValidation¡C  ¦³¬Û¦PÅçÃÒ·Ç«hªºÀx¦s®æ
  11. xlCellTypeVisible¡C©Ò¦³¥i¨£Àx¦s®æ
½Æ»s¥N½X
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD