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

[µo°Ý] ¨D°ª¤â«üÂI¡A¬°¦ó¦@¥Îï«á¡AVBAªº¹B¦æ³t«×·|´îºC¡H

[µo°Ý] ¨D°ª¤â«üÂI¡A¬°¦ó¦@¥Îï«á¡AVBAªº¹B¦æ³t«×·|´îºC¡H


§Ú¦b¤u§@ªí¢°¤W»s§@¤@­Ó·j´MÁä¨Ó·j´M¤u§@ªí2ªº¸ê®Æ¡A¥u­n¦bA1¦ì¸m¤W¿é¤JÃöÁä¦r¡A
´N·|¦b¤U­±Åã¥Üµ²ªG¡C¦p¤W¹Ï©Ò¥Ü¡A³t«×¥u»Ý0.4805¡A«D±`§Ö³t¡C


¦ý¦@¥Î¬¡­¶Ã¯«á¡A³t«×¤j´T´îºC¡A©~µM­n61.6797¬í¡A
¹ê¦b¤£¯à±µ¨ü¡A¬°¦ó·|³o¼Ë¡H¤§«e´ú¸Õ¹L¦UºØVBA¥N½X¥i¯à·|ºC¤@ÂIÂI¡A
¦ý¤£­P©óºC¨º»ò¦h¡A¨ì©³¬O¬Æ»ò°ÝÃD©O¡H§Æ±æ¦U¦ì°ª¤â¯à°÷«üÂI¤@¤U¡A
ÁÂÁ¡I

¤W¶Çªþ¥ó¤@¥÷¡AÁÂÁ¡I

http://pan.baidu.com/s/1o6ZxaVC

TOP

¦^´_ 1# leehom


    ³o·|°òVBA©óºôµ¸Åª¨ú¸ê®Æ©Ò»Ý®É¶¡, ¦pªGÁÙ¦³¼g¤J®É¶¡´N§ó¥[¤F¡C

TOP

¦^´_ 3# ikboy

²×©ó¦³¤H¦^À³¤F,¨ºÀ³¸Ó«ç»ò¼g¤~¥i¸Ñ¨M³o­Ó°ÝÃD?

TOP

¦^´_ 4# leehom


    ·Q¤U¸ü¨Ó¬Ý,¦ý ¨£¨ì¦p¦¹,©È©È¡C

1.PNG (8.54 KB)

1.PNG

TOP

¦^´_ 4# leehom


    ­×§ïµ{¦¡½X¡A¥u¯à§Ö¤@ÂIÂI¡Aºô¸ô°ÝÃD¡A©M¤W­±»¡ªº¤@¼Ë
  1. Public Sub Search()
  2.     t = Timer
  3.     Application.ScreenUpdating = False
  4.     Dim b As Range
  5.     A = Sheets(1).[a1]
  6.     With Sheets(2)
  7.         Set b = .Columns(1).Find(A, , , 1, , 2)
  8.         Sheets(1).Range("A3:H3") = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
  9.     End With
  10.     Application.ScreenUpdating = True
  11.     MsgBox Format(Timer - t, "0.0000")
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_  leehom


    ­×§ïµ{¦¡½X¡A¥u¯à§Ö¤@ÂIÂI¡Aºô¸ô°ÝÃD¡A©M¤W­±»¡ªº¤@¼Ë
lpk187 µoªí©ó 2016-1-20 10:01



§Ú¸Õ¤F¤@¤U,«Ü©_©Ç,¬°¬Æ»ò§ì¤£¨ì¥ô¦ó¸ê®Æ?³£¬OªÅ¥Õªº....

¥t¥~,Ãö©óºô¸ô°ÝÃD,§Ú­ì¥ýªºµ{¦¡½X¥u¬O¸Õ±N¬¡­¶Ã¯³]¦¨"¦@¥Î"´NºC¤F,
¨Ã¥¼¥¿¦¡©M§O¤H¦@¥Î,Àɮ׳£©ñ¦b¥»¾÷ºÏºÐ,²zÀ³¤£Ãöºô¸ôªº¨Æ§a?

TOP

¦^´_ 5# ikboy


¤£·|§a...¥i¯à¬OxlsmÀɮפ~»~¥H¬°±a¦³¯f¬r,©ñ¤ß¨S¦³¨Æªº~

TOP

¦^´_ 7# leehom

­è»{¯uªº¬Ý¤F¤@¤U¡A°õ¦æ¦@¥Î§A­ì¥»ªºµ{¦¡½X¡A¦@¥Î«á¡A½T¹êºC«Ü¦h
    §A¦A¸Õ¬Ý¬Ý
  1. Public Sub exA()
  2.     t = Timer
  3.     Application.ScreenUpdating = False
  4.     Dim b As Range
  5.     A = Sheets("¤u§@ªí1").[a1]
  6.     If Range("A3") <> "" Then
  7.         Sheets(1).Range("a3:h3").Clear
  8.     End If
  9.     With Sheets("¤u§@ªí2")
  10.         Set b = .Columns(1).Find(A, , , 1, , 2)
  11.         arr = .Range(.Cells(b.Row, "A"), .Cells(b.Row, "H"))
  12.         Sheets("¤u§@ªí1").Range("A3:H3") = arr
  13.     End With
  14.     Application.ScreenUpdating = True
  15.     MsgBox Format(Timer - t, "0.0000")
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# lpk187

¹ï°Ú,¤£ª¾¹D¬O¬Æ»ò­ì¦]¡C
§Ú¸Õ¤F¤@¤U§A³o¬q,¦@¥Î«á³t«×¨S¦³¼vÅT,«Ü´Î,ÁÂÁ¤À¨É!!

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD