­ã´£³¡ªL

¦^´_ 2# Airman


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

¤U¸ü¦¸¼Æ: 3

2016-2-3 19:14

­ã´£³¡ªL

¦^´_ 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!!!

­ã´£³¡ªL

¦^´_ 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