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

¡y¤w¸Ñ¨M¡zDDE&Calculate¨Æ¥óªºÀ³¥Î

¡y¤w¸Ñ¨M¡zDDE&Calculate¨Æ¥óªºÀ³¥Î

¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-10-7 17:59 ½s¿è

¤@¶}©l¤w¦³sheet1¡B8600¡B8700¡B8800¡B8900¡B9000µ¥¤»­Ó¤u§@ªí
sheet1ªº¡@¡@B2¨ìB3¬O¤@±Æ¤u§@ªí¦WºÙ¡]8600~9000¡^¡A
C2¨ìC6¬O¥¦­Ì¤À§O¬O¨ä©ÒÄݪºDDE¤½¦¡¡]§Ú¨Ï¥Îe-leaderªºDDE¤½¦¡Åý¥¦­Ì±µ¦¬­È¡^
¨C·íC2~C6±µ¨ìDDE¶Ç¨Óªº­È¡A´N·|§â·sªº­Ècopy¶K¨ì¨ä©ÒÄݪº¤u§@ªíªºDÄæÀx¦s®æ
(ex:C3Àx¦s®æ±q100Åܦ¨200¡A¨º´N§â200¶K¨ì 8700¤u§@ªíªºDÄæ)

³o¬O¦³¿ìªk°µªº¶Ü?
¥Î°j°é¤U¥h¶]¶Ü?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-4-28 17:09 ½s¿è

¦^´_ 1# ko310kmo
8600¡B8700¡B8800¡B8900¡B9000µ¥¤u§@ªí  ¬OB2¨ìB6
¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Calculate()
  2. Dim e As Range
  3. For Each e In Range("B2:B6")
  4. Sheets(e.Text).Range("D1") = e.Offset(, 1)
  5. Next
  6. Set e = Nothing
  7. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ko310kmo ©ó 2011-5-1 11:30 ½s¿è

¦^´_ 2# GBKEE

ÁÂÁÂGBKEE¤j¤j¡A¬O¥i¥H¦¨¥\ªº
¦ýÁÙ¦³¤@­Ó°ÝÃD¬O
Sheets(e.Text).Range("D1") = e.Offset(, 1)

sheet1ªºc2¨ìc6¬O«ùÄò¤£°±Åܰʪº¡A©Ò¥H¤½¦¡¤¤ªºD1­n¸Ó¦¨ÅܼÆ
§_«h·|¤@ª½¦bD1»\¹L¼g¤J¡AµLªk©¹¤U¬ö¿ý

§Ú¥»¨Ó·Q»¡¥Î
Private Sub Worksheet_Calculate()
    Dim E As Range
    Dim P As Integer
        For Each E In Range("B2:B13)
            P = Sheets(E.Text).Range("D65536").End(xlUp).Row + 1
           Sheets(E.Text).Range("D" & P) = E.Offset(0, 1)
        Next
    Set E = Nothing
End Sub


¦ý³o¼Ë¥¦ªºp­È«oµLªk¨C­Ó¤u§@ªí¤À¶}­pºâ¡A½Ð°Ý¸Ó«ç»ò¿ì?
ÁÂÁ¤j¤jªº¶}¥Ü!!!


ªþ¤WÀɮסAÅý¤j¤j§ó¤F¸Ñ§Úªº·Qªk¡Aªþ¤WªºÀɮצ³¦A°µ¤Ö»Ýªº­×§ï¡BÄæ¦ìªºÅÜ°Ê
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# ko310kmo
M = Worksheets("sheet1").Range("B65536").End(xlUp).Row   
        For Each E In Range("B2:B" & M)
            P = Sheets(E.Text).Range("J65536").End(xlUp).Row + 1
            Sheets(E.Text).Range("J" & P) = E.Offset(0, 1)
        Next

¦p¦¹¬O¥i¥H¦bSheets(E.Text)ªºJÄ椤,©¹¤U°O¿ý¸ê®Æ¨S¿ùªü.
¦ý³o¼Ë¥¦ªºp­È«oµLªk¨C­Ó¤u§@ªí¤À¶}­pºâ ¤£¤F¸Ñ!!, ¥i¦A¸ÑÄÀ¶Ü?

TOP

¦^´_ 4# GBKEE

¤j¤j
¬Q¤Ñ§Ú¥»¨Ó¥H¬°¨S¿ìªk¡A¦ý¤µ¤é¶}½L´ú¸Õ«á¤~µo²{¬O¥i¥Hªº¡AÁÂÁ§A¡I¡I¡I
¤Q¤À·PÁ§A¡A¸Ñ¨M¤F§Ú¤G­Ó¦h§«ôªº§xÂZ¡I¡I¡I¡I

³Ì«á·Q½Ð±ÐSheets(e.Text)¡A¬°¤°»ò­n¥[text¡H
¦³¥[¸ò¨S¥[ªº®t§O¦b­þ¡H
¾Ç®Õªº°Ñ¦Ò®Ñ¤W¨S¼g¡A©Ò¥H¤@ª½¤£ª¾¹D³oºØ¥Îªk¡AÁÂÁÂ:)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

­Y¬O¥HE.Value¨º»ò·|¦]¬°§Aªº¤º®e¬O¼Æ­È¡A¦Ó³y¦¨¬O«ü©w²Ä´X­Ó¤u§@ªí
¦pSheets(8900)¡A³o¬O«ü²Ä8900­Ó¤u§@ªí¡A¦Ó«D¤u§@ªí©úºÙ¬°8900ªº¤u§@ªí
E.Text±o¨ìªºµª®×¤~¬O¦r¦ê«¬ºA
´N·|¦¨¤FSheets("8900")
³o´N¬O¦]¬°¸ê®Æ«¬ºA¤£¦P¡A¦Ó²£¥Í¤£¦Pªºµ²ªG
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# ko310kmo
Hsiehª©¥D ¸ÑÄÀ e.Text ¬°¦r¦ê¤~¥i¥¿½T«ü©w©Ò­nªº¤u§@ªí
Sheets(e.Text) ->  Sheets( e & "")  ¤@¼Ë¥i±Neªº­È(¼Æ¦r«¬ºA) Âର¦r¦ê«¬ºA

TOP

ÁÂÁ¤j¤j­Ìªº¶}¥Ü¡AÅý§Ú¤S¤W¤F¤@½Ò
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD