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

¦p¦ó¥ÎVBA±N¦³¼Æ¦r»P¤å¦rªºÄæ¦ì¨º¤@¾ã¦C§R°£

¦p¦ó¥ÎVBA±N¦³¼Æ¦r»P¤å¦rªºÄæ¦ì¨º¤@¾ã¦C§R°£

½Ð°Ý¦p¦ó¥ÎVBA±NAÄæ¦ì¥u­n¦³¼Æ¦r»P¤å¦r¨Ò¦p21253AÄæ¦ì¨º¤@¾ã¦C§R°£
ÁÂÁÂ

¦^´_ 6# GBKEE
ÁÂÁ¤j¤j±Ð¾Ç ¤]¸Ñ¨M§Úªº°ÝÃD

TOP

¦^´_ 5# jerrystock


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE
ÁÂÁ¤j¤j±Ð§Ú¤èªk §Ú¿ý»sªº¥¨¶°¬°:
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeConstants, 2).Select 'AÄæ¦ì¥u­n¦³¤å¦r´N§R°£¾ã¦C
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
End Sub
¥i¬O¤£ª¾¹D¦p¦ó§R°£¿ï¥X¨Óªº¾ã¦C
ÁٽФj¤j«ü¾É¤@¤U
ÁÂÁÂ

TOP

¦^´_ 3# jerrystock
¦p¹Ï¿ý»s·s¥¨¶°¬Ý¬Ý





vbaªº»¡©ú
  1. SpecialCells ¤èªk
  2. ½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
  3. expression.SpecialCells(Type, Value)
  4. expression      ¥²¿ï¡C¸Ó¹Bºâ¦¡·|¶Ç¦^ [®M¥Î©ó] ²M³æ¤¤ªº¨ä¤¤¤@­Óª«¥ó¡C

  5. Type     ¥²¿ïªº XlCellType¡C­n¥]§tªºÀx¦s®æ¡C
  6. XlCellType ¥i¥H¬O³o¨Ç XlCellType ±`¼Æ¤§¤@¡C
  7. xlCellTypeAllFormatConditions¡C  ¥ô¦ó®æ¦¡ªºÀx¦s®æ
  8. xlCellTypeAllValidation¡C¨ã¦³ÅçÃÒ·Ç«hªºÀx¦s®æ
  9. xlCellTypeBlanks¡CªÅÀx¦s®æ
  10. xlCellTypeComments¡C¥]§tµù¸ÑªºÀx¦s®æ
  11. xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
  12. xlCellTypeFormulas¡C¥]§t¤½¦¡ªºÀx¦s®æ
  13. xlCellTypeLastCell¡C¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
  14. xlCellTypeSameFormatConditions¡C  ¦³¬Û¦P®æ¦¡ªºÀx¦s®æ
  15. xlCellTypeSameValidation¡C  ¦³¬Û¦PÅçÃÒ·Ç«hªºÀx¦s®æ
  16. xlCellTypeVisible¡C©Ò¦³¥i¨£Àx¦s®æ

  17. Value     ¿ï¾Ü©Êªº Variant¡C¦pªG Type ¬° xlCellTypeConstants ©Î xlCellTypeFormulas ¤§¤@¡A¦¹¤Þ¼Æ¥i¥Î©ó½T©wµ²ªG¤¤À³¥]§t­þ´XÃþÀx¦s®æ¡C±N¬Y´X­Ó­È¬Û¥[¥i¨Ï¦¹¤èªk¶Ç¦^¦hºØ«¬ºAªºÀx¦s®æ¡C¹w³]±¡ªp¤U±N«ü©w©Ò¦³±`¼Æ©Î¤½¦¡¡A¹ï¨ä«¬ºA«h¤£¥[Ãþ«¬¡C¥i¬°¤U¦C XlSpecialCellsValue ±`¼Æ¤§¤@¡G
  18. XlSpecialCellsValue ¥i¥H¬O³o¨Ç XlSpecialCellsValue ±`¼Æ¤§¤@¡C
  19. xlErrors
  20. xlLogical
  21. xlNumbers
  22. xlTextValues
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# lpk187
¹ï³á!ÁÂÁ±zªº´£¿ô
¤£¹LÁÙ¬O¤£ª¾¹D¦p¦ó¥ÎVBA¤è¦¡¥h§R°£¾ã­ÓAÄæ¦ì¥X²{¤å¦rªº¨º¤@¦C

TOP

¦n¹³¦³¤å¦rªº¼Æ¦r³£µø¬°¤å¦r¡I

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD