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

[µo°Ý] VBA_¤G°Ï¦³¥ô¤@²Õ¹ïÀ³¦Cªº¬Û¦P­È¥þÅã¥Ü¦b²Ä¤T°Ï«h¼Ð¥Ü©³¦â¡C

[µo°Ý] VBA_¤G°Ï¦³¥ô¤@²Õ¹ïÀ³¦Cªº¬Û¦P­È¥þÅã¥Ü¦b²Ä¤T°Ï«h¼Ð¥Ü©³¦â¡C

2015-1230-Q-1-¤£¦PÄæ~VBA_2R_3ABC_4ªº¡i¥ô¤@¦C¡j¹ïÀ³¦C¤§¥æ¶°­È.rar (30.75 KB)


­ìµ{¦¡½X¬°¥ô¤G°Ïªº¹ïÀ³¦C¦³¬Û¦P­È®É¡A«h¦U¼Ð¥Ü8¸¹,4¸¹,6¸¹©³¦â~
·q½Ð§ó­×»yªk¦p¤U~

»Ý¨D¡J
·íA°Ï¡äB°Ï¦³¥ô¤@²Õ¹ïÀ³¦C¤§¬Û¦P­È(¥æ¶°­È)¥þÅã¥Ü¦bC°Ï®É~
«h±N¸Ó²Õ¹ïÀ³¦C¦U¼Ð¥Ü8¸¹,4¸¹,6¸¹©³¦â¤§»yªk¡C
¸Ô¦pªþ¥ó¹Ï¥Ü¡C

¥H¤W  Àµ½Ð¦U¦ì¥ý¶i¡B«e½ú¤£§[½ç±Ð!  ÁÂÁÂ!

Dim R(1 To 3) As Range, x%, z%, i%, U%
RW = Array(.[T5], .[R6], b(1, -1))
For x = 1 To 4
For z = 1 To 7
¡@¡@Set R(1) = .[J6].Cells(RW(0) - x + 1, z): U = 0
¡@¡@For i = 2 To 3
¡@¡@¡@¡@Set R(i) = Nothing
¡@¡@¡@¡@Set R(i) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
¡@¡@¡@¡@If R(i) Is Nothing Then U = 1: Exit For
¡@¡@¡@¡@'If R(i).Column <> R(1).Column Then U = 1: Exit For '¦PÄæ
¡@¡@Next i
¡@¡@If U = 0 Then
¡@¡@¡@¡@For i = 1 To 3: R(i).Interior.ColorIndex = Array(4, 6, 8)(i - 1): Next
¡@¡@End If
Next z
Next x

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2015-12-30 13:14 ½s¿è

¦^´_ 2# ­ã´£³¡ªL
2015-1230-Q-1-¤£¦PÄæ~VBA_2R_3ABC_4ªº¡i¥ô¤@¦C¡j¹ïÀ³¦C¤§¥æ¶°­È-­ã¤j.rar (30.49 KB)

­ã¤j:
·PÁ½絪~¦³¤@ÂI¤p»~®t~
¥Ø«eªº¸Ñµª¬O¡J¦³ÂIªñ¦ü~¦ý¤£§¹¥þ¬O~
A°Ï¡äB°Ïªº¬Y²Õ¹ïÀ³¦C¤§¥ô¤@¥æ¤e­È¦³Åã¥Ü¦bC°Ïªº¹ïÀ³¦C®É¡A«h§Y±N¸Ó¥æ¤e­È¦U¼Ð¥Ü©³¦â¡C

¥»ÃDªº»Ý¨D¬O¡J
A°Ï¡äB°Ïªº¬Y²Õ¹ïÀ³¦C¤§¥æ¤e­È¥þ³¡³£¦³Åã¥Ü¦bC°Ïªº¹ïÀ³¦C®É¡A«h±N¸Ó²Õ¹ïÀ³¦Cªº¥æ¤e­È¦U¼Ð¥Ü©³¦â¡C

¥¿½T¼Ð¥Ü¸Ô¦p¡JAQ¡JAU¹Ï¥Ü¡C

PS¡J7¸¹¦rÃCªº¼Æ¦r¬°A°Ï¡äB°Ïªº¥æ¤e­È¨S¦³Åã¥Ü¦bC°Ï~«h¸Ó²Õ¹ïÀ³¦C¤£¼Ð¥Ü©³¦â¡C


¤£¦n·N«ä~·q½Ð±z¦A¦¸½ç¥¿~ÁÂÁ±z

TOP

¦^´_ 3# Airman

¢³¢¸¦Cªº¡e¢²¢¸¡f¡A¬°¦ó¥u¢¯¢µ²Å¦X¡A¢³¢¸¤£ºâ¡H
¢µ¢³¦Cªº¡e¢´¢³¡f¡A¬°¦ó¥u¢¯¢µ²Å¦X¡A¢¯¢·¡D¢³¢¸¤£ºâ¡H

TOP

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

¦^´_ 4# ­ã´£³¡ªL
­ã¤j:
39        02        04        18        20       32        49        30
72        07        13        14        20        21        49        34
96        05        16        23        28        38        47       49
¦]¬°A°Ï(39´Á)©MB°Ï(72´Á)ªº¥æ¶°¼Æ¦r¬°20©M49¡F¦ý¥u¦³49¦³Åã¥Ü¦bC°Ï(96´Á)¡A20¨Ã¨S¦³Åã¥Ü¦bC°Ï(96´Á)~©Ò¥H³o¤@²Õ¹ïÀ³¦C¤£¼Ð¥Ü©³¦â¡C

54        04        05       07        13        24        30        49
72        07       13        14        20        21        49        34
96        05        16        23        28        38        47        49
¦]¬°A°Ï(54´Á)©MB°Ï(72´Á)ªº¥æ¶°¼Æ¦r¬°07©M13©M49¡F¦ý¥u¦³49¦³Åã¥Ü¦bC°Ï(96´Á)¡A07©M13¨Ã¨S¦³Åã¥Ü¦bC°Ï(96´Á)~©Ò¥H³o¤@²Õ¹ïÀ³¦C ¤£¼Ð¥Ü©³¦â¡C

55        03        04        08        25        36        42        32
73        08        10        11        21        23        44       42
97        02        08        11        12        26        35        47
¦]¬°A°Ï(55´Á)©MB°Ï(73´Á)ªº¥æ¶°¼Æ¦r¬°08©M42¡F¦ý¥u¦³08¦³Åã¥Ü¦bC°Ï(97´Á)¡A42¨Ã¨S¦³Åã¥Ü¦bC°Ï(97´Á)~©Ò¥H³o¤@²Õ¹ïÀ³¦C¤£¼Ð¥Ü©³¦â¡C

¨ä¾l...¥H¦¹Ãþ±À¡C

¥H¤W  ÂԨѱz°Ñ¦Ò!ÁÂÁ±z

¸É¥R:
¥»¦¸½d¨Ò¥H¨C°Ï¦U4´Á¬°¹ïÀ³~
§YA°Ï¦³30~33¡F39~42¡F54~57      B°Ï¬°72~75   C°Ï¬°96~99

TOP

¶·¦h¨â¹Dµ{¦¡:
¢°¡D¥þ³¡ÀË´ú¤@¦¸¡A¦¬¶°²Å¦XªÌ¯Ç¤JunionÁp¶°°Ï
¢±¡D³v¤@Áp¶°°Ï¨ú¥XÀx¦s®æ¶ñ¦â

Dim R(1 To 3) As Range, UR(1 To 3) As Range, x%, z%, i%, U%
RW = Array(b(1, -1), .[T5], .[R6])
For x = 1 To 4
¡@¡@For i = 1 To 3: Set UR(i) = Nothing: Next
For z = 1 To 7
¡@¡@Set R(1) = .[J6].Cells(RW(0) - x + 1, z): U = 0
¡@¡@For i = 2 To 3
¡@¡@¡@¡@Set R(i) = Nothing
¡@¡@¡@¡@Set R(i) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole) '¤£¦PÄæ
¡@¡@¡@¡@If Not R(i) Is Nothing Then U = U + i '¤£¦PÄæ
¡@¡@¡@¡@'Set R(i) = .[J6:P6].Cells(RW(i - 1) - x, z) '¦PÄæ
¡@¡@¡@¡@'If R(i) = R(1) Then U = U + i '¦PÄæ
¡@¡@Next i
¡@¡@If U = 2 Then Set UR(1) = Nothing: Exit For
¡@¡@If U = 5 Then
¡@¡@¡@¡@For i = 1 To 3
¡@¡@¡@¡@¡@¡@If UR(i) Is Nothing Then Set UR(i) = R(i) Else Set UR(i) = Union(UR(i), R(i))
¡@¡@¡@¡@Next i
¡@¡@End If
Next z
¡@¡@If Not UR(1) Is Nothing Then
¡@¡@¡@For i = 1 To 3
¡@¡@¡@¡@¡@For Each R(1) In UR(i): R(1).Interior.ColorIndex = Array(8, 4, 6)(i - 1): Next
¡@¡@¡@Next
¡@¡@End If
Next x

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2015-12-30 18:22 ½s¿è

