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

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó°ÝÃD

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó°ÝÃD

½Ð±Ð¦U¦ì°ª¤â¤j¤j

³]©w®æ¦¡¤Æªº±ø¥ó°ÝÃD
X,Y,Z,AA   Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©wÄæ¦ì©³¶ñº¡¬õ¦â

(¾í¦âÄæ¦ì)-->XÄæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©wE¡AS¡AAD¡AAMÄæ¦ì©³¶ñº¡¬õ¦â
(¶À¦âÄæ¦ì)-->YÄæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©wI¡AT¡AAE¡AAQÄæ¦ì©³¶ñº¡¬õ¦â
(²Lºñ¦âÄæ¦ì)-->ZÄæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©wM¡AU¡AAF¡AAUÄæ¦ì©³¶ñº¡¬õ¦â
(²L¾í¦âÄæ¦ì)-->AAÄæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©wQ¡AV¡AAG¡AAYÄæ¦ì©³¶ñº¡¬õ¦â

®×¨Ò:
1.AA2Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mQ2¡AV2¡AAG2¡AAY2Äæ¦ì©³¶ñº¡¬õ¦â
2.AA5Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mQ5¡AV5¡AAG5¡AAY5Äæ¦ì©³¶ñº¡¬õ¦â
3.Z6Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mM6¡AU6¡AAF6¡AAU6Äæ¦ì©³¶ñº¡¬õ¦â
4.Z9Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mM9¡AU9¡AAF9¡AAU9Äæ¦ì©³¶ñº¡¬õ¦â
5.Y10Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mI10¡AT10¡AAE10¡AAQ10Äæ¦ì©³¶ñº¡¬õ¦â
6.X11Äæ¦ì¼Æ¤l¤£µ¥©ó0¡A«ü©w¦ì¸mE11¡AS11¡AAD11¡AAM11Äæ¦ì©³¶ñº¡¬õ¦â

³]©w®æ¦¡¤Æªº±ø¥ó°ÝÃD.rar (34.33 KB)

¦^´_ 1# jeff5424

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xU, i%, j%
Arr = Range([a1], [ay65536].End(3))
'Cells.Interior.ColorIndex = 0
Set xU = [a1]
For j = 24 To 27: For i = 2 To UBound(Arr)
    If IsNumeric(Arr(i, j)) Then
        If Val(Arr(i, j)) < 0 Then
        If j = 24 Then Set xU = Union(Cells(i, j), Cells(i, j - 19), Cells(i, j - 5), Cells(i, j + 6), Cells(i, j + 15), xU)
        If j = 25 Then Set xU = Union(Cells(i, j), Cells(i, j - 16), Cells(i, j - 5), Cells(i, j + 6), Cells(i, j + 18), xU)
        If j = 26 Then Set xU = Union(Cells(i, j), Cells(i, j - 13), Cells(i, j - 5), Cells(i, j + 6), Cells(i, j + 21), xU)
        If j = 27 Then Set xU = Union(Cells(i, j), Cells(i, j - 10), Cells(i, j - 5), Cells(i, j + 6), Cells(i, j + 24), xU)
        End If
    End If
Next i: Next j
xU.Interior.ColorIndex = 3
[a1].Interior.ColorIndex = xlNone
End Sub

TOP

Sub TEST_A1()
Dim R&, Rng(1 To 4) As Range, i%
R = ActiveSheet.UsedRange.Rows.Count - 1
Application.ScreenUpdating = False
For i = 1 To 4
    Set Rng(1) = [e2].Cells(1, i * 4 - 3).Resize(R)
    Set Rng(2) = [s2].Cells(1, i).Resize(R)
    Set Rng(3) = [x2].Cells(1, i).Resize(R)
    Set Rng(4) = [am2].Cells(1, i * 4 - 3).Resize(R)
    With Union(Rng(1), Rng(2), Rng(3), Rng(4))
         .Item(1).Select
         .FormatConditions.Delete
         .FormatConditions.Add Type:=xlExpression, Formula1:="=1/" & Array("$X2", "$Y2", "$Z2", "$AA2")(i - 1)
         .FormatConditions(1).Interior.ColorIndex = 3
    End With
Next i
[e1].Select
End Sub

TOP

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


    ·PÁª©¥D¤j¤j
¸g´ú¸Õ¥i¥¿±`¨Ï¥Î

TOP

¦^´_ 2# samwang
·PÁÂsamwang¤j¤j
¸g´ú¸Õ¥i¥¿±`¨Ï¥Î

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD