Excel VBA 質問スレッド No.820 (解決済)

VBA 異なる文字

投稿者 : サム     投稿日時 : 2022/06/22(Wed) 14:18:18     OS : 未指定     EXCEL : 未指定
こんにちは。検索しても思ったようなものが見当たらないので質問させてください。
計算結果から、元データの合計と違う場合に「エラー」と表示させたいです。


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

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

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

[返信 1] Re : VBA 異なる文字
投稿者 : サム     投稿日時 : 2022/06/22(Wed) 14:19:23
■[質問] サムさん(2022-06-22 14:18:18)の記事
> こんにちは。検索しても思ったようなものが見当たらないので質問させてください。
> 計算結果から、元データの合計と違う場合に「エラー」と表示させたいです。

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

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

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


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

②J43には正しい合計

[返信 2] Re : VBA 異なる文字
投稿者 : てらてら     投稿日時 : 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

[返信 3] Re : VBA 異なる文字
投稿者 : さんこう     投稿日時 : 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

[返信 4] Re : VBA 異なる文字
投稿者 : サム     投稿日時 : 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

[返信 5] Re : VBA 異なる文字
投稿者 : てらてら     投稿日時 : 2022/06/22(Wed) 15:28:22
  If total = Range("J43") Then
   MsgBox "合計は" & total & "で合ってます。印刷しましょう!"
   Activesheet.PrintOut
  Else
   MsgBox "合計が違います。" & total & "<>" & Range("J43")
  End If

としてください。

[返信 6] Re : VBA 異なる文字
投稿者 : サム     投稿日時 : 2022/06/22(Wed) 16:09:34
ありがとうございます!無事に完成しました。

[返信 7] Re : VBA 異なる文字
投稿者 : サム     投稿日時 : 2022/06/22(Wed) 16:10:17
解決済みにします。

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 12:39:14 )

Page
Top