條件式格式設定

198188

根據Invoice 表 的欄C - E 找Data表 的欄 A - C 資料相同的
Invoice 表 的欄C 對比 Data表 的欄 A
Invoice 表 的欄D 對比 Data表 的欄 B
Invoice 表 的欄E 對比 Data表 的欄 C
如果3個都相同，讀取Data表 的欄 E 到 Invoice 表的欄J

Invoice 表的欄K = 欄J - 欄F  (答案是正數，字體變藍色，答案是負數，字體變紅色)
Invoice 表的欄L = ROUND (欄D * 欄E / 1000000,3)
Invoice 表的欄M =欄L - 欄G (答案不等於0，字體紅色）
Invoice 表的欄N= ROUND (欄L * 欄F,3)
Invoice 表的欄O =欄N - 欄H (答案不等於0，字體紅色）

Andy2483

回復 1# 198188

謝謝前輩發表此主題與範例
後學藉此帖學到了 ROUND() 很多知識,學習方案如下,請前輩參考
https://learn.microsoft.com/zh-t ... help/round-function

Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, V, Z, Q, i&, j%, R&, c%, Y&, X%, T$, T1$, T2$, T3$
Dim xR As Range, Ra As Range, Sh As Worksheet, xBook As Workbook
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([Data!E2], [Data!A65536].End(3))
For i = 1 To UBound(Brr)
   T = Trim(Brr(i, 1)) & "/" & Val(Brr(i, 2)) & "/" & Val(Brr(i, 3))
   If Z.EXISTS(T) Then
      MsgBox T & "重複":  Exit Sub
      Else
      Z(T) = Val(Brr(i, 5))
      Z(T & "/n") = 1
   End If
Next
Arr = Range([Invoice!H12], [Invoice!C65536].End(3))
ReDim Crr(1 To UBound(Arr), 1 To 6)
For i = 1 To UBound(Arr)
   If Trim(Arr(i, 1)) = "" Then GoTo i01
   T = Trim(Arr(i, 1)) & "/" & Val(Arr(i, 2)) & "/" & Val(Arr(i, 3))
   Z(T & "/n") = Z(T & "/n") + 1
   If Z(T & "/n") > 2 Then MsgBox T & "重複":  Exit Sub Else V = Z(T)
   If V = "" Then GoTo i01
   Crr(i, 1) = V
   Crr(i, 2) = V - Val(Arr(i, 4))
   Crr(i, 3) = Application.Round(Val(Arr(i, 2)) * Val(Arr(i, 3)) / 10 ^ 6, 3)
   Crr(i, 4) = Crr(i, 3) - Val(Arr(i, 5))
   Crr(i, 5) = Application.Round(Crr(i, 3) * Val(Arr(i, 4)), 3)
   Crr(i, 6) = Crr(i, 5) - Val(Arr(i, 6))
i01: Next
[Invoice!J12].Resize(UBound(Crr), 6) = Crr
End Sub

198188

回復 2# Andy2483

如果中間有兩三個空行，這個需要怎樣改，才能計算最後一行

下載 (21.4 KB)

2024-2-27 15:06

    Arr = Range([Invoice!H12], [Invoice!C65536].End(3))

Andy2483

回復 3# 198188

Sorry
ReDim Crr放錯位置了,請看2#的修正

198188

回復 4# Andy2483

我在這裏加了一句改顔色，我用了下面5個方式，都是錯，請問是哪裏不對？

     Crr(i, 2) = V - Val(Arr(i, 4))

     If Crr(i, 2) > 0 Then Crr(i, 2).Font.ColorIndex = 3

     If Crr(i, 2) > 0 Then Crr(i, 2).Font.ColorIndex = RGB(205, 238, 202)

     If Crr(i, 2) > 0 Then Worksheets("Invoice").Range("K" & i).Font.ColorIndex = 3
   
     If Crr(i, 2) > 0 Then Worksheets("Invoice").Range("K" & i).Font.ColorIndex = RGB(205, 238, 202)

     If Crr(i, 2) = 0 then Crr(i, 2).Font.ColorIndex = 6 else Crr(i, 2) > 0 Then Crr(i, 2).Font.ColorIndex = 3 else Crr(i, 2).Font.ColorIndex = 4

Andy2483

回復 5# 198188

建議前輩不要從裡面改,讓陣列值貼入儲存格後寫另一段代碼判斷值再變更字色
因儲存格索引號與陣列索引號錯位,容易混淆

198188

回復 6# Andy2483


    明白，謝謝。

准提部林

文字顏色可直接用格式設定即可,
建議預先設定好表格格式, 儘量不要在程式中逐一設置, 拖慢速度,
K欄//[藍色]0_ ;[紅色]-0 ;[黑色]0
M.O欄//[紅色][<>0]0.000;[黑色]0.000   或 [黑色][=0]0.000;[紅色]0.000

條件格式也可以, 這很基本的, 應該可以自己來~~

198188

回復 8# 准提部林


    了解，我已經做了格式設定

198188

回復 8# 准提部林

准大，開否幫我看看這個貼
    https://forum.twbts.com/viewthread.php?tid=24205&pid=123061&page=1&extra=pageD1#pid123061