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

(¤w¸Ñ¨M)¦p¦ó¥Î·j´M§ä¸ê®Æ«á½Æ»s¸Ó¦ì¸m¥H¤Uªº¸ê®Æ?

(¤w¸Ñ¨M)¦p¦ó¥Î·j´M§ä¸ê®Æ«á½Æ»s¸Ó¦ì¸m¥H¤Uªº¸ê®Æ?

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-3-6 13:43 ½s¿è

§Ú·Q­n¥Î·j´Mªº¤è¦¡
¦pªþÀÉ
¦pªG·j´M¨ì²Ä¤@¦U¤u§@ªí[C1]ªº¸ê®Æ
´N½Æ»s¦U­Ó¤u§@ªí²Ä4¦C¤§«áªº¸ê®Æ

¦]¬°¨C¦U¤u§@ªí±Æªº¦ì¸m¦³ÂI¤£¬Û¦P
©Ò¥H¥Ø«e§Ú·Q¨ìªº¤è¦¡¬O¥Î·j´M
¦ý¬O¥Îvba§Ú¤£ª¾¹D¸Ó«ç»ò¥h§ì


ssdsa.rar (18.08 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 13# Hsieh


    ÁÂÁª©¥D
   ¦³·Q¨ì¥Îresize¥i¬O¨S¸Õ¥X¨Ó
   ­ì¨Ó¬O®t¦b.value
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 10# hugh0620


    ³o­Ó§Ú¦³µo²{
   §A­Ì­Ç¦Uªº³B²z¤è¦¡¤£¤@¼Ë
   ³£¬O¾Ç²ßªº¤è¦¡
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 8# freeffly
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Address = "$C$1" Then
  3. Application.EnableEvents = False
  4. Range("A1").CurrentRegion.Offset(1, 2) = ""
  5. For Each a In Range("A2", [A2].End(xlDown))
  6.   sh = Format(a, "emm")
  7.   For Each sht In Sheets
  8.   If sht.Name = sh Then
  9.   With sht
  10.      Set c = .Rows(1).Find([C1], lookat:=xlWhole)
  11.      r = Application.Match(a, .[A:A], 0)
  12.      If IsNumeric(r) And Not c Is Nothing Then a.Offset(, 2).Resize(, 2).Value = .Cells(r, c.Column).Resize(, 2).Value
  13.   End With
  14.   End If
  15.   Next
  16. Next
  17. End If
  18. Application.EnableEvents = True
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# hugh0620
  1. r = Application.Match(a, .[A:A], 0)
  2.      If IsNumeric(r) And Not c Is Nothing Then a.Offset(, 2) = .Cells(r, c.Column) Else a.Offset(, 2) = ""
½Æ»s¥N½X

Match¨ç¼Æ :§ä¨ì®É¶Ç¦^¼Æ¦r, §ä¤£¨ì®É¶Ç¦^ "#N/A" (¿ù»~­È)
§ï¦¨ If   Not IsError(r)  And Not c Is Nothing Then  ´N¥i¥H°£¿ù

TOP

¦^´_  Hsieh


    ¥J²Ó¬Ý¹L«áªO¥Dªº¤è¦¡»P¥t¥~¤@¦ì¤j¤j¤è¦¡¤£¦P(³B²z¤è¦¡)
    ¦pªG»¡·Q­n¦V¥t¤@¦ì¤j ...
freeffly µoªí©ó 2012-2-23 09:09



    ¼Ó¥D§A¥ÎªºSHEET.Name¬O¥Á°ê+¦~~
    ©Ò¥HH¤j¤j¥Îsh = Format(a, "emm")ªº¤è¦¡~ ¨Ó§PÂ_§AªºSHEET¦WºÙ
    µM«á¦A¶i¥h¨º­ÓSHEET¤¤¼´¨ú¸ê®Æ
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 7# freeffly


    H¤j¤j¬O¤@­Ó°ª¤â~ §Ú¤£À´ªº°ÝÃD~ ©ß¥X¨Ó~ ¦Uª©¤j©Î¤j¤j­Ì³£¯à«ü¾É¸Ñ´b­ò~

    H¤j¤jªºµ{¦¡  ­n¦³¤@©wªº±ø¥ó¤~¯à°õ¦æ~
    °õ¦æ®É­nª`·NSHEET1ªº¤é´Á¸ê®Æ~
    ­Y§Aªº¤é´Á¸ê®Æ¤£¥]§t¦bDATA¤¤ªº¤é´Á~ ´N·|²£¥Í¿ù»~
    Á|¨Ò~ §A´£¨Ñªº¸ê®Æ¬O9~10¤ë~  ­Y§ASHEET1ªº¤é´Á¦b94/9/1¥H«e©Î94/10/31¥H«áªº¤é´Á~
    ´N·|²£¥Í¿ù»~~
     ©Ò¥H~ ­n³]¤@­Ó¨¾¿ùªºµ{¦¡½X~ ¤£µM§A°õ¦æªº®É­Ô¨Sª`·N´N¸Ü±¾¦b¨ºÃä­ò~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 4# hugh0620

               ­è¸Õ¤F¤@¤U ³o¸ÌÁÙ¥i¥H§ï³o¼Ë

                Sheet1.Cells(N, 1).Resize(, 4) = Array( _
                E.Cells(i, 1), _
                E.Cells(i, 2), _
                E.Cells(i, K), _
                E.Cells(i, K).Offset(0, 1))
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 5# Hsieh


    ¥J²Ó¬Ý¹L«áªO¥Dªº¤è¦¡»P¥t¥~¤@¦ì¤j¤j¤è¦¡¤£¦P(³B²z¤è¦¡)
    ¦pªG»¡·Q­n¦V¥t¤@¦ì¤j¤j¨º¼Ë§ì¨âÄæ­n«ç»ò§ï

   Application.EnableEvents = False  ¦b³o¸Ìªº¥Î³B¬O? ­nÅý¤°»ò¨Æ¥ó¤£µo¥Í¶Ü?
   sh = Format(a, "emm")  emm¦³¯S®í³W«h¶Ü ¬Ý¨ìª©¥D¨Ï¥Î¤~ª¾¹D¦³³oºØ¤è¦¡
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 5# Hsieh


    ·PÁª©¥D
   ³o­Ó¤è¦¡§ó²¼ä
   ³t«×·Pı§ó§Ö¨Ç
   ¤£¹L¦³¤@¨Ç¤£À´
   ®ø¤Æ«á¦A´£°Ý
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD