Excel VBA에서 변경된 셀을 채색하고 이해하기 쉽습니다.
Excel VBA에서 변경된 셀을 채색하고 이해하기 쉽습니다.
시트의 데이터가 많을 때, 어딘가 1개 셀을 수정했는지를 찾는 것이 힘들 때가 있습니다.
자주 있는 것이, Excel 데이터를 갱신해, 메일로 되돌려 받을 때에, 변경된 부분을, 하이라이트로 일부러 색칠하는 것은 수고가 있다.
상당히 단순하지만 셀을 변경하면 셀에 색을 붙여 변경한 셀을 알기 쉽도록 해 보았다.
VBA 매크로
Dim refValue
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
refValue = Range(Target.Address).Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If refValue <> Range(Target.Address).Value Then
With Range(Target.Address).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Reference
이 문제에 관하여(Excel VBA에서 변경된 셀을 채색하고 이해하기 쉽습니다.), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/exvatpc/items/62f7f5b47eb2b24d8c45
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
Dim refValue
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
refValue = Range(Target.Address).Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If refValue <> Range(Target.Address).Value Then
With Range(Target.Address).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Reference
이 문제에 관하여(Excel VBA에서 변경된 셀을 채색하고 이해하기 쉽습니다.), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/exvatpc/items/62f7f5b47eb2b24d8c45텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)