'
' Record1 マクロ
' ORG_SHEET_NAME,NEW_SHEET_NAMEの2シートを、セル単位で比較
' 差異があったセルを色付けする
'
Private Const ORG_SHEET_NAME = "修正案"
Private Const NEW_SHEET_NAME = "tmp9"
Private Const MY_RANGE = "A1:U69"
Sub Record1()
Dim x As Integer, y As Integer
For Each c In Sheets(ORG_SHEET_NAME).Range(MY_RANGE)
x = c.Column
y = c.Row
If (Sheets(ORG_SHEET_NAME).Cells(y, x) <> Sheets(NEW_SHEET_NAME).Cells(y, x)) Then
Sheets(ORG_SHEET_NAME).Cells(y, x).Interior.ColorIndex = 6
Sheets(NEW_SHEET_NAME).Cells(y, x).Interior.ColorIndex = 6
'.Pattern = xlSolid
Else
Sheets(ORG_SHEET_NAME).Cells(y, x).Interior.ColorIndex = 2
Sheets(NEW_SHEET_NAME).Cells(y, x).Interior.ColorIndex = 2
End If
Next
End Sub
*メニュー
最新の20件
2018-04-17
2012-01-07
2011-12-07
2011-11-03
2011-10-20
2011-10-18
2014-07-13
2013-08-10
2012-01-26
2012-01-25
2012-01-24
2012-01-23
2012-01-21
2012-01-20
2012-01-19
2012-01-17
2012-01-14
2012-01-13
2012-01-09
人気の10件
- counter: 13498
- today: 1
- yesterday: 1
- online: 1