Board logo

標題: 儲存格資料有變動顏色提醒 [打印本頁]
作者: coafort    時間: 2023-4-12 06:40     標題: 儲存格資料有變動顏色提醒

請問各位大大
資料是從WEB匯入
開啟活頁簿後會自動更新
希望有變動數據的儲存格會顏色提醒(比方變成黃底)
謝謝各位大大
作者: Andy2483    時間: 2023-4-12 07:51

回復 1# coafort


    謝謝前輩發表此主題與情境
後學建議:
1.隱藏一個輔助表
2.在更新資料前先將舊資料複製到1.的輔助表
3.更新資料後設計個程式比對兩表每個儲存格,值不一樣的變底色
4.必要時可顯示被隱藏的輔助表出來查看前一次的舊資料
作者: coafort    時間: 2023-4-12 09:38

回復  coafort


    謝謝前輩發表此主題與情境
後學建議:
1.隱藏一個輔助表
2.在更新資料前先將舊資 ...
Andy2483 發表於 2023-4-12 07:51


謝謝大大
請問大大這個有辦法直接寫程式處理嗎？
謝謝
作者: Andy2483    時間: 2023-4-12 12:54

回復 3# coafort


    謝謝前輩回復
後學學習方案如下,請前輩參考
1.在 ThisWorkbook 模組裡植入以下程式碼
2.停留在檔案開啟更新WEB資料的工作表
3.儲存檔案
4.關閉檔案
5.重新開啟此檔案

Option Explicit
Public Brr0412, Sh0412 As Worksheet, xR0412 As Range
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Sh0412.Activate
On Error GoTo 0
End Sub
'===============================
Private Sub Workbook_Open()
Call 置入輔助表_隱藏
Call 更新WEB資料
Call 比對_不同值變底色
End Sub
'===============================
Sub 置入輔助表_隱藏()
Application.DisplayAlerts = False
Set Sh0412 = ActiveSheet
Set xR0412 = Range(Sh0412.[A1], Sh0412.UsedRange): Brr0412 = xR0412
On Error Resume Next
Sheets("輔助表_WEB").Delete
On Error GoTo 0
With Sheets.Add
   .Name = "輔助表_WEB"
   .Visible = False
   xR0412.Copy .[A1]
   .UsedRange.ClearContents
   .UsedRange = Brr0412
End With
End Sub
'===============================
Sub 比對_不同值變底色()
Dim Brr, xR As Range, i&, j%, xU As Range
Set xR = Range(Sh0412.[A1], Sh0412.UsedRange): Brr = xR
Set xU = Sh0412.[A1]
For i = 1 To UBound(Brr0412)
   For j = 1 To UBound(Brr0412, 2)
      If Brr(i, j) <> Brr0412(i, j) Then
         Set xU = Union(xU, xR(i, j))
      End If
   Next
Next
xR.Interior.ColorIndex = xlNone
xU.Interior.ColorIndex = 6
Set xU = Nothing: Set xR = Nothing: Set xR0412 = Nothing
Erase Brr, Brr0412
End Sub
'===============================
Sub 更新WEB資料()
'請植入必須更新的程式碼
End Sub
作者: coafort    時間: 2023-4-12 16:38

回復  coafort


    謝謝前輩回復
後學學習方案如下,請前輩參考
1.在 ThisWorkbook 模組裡植入以下程 ...
Andy2483 發表於 2023-4-12 12:54


謝謝大大
請問大大是在ThisWorkbook按右鍵插入模組嗎？
謝謝
作者: Andy2483    時間: 2023-4-12 19:02

本帖最後由 Andy2483 於 2023-4-12 19:07 編輯

回復 5# coafort



    http://forum.twbts.com/thread-23945-1-1.html

ThisWorkbook？
這帖的4樓有圖片可看
作者: coafort    時間: 2023-4-12 19:20

回復  coafort



   

ThisWorkbook？
這帖的4樓有圖片可看
Andy2483 發表於 2023-4-12 19:02


了解

非常謝謝大大



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)