|
▼kanabun さん:
>▼ヤマダ さん:
>
>>
>>数式ではなく、値を比べたいです。
>
>簡単な サンプルデータがあるとよく分かるのですが...
>
>あてずっぽで、
>
>見るのは 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
ありがとうございました
|
|