donod

回復 10# luhpro
是小的說不清楚，計算過程如下:
第 1 行 - ( D5=33 , E5=-91 )
※ C9=[-100] 和=-91 (條件5 - 如果綠色格內有[]的數值<=E5，只當E5的值，不需計算其右邊無[]的數值, 觸發)
※ D9=33     (條件5 - 略過)
※ G9=[35]   和=-91+33=-58 (條件4 - 如果綠色格內有[]的數值>=D5，只當D5的值，不需計算其右邊無[]的數值)
※ H9=-110   (條件5 - 略過)
※ I9=[32]   (不在條件內 - 沒有計算)
※ J9=-102   和=-91+33-91=-149 (條件3:如果綠色格內的數值<=E5，只當E5的值)

第 2 行 -
※ F10=[-27] (不在條件內 - 沒有計算)
※ G10=135   和=-149+33=-116 (條件1:如果綠色格內的數值>=D5，只當D5的值)
※ M10=[-30] (不在條件內 - 沒有計算)
※ N10=-2   和=-116-2=-118  (條件2:如果綠色格內的數值<D5及>E5，只當格內的值)

第 3 行 -
※ B11=[-61]  (不在條件內 - 沒有計算)
※ C11=-60    和=-118+-60=-178 (條件2)
※ O11=[-9]   (不在條件內 - 沒有計算)
※ P11=20     和=-178+20=-158 (條件2)

luhpro

回復 11# donod
電腦這幾天又掛了,到今天程式才弄出來.
你看看是否OK, 程式如下:

1. Sub nn()
   
2.   Dim iCol%, iCols%, iNum%, iIdx%, iI%, iJ%
   
3.   Dim lRow&, lRows&, lSum&(0 To 1)
   
4.   Dim bChk(0 To 1, 0 To 1) As Boolean
   
5. 
   
6.   lSum(0) = 0
   
7.   lSum(1) = 0
   
8.   For lRow = 9 To 11
   
9.     For iI = 0 To 1
   
10.       For iJ = 0 To 1
    
11.         bChk(iI, iJ) = False
    
12.       Next
    
13.     Next
    
14.     For iCol = 2 To 18
    
15.       With Cells(lRow, iCol)
    
16.         If Not .Value = "" Then ' 無數字不處理
    
17.           iIdx = IIf(.Interior.ColorIndex = 43, 1, 0)
    
18.           If Left(.Value, 1) = "[" Then
    
19.             bChk(iIdx, 0) = True
    
20.             iNum = Val(Mid(.Value, 2, Len(.Value) - 2))
    
21.           Else
    
22.             bChk(iIdx, 0) = False
    
23.             iNum = Val(.Value)
    
24.           End If
    
25.          
    
26.           If Not bChk(iIdx, 0) And bChk(iIdx, 1) Then
    
27.             bChk(iIdx, 1) = False
    
28.           ElseIf iNum >= Cells(5, 2 + iIdx * 2) Then
    
29.             lSum(iIdx) = lSum(iIdx) + Cells(5, 2 + iIdx * 2)
    
30.             If bChk(iIdx, 0) Then bChk(iIdx, 1) = True
    
31.           ElseIf iNum <= Cells(5, 3 + iIdx * 2) Then
    
32.             lSum(iIdx) = lSum(iIdx) + Cells(5, 3 + iIdx * 2)
    
33.             If bChk(iIdx, 0) Then bChk(iIdx, 1) = True
    
34.           Else
    
35.             If Not bChk(iIdx, 0) Then
    
36.               lSum(iIdx) = lSum(iIdx) + iNum
    
37.               bChk(iIdx, 1) = False
    
38.             End If
    
39.           End If
    
40.         End If
    
41.       End With
    
42.     Next iCol
    
43.   Next lRow
    
44.   MsgBox "綠色格總數為 : " & lSum(1) & Chr(10) & Chr(10) & Chr(10) & "無色格總數為 : " & lSum(0)
    
45. End Sub

複製代碼

donod

回復 12# luhpro

可以了，謝謝大大!