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

[µo°Ý] ¥¼«ü©w¬¡­¶Ã¯¦WºÙ,³æÀÉ®×¶]¥¿±`,¬°¦óÂùÀÉ®×¶]·|¿ù»~?

Cells(r + 1, 12).Resize(2, 100).Value = Cells(r - 1, 12).Resize(2, 100).Value
¹³³o¼Ëªº¤Þ¥Î¡ACells¹ï¶H¥¿¬O·í«e³Q¿E¬¡ªº¤u§@ªí¤¤ªº¹ï¶H¡C
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦^´_  Joforn

¹ïªü,©Ò¥H§Y«K¨â­Ó¬¡­¶Ã¯ªº¤Á´«

²zÀ³¤£·|³y¦¨¼vÅT¤~¹ï

¦]¬°§Ú³£¨S¦³«ü©w¬¡­¶Ã¯¦WºÙ ...
PKKO µoªí©ó 2015-12-11 09:40


¨º­Ó¬O¨t²Î¦Û°Ê¤Á´«ªº¡C¤ñ¦p§A¥ý¥´¤F¥]§t³o¬q¥N½Xªº¤u§@ï¡A¨º»ò·í«e¤u§@ï´N¬O¥»¨­¡AµM«á¦A¶}±Ò¥t¤@­Ó¤u§@ï¡A¨º»ò·í«e¤u§@ï´N¦Û°Ê¤Á´«¦¨¤F³Ì·sªº¤u§@ï¡A§A³o®É¦A¤Á´«WindowÂà¦^¦³¥N½Xªº¤u§@ï¡A³o®É·í«e¤u§@ï¤SÂà´«¦^¨Ó¤F¡C·í«e¤u§@ªí«üªº´N¬O¥¿¦b¬¡°Êªº¤u§@襤ªº¬¡°Êª¬ºA¤Uªº¤u§@ªí¡C§Î¹³ÂI¨Ó»¡¡A´N¬O©Ò¦³Windows³Ì¤j¤Æ¤§«á³QÅã¥Ü¥X¨Óªº¨º­Ó¤u§@ªí¡C¥¦¤£¬O¤@­Ó±`¶q¡A¦Ó¬O·|®Ú¾Ú¨t²Î©M¥Î¤áªº¾Þ§@¦Ó¤£°±ÅÜ´«ªº¹ï¶H¡C
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦U¦ì¤j¤j¦n,

¤p§Ì·M¬N·Q½Ð±Ð¤@¤U
§Úªºµ{¦¡Ä²µo³£¬O¼g¦b:

Private Sub Worksheet_Change(ByVal Target As Range)
©Î¬O¦b¤À­¶¤ºªº«ö¶s

¦Ó©Ò¦³ªºµ{¦¡½X³£¬O°w¹ï¥»Àɮתº¤º®e§@Åܧó,§¹¥þ¨S¦³¥ô¦ó¤@­Óµ{¦¡½X¬O¨Ï¥Î¨ìworkbooks(XX)ªº³oºØ«ü©wÀɮצWºÙ
¨Ò¦p:
r = Target(1).Row
Cells(r + 1, 12).Resize(2, 100).Value = Cells(r - 1, 12).Resize(2, 100).Value
name1 = Cells(r, 10).Value
dbs=sheets("AA").[a1].resize(5,5).value
[a2]=dbs(1,1)
PKKO µoªí©ó 2015-12-10 23:45

§A¤W­±ªº¥N½X¼g¦b¤FWorksheet_Change¤¤¡H¦pªG¬Oªº¸ÜÀ³¸Ó·|¾É­P°ï桟·¸¥X¿ù»~¡CÀ³¸Ó§A¦Û¤v¹B¦æ´ú¸Õ¤]·|¦³¿ù»~´£¥Üªº¡C
§A¯à¤£¯à§â§Aªº§¹¾ãªº¨Æ¥ó³B²z¹Lµ{¶K¥X¨Ó¡H
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD