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

[µo°Ý] ¦p¦ó¦bworksheet avtivate ¤§«á¤´«O¯d°Å¶K諸¸ê®Æ?

[µo°Ý] ¦p¦ó¦bworksheet avtivate ¤§«á¤´«O¯d°Å¶K諸¸ê®Æ?

¦U¦ì¤j¤j¦n,

¤p§Ìªº°ÝÃD¦b©ó
°²³]§Ú¦³A¡BB¨â­Ó¤À­¶
³£¦³³]©wWorksheet activate

©Ò¥H·í§Ú¥H¤H¤uªº¤è¦¡±qA¤À­¶½Æ»s«È¤á©m¦W
ÂI¿ïB¤À­¶,±µµÛ¶i¦æ¶K¤Wªº®É­Ô

´N·|µo²{°Å¶Kï³Q²MªÅ¤F

¦]¬°activateªº®É­Ô¤w¸g°õ¦æ¹L¥¨¶°

¦³¬Æ»ò¤è¦¡¥i¥H¦b°õ¦æVBA¤§«á¤´«O¯d°Å¶K諸¸ê®Æ¶Ü?
PKKO

¦^´_  PKKO
²³æÂIªº¸Ü´N¬O¦b¶i¤J§Aªº³B²zµ{¦¡¤§«e¥ý§â°Å¤ÁªO©Ò¦³¤º®e«O¦s°_¨Ó¡A©Ò¦³³B²z§¹¦¨¦Z¡A¦b¿E¬¡¥t ...
Joforn µoªí©ó 2021-1-19 19:56



    ±z»¡ªº§¹¥þ¥¿½T®@!
¦ý­n«ç»ò°µ...

¦³½d¨Ò¤å³¹©Î¬OSample Code¶Ü?
PKKO

TOP

¦^´_  PKKO


Private Sub Worksheet_Activate()
If Application.CutCopyMode Then Exit Sub
¨ä¥¦°õ¦æ ...
­ã´£³¡ªL µoªí©ó 2020-12-24 18:48



·PÁ¤j¤jªº¦^ÂÐ
¦ý³o¼Ëªº¤è¦¡«h·|µLªk°õ¦æ­ì¥»À³¸Ó­n°õ¦æªºµ{¦¡

¤p§Ìªº»Ý¨D¬O
A¡BB¨â­Ó¤À­¶³£¦³Activateªº¥\¯à
¦ý§Ú¦bA¤À­¶½Æ»s¤Frange("a1")
·í§Ú²¾°Ê¨ìB¤À­¶ªº®É­Ô¡A­ì¥»½Æ»sªº¤º®e´NµLªk¨Ï¥Î¤F

¸Ó«ç»ò°µ¥i¥H«O¯d¬¡­¶Ã¯ªºªF¦è©O?
PKKO

TOP

¦^´_ 4# PKKO
²³æÂIªº¸Ü´N¬O¦b¶i¤J§Aªº³B²zµ{¦¡¤§«e¥ý§â°Å¤ÁªO©Ò¦³¤º®e«O¦s°_¨Ó¡A©Ò¦³³B²z§¹¦¨¦Z¡A¦b¿E¬¡¥t¤@­Ó¤u§@ªíavtivate®É¡A¦A§â«O¦sªº¤º®e«ì´_¦^°Å¤ÁªO¤º¡C
·íµM¡AÁÙ¦³§ó²³æªº¤è¦¡´N¬O§ä¨ì¦Û¤v¥N½X¤º¼vÅT¨ì°Å¤ÁªO¤º®eªº¥N½X¡A·Q¿ìªkÅý¥¦¤£­n¼vÅT¨ì°Å¤ÁªO©Î¬O¥Î¨ä¥¦¤£·|¼vÅT¨ì°Å¤ÁªO¤º®eªº¥N½X´À´«¡C
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦^´_ 4# PKKO


Private Sub Worksheet_Activate()
If Application.CutCopyMode Then Exit Sub
¨ä¥¦°õ¦æµ{¦¡
End Sub

TOP

¦^´_  PKKO


A¡BB¨â­Ó¤À­¶³£¦³³]©wWorksheet activate  
©Ò¥H, ACTIVATE«á¦³µ{¦¡¹B§@, §ïÅܤF¤u§@ªí, ...
­ã´£³¡ªL µoªí©ó 2020-12-15 10:59


¤j¤j±z»¡ªº³¡¥÷¨S¿ù
¦ý¦³¸Ñ¨Mªº¤è¦¡¶Ü?

¥i¥H±N°Å¶Kï«O¦s°_¨Óªº¤èªk¶Ü?
PKKO

TOP

¦^´_ 1# PKKO


A¡BB¨â­Ó¤À­¶³£¦³³]©wWorksheet activate  
©Ò¥H, ACTIVATE«á¦³µ{¦¡¹B§@, §ïÅܤF¤u§@ªí, ¤]¨ú®ø¤FCOPYMODE,
¤u§@ªí¨Æ¥ó¤p¤ß¹B¥Î, ±`±`·|Åý¬Y¨Ç°ò¥»¾Þ§@µLªk¨Ï¥Î, ¦p"¶K¤W"©Î"´_­ì"

TOP

¥i¥H¥Î
Application.CutCopyMode =true
Application.CutCopyMode =false
¨Ó°»´ú~

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD