[[20240413184144]]　『入金管理表』（カイ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『入金管理表』（カイ）

こんにちは。

医療系の職場で事務長をしています。

エクセルの表で、左側に保険者に提出した書類の金額を入力して、

右側に入金された金額を入力する、エクセルの表を使っています。

保険者からの入金表を見て、パートさんに右側のデータを入力してもらってますが、
左側が23620円　右側が32620円などと入力していて、とても間違いが多いです。

左側の金額と違う金額を右側に入力した場合はエラーメッセージなどが出るようにしたいのですが、どうすればよろしいでしょうか？

場合によっては、違う金額を入力しなくてはいけない場合もあるので、
違う金額でも入力できるようにしたいです。

ご教授よろしくお願いいたします。

カイ

＜使用 Excel：unknown、使用 OS：Windows11 ＞

条件付き書式で、左側のセルと右側のセルが違ったら色を塗るとか
にすればいいんでない
（unknown） 2024/04/13(土) 20:19:20

unknown様

回答いただきまして、ありがとうございました。

条件付き書式を初めて知りました!(^^)!

具体的な計算式を教えていただけますでしょうか。

条件付き書式ルールの管理に入れる数式ですが、

Bの行がAの行と違う数字が入力された場合は、ピンクになる。
という数式にしたいのですが、、。

恐れ入ります。

（カイ） 2024/04/14(日) 06:39:19

=B1<>A1

かな。。。^^;
違ってたらごめんなさいm(__)m
（隠居Z） 2024/04/14(日) 11:00:13

やってみたいと思います。
ありがとうございました!(^^)!
（カイ） 2024/04/14(日) 20:52:25

こんばんわ～。。。＾＾。。。^^;
標準モジュール　　Module1 　にコピペ

 Option Explicit
Sub OneInstanceMain(ByVal wS As Worksheet, ByVal tr As Range)
    Dim i As Long
    Dim r As Range
    Dim lra As Long
    Dim lrb As Long
    Dim lr As Long
    Dim av As Variant
    Dim bv As Variant
    With wS
        lra = .Cells(.Rows.Count, 1).End(xlUp).Row
        lrb = .Cells(.Rows.Count, 2).End(xlUp).Row
        lr = Application.Max(Array(lra, lrb))
        Set r = .Range(.Cells(1), .Cells(lr, 2))
        r.Interior.ColorIndex = 0
        Rem 38 桃色
        For i = 1 To r.Rows.Count
            Set av = r(i, 1)
            Set bv = r(i, 2)
            With Application
                If av <> "" And .IsNumber(av) And bv <> "" And .IsNumber(bv) Then
                    If av <> bv Then
                        wS.Range(av, bv).Interior.ColorIndex = 38
                    End If
                End If
            End With
        Next
    End With
End Sub

当該のシートモジュールにコピペ（例）　→　　Sheet1　

 Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Me.Range("A:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
         Module1.OneInstanceMain Me, Target
    Application.EnableEvents = True
End Sub

vba案です。。。私、数式はとんと苦手でして。。。(￣▽￣；)
条件付き書式をご希望の場合は引き続き他の回答者様の
お出ましをお待ちくださいませ。←今日は日曜日でお休みの
先生が多数おられると思いますです。(*^^*)///
すみませんでしたm(__)m
（隠居Z） 2024/04/14(日) 22:42:55

↑　すみません　先にボタンポチ。バージョンを作り、あとから強引に
シートのチェンジイベントから呼び出しに替えたため使わない幽霊変数を
渡しています。動作に影響はないと思いますけど、お目ざわりでしたら
消してくださいませ。。。とほほ。。。又やってしまった
m(__)mm(__)mm(__)m
（隠居Z） 2024/04/14(日) 22:51:47

隠居Z様
わー凄すぎますね！ありがとうございます。使いこなせるかわかりませんが、使わせていただきたいと思います(=^・^=)
お忙しいところ恐れ入りますm(__)m
（カイ） 2024/04/15(月) 15:42:18

コメント返信：

[ 一覧(最新更新順) ]

[[20240413184144]] 『入金管理表』（カイ） ページの最後に飛ぶ

[[20240413184144]]　『入金管理表』（カイ）　ページの最後に飛ぶ