¡y¤w¸Ñ¨M¡zDDE&Calculate¨Æ¥óªºÀ³¥Î
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¡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
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¥»©«³Ì«á¥Ñ 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¤½¦¡¤¤ªºD1n¸Ó¦¨ÅܼÆ
§_«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
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 55
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-4-25
- ³Ì«áµn¿ý
- 2011-12-18
|
ÁÂÁ¤j¤j̪º¶}¥Ü¡AÅý§Ú¤S¤W¤F¤@½Ò |
|
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|