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

[µo°Ý] ¿ï¾Ü³æ¤¸®æ®ÉÄæ¦CÅܦâ

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2023-5-4 10:56 ½s¿è

³o­Ó¶ñ¦â¤èªk//
1) ¼vÅTÀx¦s®æªº­ì¦³©³¦â(¥]§t¿ï¨ú°Ïªº½d³ò)
2) ¤£¯à¨Ï¥Î½Æ»s©ÎÁÙ­ì¥\¯à

TOP

¦^´_ 11# cowww


ÁÙ­n¦Ò¼{¾ã­Ó¬¡­¶Ã¯ªº¥þ³¡¤u§@ªí³£¦³³o¥\¯à~~

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2023-5-4 13:41 ½s¿è

²³æ½d¨Ò//
¥Î¤F¤@­Ó¿ï¨úª«¥ó//
¨â­Ó¯x§Î(¥i©ñ¦b¸ê®Æ°Ï¥k¤è, ¥H¤£¼vÅT¸ê®Æ¬°¥D)...Range("M1")..¥i¦Û¦æ§ó§ï
­Y¨ä¥¦¤u§@ªí¤]­n¦P¼Ë¥\¯à, ±NSelection_Changeµ{¦¡¤Î¨º¤T­Óª«¥ó½Æ»s§Y¥i(ª`·N:ª«¥ó¦WºÙ)

TEST_¿ï¨úÄæ¦C.rar (9.31 KB)


¸É¥R//¬°¤F¨¾¤î¿ï¨ú°Ï¤£¦b¨Ï¥Î½d³ò¤ºªº¿ù»~, ­×§ï¦p¤U
Set X = Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
If X Is Nothing Then Exit Sub
Set Y = Intersect(Selection.EntireColumn, ActiveSheet.UsedRange)
If Y Is Nothing Then Exit Sub

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD