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

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

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

VBA_¤T­Ó°Ï°ìªº¦PÄæ©Î¤£­­¦PÄ椧µ´¹ï¥æ¶°­È¦U¼Ð¥Ü©³¦â.rar (58.93 KB)

¡»¡»U7¥u¬O§@»²§U»¡©ú¤§¥Î¡A½ÐµL¶·²z·|¡C

»¡©ú¡J
R7-1¡AR7-2¡AR7-3¡AR7-4(R°Ï°ì)¡F
T5-1¡AT5-2¡AT5-3¡AT5-4(T°Ï°ì)¡F
R6-1¡AR6-2¡AR6-3¡AR6-4($R$6°Ï°ì)

»Ý¨D:
·íb<>""¡A ¥B$R$6°Ï¡äT°Ï=R°Ï*R°Ï¡ä$R$6°Ï=T°Ï*T°Ï¡äR°Ï=$R$6°Ï®É¡A
«h±NR°Ï&T°Ï&$R$6°Ïµ¥¤T­Ó°Ï°ì¡i¨C¤@­Ó¡j¹ïÀ³¦C¤§µ´¹ï¥æ¶°­ÈªºÀx¦s®æ¦U¼Ð¥Ü©³¦â¡C

¥¼©R¦W.png
2015-12-14 22:54


½Ð°Ý¡J¦C9¥H¤Uªºµ{¦¡½X­n¦p¦ó¼W¼g?
Àµ½Ð¦U¦ì¥ý¶i¡B«e½ú¤£§[½ç±Ð!  ÁÂÁÂ!

¸Ô¦pªþ¥ó¡C
PS:»Ý¨D¨BÆJ±Àºt~½Ð¸Ô¨£¼ÐÅÒ¦³©³¦âªº¤u§@ªí¤§¹Ï¥Ü©M»¡©ú¡C

¦^´_ 14# ­ã´£³¡ªL
­ã¤j:
´ú¸ÕOK¤F!ÁÂÁ±z­@¤ßªº«ü¾É~·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

¥»©«³Ì«á¥Ñ 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

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

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

TOP

¬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

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

¦^´_ 5# ­ã´£³¡ªL
­ã¤j:¦­¦w!
¤£¦n·N«ä¡A¬Ý¨Ó¬O¤p§Ìµe³D²K¨¬ªº»¡©ú·Sº×¤F~Åýµ{¦¡ÅÞ¿èÅܱo¦p¦¹½ÆÂø

¥H¥Ø«e¬Ý¨Ó~­n¸Ñ¨M°ÝÃDªºÄpµ²ÂI~GetNumB1~À³¸Ó¬O·|¤j¶O©P³¹~
¦]¦¹¥i§_~½Ð±z¥H¦pªþ¥ó¤¤ªº¦C19~¦C29ªºª½­z¦¡ªºµ{¦¡ÅÞ¿è¨Ó¼¶¼gµ{¦¡½X~
¥B¤½¦¡¤]¤£­n¥Î¦Û­q¨ç¼Æ¡A´N¥Î­ì¤½¦¡§Y¥i¡C
¦p¤é«á¦³»Ý­n§ïÅÜ­pºâ¦ì§}ªº®É­Ô~¤p§Ì¸ü¦Û¦æ§ó§ïµ{¦¡½X§Y¥i¡C

¥t¥~~¦b¶Q¸Ñµª§¹¦¨«á¡A°£¤FDATA!©MSheet1!¥H¥~ªº¨ä¥¦¤u§@ªí~¤p§Ì´N³£·|²¾°£~
©Ò¥H°£¤FDATA!©MSheet1!¥H¥~ªº¤u§@ªí³£¥u¬O§@»²§U»¡©ú¤§¥Î¡A½Ð±z¤£­n¤Þ¥Î©ó¤½¦¡©Îµ{¦¡½X¤¤¡C
ÁÂÁ±z

°Ñ¦Òªþ¥ó¡J VBA_¤T­Ó°Ï°ì¤£­­¦PÄæ©Î­­¦PÄ椧µ´¹ï¥æ¶°­È¦U¼Ð¥Ü©³¦â.rar (56.35 KB)

¥H¤W  Àµ½Ð±z´f¤©½ç±Ð~·P®¦

PS:¦pªþ¥ó¤¤ªº¦C19~¦C29ªºª½­z¦¡ªºµ{¦¡ÅÞ¿è~¤p§Ì¥i¥H¦Û¦æ®M¶i¨ì¹ê»Úªº¨Ï¥Î¥DÀɤ¤¡CÁÂÁ±z

TOP

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

¦^´_ 5# ­ã´£³¡ªL
­ã¤j:
©I~²×©ó§ä¨ì¸ê®Æ~ª¾¹D«ç»ò§ó§ï¼Ò²Õ¦WºÙ¤F:lol

¥u³Ñ¤U¤½¦¡ªº°ÝÃD¤F~·|¤¤Â_¦bxNum = GetNumB1(.[J6:P6], .[R6], .[T5], b(1, -1).Value, 4)  
ÁÂÁ±z:D

ªí®æªø³o¼Ë(¤½¦¡·|¥k©Ô~Äæ¦ì¤£©w~©Ò¥HµLªk¥Î»²§UÄæ)
¥¼©R¦W.png
2015-12-17 04:32

TOP

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

¦^´_ 6# ­ã´£³¡ªL
­ã¤j:
¨þ~¨þ~°¨¤W¹J¨ì¤G­Ó°ÝÃD~¤£¬O¶Qµ{¦¡½X¦³°ÝÃD¡A¦Ó¬O¤p§Ìµ{«×¤ÓLowªº½t¬G~
Q1:½Ð°Ý¼Ò²Õªº¦WºÙ­n«ç»ò§ó§ï?
¤Wºô¬d~³£»¡¤£¯à§ó§ï~¥²¶·¥t¼gµ{¦¡~¦ý©ú©ú´N¬Ý¨ì±z¨S¦³¥t¼gµ{¦¡´N§ó§ï¤F

Q2:½Ð°ÝT7¤½¦¡ªº¦Û­q¨ç¼Æ¥i¥H§ó§ï¬°¤£¤Þ¥ÎUÄ檺­È¶Ü?
¦]¬°¦b¹ê»Úªº¨Ï¥ÎÀɤ¤µLªk¥HUÄæ§@»²§UÄæ(¥i¯à±z¨S¦³ª`·N¨ì¤p§Ì»¡©ú¤¤¤§"¤£¥Î²z·|UÄæ"ªºµù°O)

¥H¤W  ·q½Ð±z´f¤©½ç±Ð!·P®¦

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2015-12-16 23:12 ½s¿è

¦^´_ 5# ­ã´£³¡ªL

­ã¤j:
¤£¦n·N«ä¡AÁ`¬O³Ò·Ð±z

¥Hµo°ÝÃDªþÀÉ´ú¸ÕOK¤F~·P®¦

PS:
¨þ~¨þ~±z¼g±o¤Óºë½o²Ó¿°¤F~¤p§Ì¤@®ÉÁÙ¤£ª¾À³¦p¦ó®M¶i¨ì¹ê»Úªº¨Ï¥Î¥DÀɤ¤?
¤µ©]¥J²Ó«ôŪ¶Qµ{¦¡¸Ñ½X»P¬ã²ß«á~©ú¤é¦A¦V±z´£³ø§i~ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD