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

VBA_A´Á¼Æ¦bB´Á¼Æªº¹ïÀ³­È¦³¦AÅã¥Ü©óC´Á¼ÆªºÀx¦s®æ®É¡A«h¦U¼Ð¥Ü©³¦â¤§»yªk¡C

VBA_A´Á¼Æ¦bB´Á¼Æªº¹ïÀ³­È¦³¦AÅã¥Ü©óC´Á¼ÆªºÀx¦s®æ®É¡A«h¦U¼Ð¥Ü©³¦â¤§»yªk¡C

¥»©«³Ì«á¥Ñ Airman ©ó 2016-2-1 22:25 ½s¿è

VBA_A¦bBªº¹ïÀ³­È¦AÅã¥Ü©óCªº¤£­­¦PÄæ&¦PÄ椧©³¦â¼Ð¥Ü.rar (26.59 KB)


¼ÐÃD»¡©ú¡J
A´Á¼Æ=T$5´Á¼ÆªºJ¡JP¤§7­Ó­È
B´Á¼Æ=$R7´Á¼ÆªºJ¡JP¤§7­Ó­È
C´Á¼Æ=$R7+T$3´Á¼ÆªºJ¡JP¤§7­ÓÀx¦s®æ

»Ý¨D¡J¦A¼W¥[¤U¦C»yªk~
·íT$5´Á¼ÆªºJ¡JP¤§7­Ó­È¡A¨ä¦b$R7´Á¼ÆªºJ¡JP¤§7­Ó¹ïÀ³­È¡A¦³¦AÅã¥Ü©ó$R7+T$3´Á¼ÆªºJ¡JP¤§7­ÓÀx¦s®æ¤¤®É~
«h±N²Å¦X±ø¥óªº¦U²Õ¦X¡A®Ú¾ÚT$5´Á¼ÆJ¡JPÄæ¦ìªº¶¶¦ì~¨Ì§Ç¼Ð¥Ü40¸¹,39¸¹,45¸¹,4¸¹,38¸¹,37¸¹,8¸¹©³¦â¤§»yªk¡C

½d¨Ò~
1.M94¦bM7ªº¹ïÀ³­È13¡A¦AÅã¥Ü©óK19ªºÀx¦s®æ¡A«hM94,M7,K19¦U¼Ð¥Ü4¸¹©³¦â¡C
2.J94¦bJ15ªº¹ïÀ³­È04¡A¦AÅã¥Ü©óP27ªºÀx¦s®æ¡A«hJ94,J15,P27¦U¼Ð¥Ü40¸¹©³¦â¡C
¨ä¾l......¦P²zÃþ±À¡C

¸Ô¦pªþ¥ó¡C(½ÐÂI¿ï¤W¤è¤§ªþ¥ó)

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


©êºp!¤U¤è³o­Óªþ¥ó§@¼o(¤£ª¾¬°¦ó§R¤£±¼ )

¦^´_ 1# Airman

©êºp ^^"   #1 §@¼o

§ó§ï»Ý¨D~

VBA_¦C39~¦C59¼W­×.rar (26.76 KB)

»Ý¨D¡J½Ð±N¦C39~¦C59ªºµ{¦¡½X¼W­×¬°~
·íT$5´Á¼ÆªºJ¡JP¤§­È¡A¦³Åã¥Ü¦b$R7´Á¼ÆªºJ¡JP¤§Àx¦s®æ¤¤~
¥B¸ÓT$5´Á¼ÆªºJ¡JP­È¡A¨ä¦b$R7´Á¼Æ¤§¹ïÀ³­È¡A¦³¦AÅã¥Ü©ó$R7+T$3´Á¼ÆªºJ¡JP¤§Àx¦s®æ¤¤®É~
«h±N²Å¦X¤W­z±ø¥óªº¦U²Õ¦X¡A®Ú¾ÚT$5´Á¼ÆJ¡JPÄæ¦ìªº¶¶¦ì~¨Ì§Ç¼Ð¥Ü40¸¹,39¸¹,45¸¹,4¸¹,38¸¹,37¸¹,8¸¹©³¦â¤§»yªk¡C

'R7&T5¤G¦Cªº¤£­­¦PÄæ©Î¦PÄ椧¥æ¶°.........................................................................'¦C38
        If .[T5] > .Range("R" & b.Row) And .Range("R" & b.Row) > 0 Then
            Dim L(1 To 2)
            U = 0: RW = Array(.[T5], .Range("R" & b.Row))
                    For y = 1 To 2: Set R(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
            For z = 1 To 7
                  L(1) = z
                  For y = 1 To 2
                      L(y) = Application.Match(R(1)(z), R(y), 0)
                      If IsError(L(y)) Then L(1) = 0: Exit For
                      'If L(y) <> L(1) Then L(1) = 0: Exit For  '­Y­n¨D¡e¦PÄæ¡f¡A¥[¤J³o¦æ
                  Next y
                  If L(1) > 0 Then
                    For y = 1 To 2
                        R(y)(L(y)).Select
                        'Selection.Interior.ColorIndex = Array(4, 8)(y - 1)  '¼Ð¥Ü¡e­Ó§O¡f©³¦â
                        Selection.Font.ColorIndex = 7   '³]©w¤å¦r
                        Selection.Font.FontStyle = "²ÊÅé"
                    Next
                  End If
            Next z
        End If
½d¨Ò~
1.·íM94ªº33¦b¦³Åã¥Ü¦bN7¥BM94¦bM7ªº¹ïÀ³­È13¡A¦³¦AÅã¥Ü©óK19ªºÀx¦s®æ¡A«hM94,M7,K19¦U¼Ð¥Ü4¸¹©³¦â¡C
2.·íJ94ªº23¦b¦³Åã¥Ü¦bP15¥BJ94¦bJ15ªº¹ïÀ³­È04¡A¦AÅã¥Ü©óP27ªºÀx¦s®æ¡A«hJ94,J15,P27¦U¼Ð¥Ü40¸¹©³¦â¡C
¨ä¾l......¦P²zÃþ±À¡C

¸Ô¦pªþ¥ó¡C

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

TOP

¦^´_ 2# Airman


   VBA_¦C39~¦C59¼W­×_v1.rar (27.66 KB)

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2016-2-3 23:29 ½s¿è

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

­ã¤j:
ÁÂÁ±zªº¶O¯«½ç±Ð~·P®¦

¶Q¸ÑµªÀɪº´ú¸Õµ²ªG:©|¦³¤@­Ó¤p»~®t~
7¸¹¦rÃC~¬O¼Ð¥Ü¦bT$5´Á¼Æ©M$R7´Á¼Æªº¬Û¦P­È(¥æ¶°­È)~
¸Ô¦p:»Ý¨Dµª®×ªº°Ñ¦Ò¹Ï¥Ü      PS: M70©MM82ªº33·|¦P®É¦³7¸¹¦rÃC©M4¸¹©³¦â¡A
¬O¦]¬°T$5ªº´Á¼Æ(=88´Á)¦U»P$R70©M$R82ªº´Á¼Æ(=64´Á©M=76´Á)ªº¬Û¦P­È(¥æ¶°­È)­è¦n¬O¦PÄæ¦ìªºÃö«Y¡C

¥H¤W  ·q½Ð±z½ç¥¿¬°Ã«~ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2016-2-4 00:31 ½s¿è

¦^´_ 3# ­ã´£³¡ªL
­ã¤j:
¤£¦n·N«ä~ 4#»¡©ú¤¤ªº¬Û¦P­È(¥æ¶°­È)¦n¹³¦³º|¬}(»y¯f)

­«·s»¡©ú¡J
±ø¥ó1_·íT$5´Á¼ÆªºJ¡JPÀx¦s®æ¼Æ¦r¦b$R7´Á¼Æªº¹ïÀ³Àx¦s®æ¼Æ¦r¦³¦AÅã¥Ü©ó$R7+T$3´Á¼ÆªºJ¡JPÀx¦s®æ¤¤®É~
±ø¥ó2_²Å¦X±ø¥ó1¤§T$5ªºJ¡JPÀx¦s®æ¼Æ¦r¥ç¦³Åã¥Ü¦b$R7´Á¼ÆªºJ¡JPÀx¦s®æ¤¤¡C

·í¤W­zªº¤G­Ó±ø¥ó³£²Å¦X®É¡A«h~
²Å¦X±ø¥ó_1ªºT$5¡A$R7¡A$R7+T$3ªº3­ÓÀx¦s®æ¦U¼Ð¥Ü©³¦â(©³¦â¶¶§Ç¦p¶Q¸ÑµªÀÉ)¡F
²Å¦X±ø¥ó_2ªºT$5¡A$R7¡A$R7+T$3ªº3­ÓÀx¦s®æ¦U¼Ð¥Ü7¸¹²Ê¦rÃC¡C

¸Ô¦p:»Ý¨Dµª®×ªº°Ñ¦Ò¹Ï¥Ü

¥H¤W  ·q½Ð±z½ç¥¿¬°Ã«~ÁÂÁ±z

TOP

¦^´_ 5# Airman
©êºp~¦³µ§»~~
²Å¦X±ø¥ó_2ªºT$5¡A$R7¡A$R7+T$3ªº3­ÓÀx¦s®æ¦U¼Ð¥Ü7¸¹²Ê¦rÃC¡C
§ï¬°:
²Å¦X±ø¥ó_2ªºT$5¡A$R7ªº2­ÓÀx¦s®æ¦U¼Ð¥Ü7¸¹²Ê¦rÃC¡C
ÁÂÁÂ!

TOP

¦^´_ 6# Airman


If .[T5] > .Range("R" & b.Row) And .Range("R" & b.Row) > 0 Then
¡@¡@RW = Array(.[T5], b(1, -1), b(1, -1) + .[T3])
¡@¡@For y = 1 To 3: Set UR(y) = .[J:P].Rows(RW(y - 1) + 6).Cells: Next y
¡@¡@For z = 1 To 7
¡@¡@¡@¡@Set R(1) = UR(1)(z): Set R(2) = Nothing: Set R(3) = Nothing
¡@¡@¡@¡@Set R(2) = UR(2).Find(R(1), Lookat:=xlWhole)
¡@¡@¡@¡@If Not R(2) Is Nothing Then
¡@¡@¡@¡@¡@Set R(2) = UR(2)(z)
¡@¡@¡@¡@¡@Set R(3) = UR(3).Find(R(2), Lookat:=xlWhole)
¡@¡@¡@¡@End If
¡@¡@¡@¡@If Not R(3) Is Nothing Then
¡@¡@¡@¡@¡@For y = 1 To 3
¡@¡@¡@¡@¡@¡@R(y).Interior.ColorIndex = Array(40, 39, 45, 4, 38, 37, 8)(z - 1)
¡@¡@¡@¡@¡@Next
¡@¡@¡@¡@¡@Set R(2) = UR(2).Find(R(1), Lookat:=xlWhole)
¡@¡@¡@¡@¡@ For y = 1 To 2
¡@¡@¡@¡@¡@¡@¡@R(y).Font.ColorIndex = 7   '³]©w¤å¦r
¡@¡@¡@¡@¡@¡@¡@R(y).Font.FontStyle = "²ÊÅé"
¡@¡@¡@¡@¡@Next y
¡@¡@¡@¡@End If
¡@¡@Next z
End If

³oºØ±K±K³Â³Âªº¤å¦r´y­z, µ{¦¡½X·s²V¦X, ¹ê¦b¤£¤Ó²ßºD, ¤Óªá®É¶¡¤Î²´¤O!!!

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2016-2-4 12:36 ½s¿è

¦^´_ 7# ­ã´£³¡ªL
­ã¤j:
´ú¸Õ§¹¥þOK¤F~·P®¦

¦pªG»¡©úªº¤å¦r¼Ð¥ÜÃC¦â·|¥O±z²´ªáÁA¶Ã~¤p§Ì¥H«á´N¤£¼Ð¥Ü¦rÃC~¥H§Q±z¾\Ū¡C
¦Ü©ó¤å¦r»¡©úªº¤è¦¡~¤p§Ì·|ºÉ¶q§ï¶i~¤O¨D²§ã¡C
·|¥H­ìµ{¦¡©Î­ì¤½¦¡ªº¼W­×¨Ó¹F¨ì·s»Ý¨D~¬O·Q¦]­ìµ{¦¡©Î­ì¤½¦¡³£¬°±zªº­ì§@~©Ò¥H»~¥H¬°·|³o¼Ë¤ñ¸û®e©ö²z¸Ñ¡C
¤µ«á¤p§Ì·|§ïÅÜ´£°Ýªº¤è¦¡~¤§«e³y¦¨±zªº©Ò¦³¤£«K~·q½Ð®ü²[¡CÁÂÁ±z

TOP

¦^´_ 7# ­ã´£³¡ªL
­ã¤j:
ÁöµM®Ñ¬O¶R¤F«Ü¦h~¦ý ¤@ª½¦³¬Ý¨S¦³À´
©Ò¥H±`¥H»Ý¨Dªºµy·LÅܤƨӤñ¹ï¦Ó§l¨úµ{¦¡ªº¼gªk¡C
±zªº»yªk¤p§Ì¤]º¥º¥¾AÀ³~¬Û«H¦PÃþ»Ý¨D·|ºCºC´î¤Ö¡C

¤£¦n·N«ä~·Q¦A±N¶Q¸Ñµ{¦¡½Xªº»Ý¨D§ï¬°: ¤G­Ó´Á¼Æ¡i¦PÄæ¦ì¤§¬Û¦P¼Æ¦r¡jªº¦A¥X²{©ó¥¦´Á¤§¼Ð¥Ü»yªk¡C
»¡©ú:
·íT$5©M$R7´Á¼ÆªºJ¡JP¡i¦PÄæ¦ì¤§¬Û¦P¼Æ¦r¡j¦³¦AÅã¥Ü©ó$R7+T$3´Á¼Æªº¦PÄæ¦ì©Î¤£¦PÄæ¦ì¤§Àx¦s®æ¤¤®É~
«h±N²Å¦X±ø¥óªº3­Ó´Á¼Æ¡A®Ú¾ÚT$5´Á¼ÆJ¡JPÄæ¦ì¤§¶¶¦ì~¨Ì§Ç¼Ð¥Ü40¸¹,39¸¹,45¸¹,4¸¹,38¸¹,37¸¹,8¸¹©³¦â¡A
¨Ã±NT$5©M$R7ªº¡i¦PÄæ¦ì¤§¬Û¦P¼Æ¦r¡j¦A¼Ð¥Ü7¸¹²Ê¦rÃCªº»yªk¡C

¸Ô¦pªþ¥ó ¤G­Ó´Á¼Æ¦PÄæ¦ì¬Û¦P­Èªº¦A¥X²{¤§¼Ð¥Ü»yªk¡C.rar (31.54 KB)

¥H¤W  ·q½Ð±z½ç±Ð¬°Ã«!·P®¦

TOP

¦^´_ 9# Airman

­×§ï³¡¥÷¤j­P³£¹ï¡A¨ä¹ê¦Û¤v¦h´ú´X¦¸¥hº¥¦¸­×§ï¡A¤]¥i¥Hªº¡I¡I¡I

For z = 1 To 7
¡@¡@Set R(1) = UR(1)(z): Set R(2) = Nothing: Set R(3) = Nothing
¡@¡@If UR(2)(z) = R(1) Then
¡@¡@¡@¡@Set R(2) = UR(2)(z) '¦PÄæ
¡@¡@¡@¡@Set R(3) = UR(3).Find(R(2), Lookat:=xlWhole) '¤£¦PÄæ
¡@¡@¡@¡@'If UR(3)(z) = R(1) Then Set R(3) = UR(3)(z) '¦PÄæ
¡@¡@End If
¡@¡@If Not R(3) Is Nothing Then
¡@¡@¡@¡@For y = 1 To 3
¡@¡@¡@¡@¡@¡@R(y).Interior.ColorIndex = Array(40, 39, 45, 4, 38, 37, 8)(z - 1)
¡@¡@¡@¡@Next
¡@¡@¡@¡@For y = 1 To 2
¡@¡@¡@¡@¡@¡@R(y).Font.ColorIndex = 7   '³]©w¤å¦r
¡@¡@¡@¡@¡@¡@R(y).Font.FontStyle = "²ÊÅé"
¡@¡@¡@¡@Next y
¡@¡@End If
Next z

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD