ªð¦^¦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

¦^´_ 2# Joforn

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

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

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

TOP

¦^´_ 4# Joforn


    ³o§Ú¤F¸Ñ

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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD