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

[µo°Ý] VBA_R°Ï&T°Ï&$R$6°Ïµ¥¤T­Ó°Ï°ì¡i¨C¤@­Ó¡j¹ïÀ³¦C¤§µ´¹ï¥æ¶°­È¦U¼Ð¥Ü©³¦â¡C

¬JµM¥H¤½¦¡¬°¥D, §Y¨ä¡e¥æ¶°­È.¦PÄæ.¤£¦PÄæ¡fªº±ø¥ó¬Ò¨Ì¤½¦¡§P©w,
µ{¦¡¥u­n±N¤T°Ï¬Û¦P¸¹½X¼Ð¦â§Y¥i, ¤£¶·¦A§PÂ_¦P¤£¦PÄæ:
VBA_¤T°Ï¥æ¶°¼Ð©³¦â_v02.rar (33.1 KB)

TOP

¦^´_ 11# ­ã´£³¡ªL
­ã¤j:
¤£¦n·N«ä ~¤p§Ì¦Û¤v±N»Ý¨D·d½ÆÂø¤F~¯Ô»~±z³\¦hÄ_¶Qªº®É¶¡~·q½Ð¨£½Ì~ÁÂÁ±z

´ú¸ÕOK¤F~¤]®M¥Î¦n¤F~·P®¦

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2015-12-17 15:35 ½s¿è

¦^´_ 11# ­ã´£³¡ªL
­ã¤j:
¤£¦n·N«ä  ~¤p§Ì·QÂǦ¹¦AÄò½Ð°Ý¤@­ÓÃþ¦ü»Ý¨D~
¦pªG¤p§Ì±N¤½¦¡¤¤»P¹ïÀ³¦C¦³Ãöªº¨C¤@²Õ¹ïÀ³¦Cªº¥æ¶°­È§ï¬°¬Y¤@²Õ¹ïÀ³¦Cªº¥æ¶°­È(§Y¨ä»P¹ïÀ³¦C¦³Ãöªº¤½¦¡¤¤¤§3­ÓAND§ï¬°3­ÓOR)~
½Ð°Ý:¥Ø«e¶Q¸Ñªº¹ïÀ³¦Cµ{¦¡½XÀ³¸Ó¦p¦ó­×§ï?

·q½Ð´f¤©½ç±Ð¬°Ã«~·P®¦

TOP

¦^´_ 13# Airman


RW = Array(.[T5], .[R6], b(1, -1))
For x = 1 To 4
For y = 1 To 3
For z = 1 To 7
¡@¡@Set R(1) = .[J6].Cells(RW(y - 1) - x + 1, z)
¡@¡@Set R(2) = Nothing
¡@¡@For i = 1 To 3
¡@¡@¡@¡@If i <> y Then Set R(2) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
¡@¡@¡@¡@If Not R(2) Is Nothing Then R(1).Interior.ColorIndex = Array(4, 6, 8)(y - 1): Exit For
¡@¡@Next i
Next z
Next y
Next x

TOP

¦^´_ 14# ­ã´£³¡ªL
­ã¤j:
´ú¸ÕOK¤F!ÁÂÁ±z­@¤ßªº«ü¾É~·P®¦

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD