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

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

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

¦U¦ì¤j¤j¦n,

¤p§Ì·M¬N·Q½Ð±Ð¤@¤U
§Úªºµ{¦¡Ä²µo³£¬O¼g¦b:
Private Sub Worksheet_Activate()
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)

¬°¦ó§Ú¶}µÛ¥t¥~¤@­ÓexcelÀÉ®×,¨â­ÓÀɮצP®É§@·~ªº®É­Ô(copy ¸ê®Æ¨ì¥t¤@­ÓÀÉ®×)

·|µo¥Í°}¦C¶W¥X½d³òªº¿ù»~?¦³¬Æ»ò¥i¯à©Ê?
¦]¬°³o¬O§Ú¦P¨Æ§i¶D§Úªº¿ù»~,§Ú¨Ã¤£¾å±o¥L¿ù¦b­þ¤@¦æªºµ{¦¡½X,©Ò¥H·Q°Ý¤@¤U¦³¥i¯à³o¼Ë¿ù¶Ü?
·Ó²z¨Ó»¡§Ú³£¨S«ü©w¬¡­¶Ã¯,¦]¸Ó´N¥NªíµÛactivateªº¬¡­¶Ã¯ªü?
PKKO

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

¦^´_ 2# Joforn

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

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

¦]¬°§Ú³£¨S¦³«ü©w¬¡­¶Ã¯¦WºÙ~
PKKO

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

¦^´_ 4# Joforn


    ³o§Ú¤F¸Ñ

©Ò¥H·Ó²z¨Ó»¡,§Ú¦³¼gµ{¦¡½Xªº¦a¤è,¦]¸Ó¥Ã»·³£¤£·|Åܦ¨¥t¥~¤@­Ó¨S¦³µ{¦¡½XªºÀɮצӳy¦¨¿ù»~¤~¹ï°Ú!
PKKO

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 : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD