VBA　異なる文字

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 14:18:18     OS : 未指定     EXCEL : 未指定

---

こんにちは。検索しても思ったようなものが見当たらないので質問させてください。
計算結果から、元データの合計と違う場合に「エラー」と表示させたいです。

↓
①J25～J42の合計
②Jには正しい合計
③②の合計と①の合計を比較

正しければ印刷
異なれば「エラー」を表示させる

といったことをしたいです。
お力をお貸しいただけませんでしょうか。よろしくお願いいたします。

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 14:19:23

---

■[質問] サムさん（2022-06-22 14:18:18）の記事
＞ こんにちは。検索しても思ったようなものが見当たらないので質問させてください。
＞ 計算結果から、元データの合計と違う場合に「エラー」と表示させたいです。
＞
＞ ↓
＞ ①J25～J42の合計
＞ ②Jには正しい合計
＞ ③②の合計と①の合計を比較
＞
＞ 正しければ印刷
＞ 異なれば「エラー」を表示させる
＞
＞ といったことをしたいです。
＞ お力をお貸しいただけませんでしょうか。よろしくお願いいたします。


訂正です。
②Jには正しい合計
↓
②J43には正しい合計

投稿者 : てらてら     投稿日時 : 2022/06/22(Wed) 14:46:05

---

こんにちは。

意味が無いようにも思えますが、一応書いてみました。
参考にしてください。

Sub macro()

    Dim total As Long
    Dim i As Long
    
    For i = 25 To 42
        total = total + Cells(i, "J")
    Next i

    If total = Range("J43") Then
        MsgBox "合計は" & total & "で合ってます。印刷しましょう！"
    Else
        MsgBox "合計が違います。" & total & "<>" & Range("J43")
    End If

End Sub

投稿者 : さんこう     投稿日時 : 2022/06/22(Wed) 14:46:57

---

参考になれば。

＜合計値を計算＞
https://www.google.com/search?q=VBA+%E5%90%88%E8%A8%88%E5%80%A4%E3%82%92%E8%A8%88%E7%AE%97

＜シートを印刷＞
https://www.google.com/search?q=VBA+%E3%82%B7%E3%83%BC%E3%83%88%E3%82%92%E5%8D%B0%E5%88%B7

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 15:13:25

---

ありがとうございます。正常に動作しました。

こちら、今までに作成したマクロに追加していきたいのですが、
①合計が合っている→次の作業（印刷）
②異なる→エラーメッセージ後、作業終了（印刷まで進まない）
としたいのですが、こちらは可能でしょうか？質問ばかりで申し訳ございません。



Dim total As Long
Dim i As Long

For i = 26 To 42
total = Range("CK2")
Next i

If total = Range("J43") Then
MsgBox "合計は" & total & "で合っています。印刷OKです！"
Else
MsgBox "【注意！】合計金額が違います。データを確認してください。"
End If

'印刷画面の選択
Sheets("印刷").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1

投稿者 : てらてら     投稿日時 : 2022/06/22(Wed) 15:28:22

---

　　If total = Range("J43") Then
　　　MsgBox "合計は" & total & "で合ってます。印刷しましょう！"
　　　Activesheet.PrintOut
　　Else
　　　MsgBox "合計が違います。" & total & "<>" & Range("J43")
　　End If

としてください。

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 16:09:34

---

ありがとうございます！無事に完成しました。

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 16:10:17

---

解決済みにします。