|
▼ヤマダ さん:
>
>数式ではなく、値を比べたいです。
簡単な サンプルデータがあるとよく分かるのですが...
あてずっぽで、
見るのは T,U,V,Wの4列ですよね?
最初に U列の最終セルをRange型の変数 LastU にセットします。
このセルには U列の合計式が書いてあります。
このセルと そのふたつ右のW列の同じ行のセルの「値」を較べます。
同じなら OKで終了。
同じでないとき、
T列の値 - U列の値 という式を V列にセットしてやります。
ここまでをコードにすると。。。
Sub Check1()
Dim LastU As Range
Const msg = "U列合計とW列合計"
'[U]列の最終セル(合計セル)
Set LastU = Cells(Rows.Count, "U").End(xlUp)
'U列とW列の合計が一致していたらメッセージを出して終了
If LastU.Value = LastU.Offset(, 2).Value Then
MsgBox msg & "は同じです OK"
Exit Sub 'OK 終了
End If
'合計が一致していなければ メッセージを出して
MsgBox msg & "が異なります"
'T列からU列を引いてV列に結果を表示させる
Range("V5", LastU.Offset(-1, 1)).Formula = "=T5-U5"
End Sub
|
|