¦^´_ 6# ­ã´£³¡ªL
­ã¤j:
¤£¦n·N«ä¡A¤@ª½³Ò·Ð±z¬°¤p§Ì§@¸Ñ

¦]¬°¥Hµ´¹ï¥æ¤e¨D¦P­È®É¡A¥Hµo°Ýªº»yªk¤§¸Ñ(­è¦n3¬q¤½¦¡¯à¤¬¬Û©è冲±¼¤@²Õ¥u¦³¤G­Ó¹ïÀ³´Áªº¥æ¤e¨D¦P­È)´N¥i¥H¤F~
¦ý²Å¦Xµ´¹ï¥æ¤e­Èªº¹ê»Úµª®×¤Óµ}¤Ö¤F~©Ò¥H¥u¦n©ñ¼e±ø¥ó­­¨î~¬Ý¬O§_¯à¸û²Å¦X¹ê°È¤Wªº±ÀµP»Ý¨D¡C

´ú¸ÕOK¤F~¸U¤À·PÁ±zªº­@¤ß±Ð¾É~·P®¦

TOP

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

¦^´_ 6# ­ã´£³¡ªL
¦PÄæ~2015-1230-Q-1-VBA_2R_3ABC_4ªº¡i¥ô¤@¦C¡j¹ïÀ³¦C¤§¥æ¶°­È.rar (29.88 KB)

­ã¤j:
¤£¦n·N«ä~­è­è§Ñ¤F´ú¸Õ¦PÄæ~
²{¦b´ú¸Õ«á~²Å¦X±ø¥óªº¦PÄæ¦ì¼Æ¦r~¤T°Ï³£µLªk¦³®Ä¼Ð¥Ü©³¦â

·q½Ð±z¦A¦¸½ç¥¿~·P®¦

PS: ¤£­­¨î¦PÄæ¦ì¼Æ¦rªº©³¦â¼Ð¥Ü»yªk§¹¥þOK¤F~ÁÂÁ±z

TOP

¦^´_ 8# Airman


Set R(i) = .[J6:P6].Cells(RW(i - 1) - x + 1, z)

TOP

­ã¤j:
¨þ~¨þ~´N®t1¦Ó¤w¡A¼Ð¥Ü¥þ¶]¥X¨Ó¤F
OK¤F~¦A¦¸·PÁ±zªº­@¤ß«ü¾É~·P®¦

±ß ¦w~

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD