『文字が一致したときのその金額の入力』（愛子）
２００件ほどの売掛金残高表があります。項目は、
販売先名、品名、単価、数量、入金方法（クレジット、又は銀行）、売上金額
等があります。
そこで新たに「入金」の項目を設けます。その欄は、入金方法が銀行の場合に
その売上金額を計上します。
そこで、
Ａ列（後で本当の列に変えます。）は、クレジット又は「銀行」と記載してい
ます。
Ｂ列に売上金額
Ｃ列は、追加の「入金」項目です。Ａ列で「銀行」になっている人のＢの売上
げ金額を記入します。（クレジットの入金は、一週間毎に合計を記入していま
す。）
沢山の件数がありますので、最初に入れた式をいちいち貼り付けをするのは、
時間がかかりますので、マクロでする方法を教えていただけないでしょうか？
よろしくお願い申し上げます。
一例：
Ａ 列 Ｂ列 Ｃ列
銀 行 100 100
クレジット200
銀 行 150 150
＜ 使用 Excel：Excel2016mac、使用 OS：Windows11 ＞
=SUMIF(A2:A200,"銀行",B2:B200) などとすれば、C列を作らなくても銀行の合計は得られます。
# Windows11上で Excel2016macが動くのですか。 （xyz） 2025/05/31(土) 16:08:02
=SUMIF(A2:A200,"銀行",B2:B200) 確かに合計でしたらこの関数で合計がとれますが、私の伝え方が悪かったですが、 １人１人のデータが銀行であればｃ列の欄を設けて、そこにＡ列で銀行扱いの売上げ金額（Ｂ列）を入力したいのです。
よろしくお願い申し上げます。
すみませんでした、Ｅｘｃｅｌ2021でした。
（愛子） 2025/05/31(土) 17:36:08
私の文章不足でｘｙｚの記載に私が勘違いしたことです。失礼しました。
私が次の記載をしなければ、ｘｙｚ様の言うとおりです。
Ａ列に銀行の文字が入っているときにＢ列の金額をＣ列に記入するのですが、
Ｃ列には、売掛金の入金として、銀行の金額とクレジットの金額を合計するのです。
但しクレジットの金額は、一週間に一度まとめての金額を予め別の場所に担当者が記入しています。
私は、４週分として４回Ｃ列に入力します。
その為に銀行の文字が入っているＢ列の金額をＣ列に手で入力するには、沢山あるので
マクロであればマクロボタンをクリックすれば瞬時Ｃ列に入力出来るかと思いました。
どうぞ、よろしくお願い申し上げます。
（愛子） 2025/05/31(土) 18:38:56
額面通り受け止めるなら、
一例が1行目からだとして、C1:C3を選択してから
C1 =IF(A1="銀行",B1,"")
としてCtrl+Enterで確定すれば解決する。
（C1だけに入力して下方向へフィルしても結果は同じ）
マクロを使うまでもないけど、A列は必ず全行に入力があるものとして、
Sub Macro1()
Range("A1").CurrentRegion.Resize(, 1).Offset(, 2).Formula = _
"=IF(A1=""銀行"",B1,"""")"
End Sub
（町中華） 2025/05/31(土) 20:29:18
C1 =IF(A1="銀行",B1,"")の関数で出来ました。
参考に教えていただきたいのですが、c1:c3を選択してからC1 =IF(A1="銀行",B1,"")の式を入れますと
c1:c3の範囲は消えました。次にCtrl+Enterで確定すれば解決する。と有りますが、Ctrl+Enterをしても何の変化も見られないのですが？
マクロを実行するとは、c1だけに数字が入ります。
Ａ列は、全行に入力はありません。月によって３００件、又は２００件になる場合があります。
よろしくお願い申し上げます。
（愛子） 2025/05/31(土) 22:56:25
＞C1 =IF(A1="銀行",B1,"")の関数で出来ました。 ということを踏まえて、以下の返答です。
＞参考に教えていただきたいのですが、c1:c3を選択してからC1 =IF(A1="銀行",B1,"")の式を入れますと c1:c3の範囲は消えました。次にCtrl+Enterで確定すれば解決する。と有りますが、Ctrl+Enterをしても何の変化も見られないのですが？
私の回答に書いてある通りですが。 もう少し、Excelの操作をご自身で習熟されるのが宜しいかと。 「Excel Ctrl+Enter」というキーワードでGoogle検索すると、 参考になるページがヒットします。
＞マクロを実行するとは、c1だけに数字が入ります。 ＞Ａ列は、全行に入力はありません。月によって３００件、又は２００件になる場合があります。
最初の質問文に ＞Ａ列（後で本当の列に変えます。）は、クレジット又は「銀行」と記載してい ます。 とありますので、A列には「クレジット」又は「銀行」のどちらかが必ず入力されているものと判断しました。 A列に切れ目なく、クレジット or 銀行とデータがあれば、 CurrentRegionで対象範囲を得られます。 条件を後出しされても対応するつもりはありません。
私はこれで失礼します。 （町中華） 2025/06/01(日) 06:07:28
エクセルクを熟知しなければいけませんね。その通りですが、なかなか
出来ないのが実状です。
「Excel Ctrl+Enter」というキーワードでGoogle検索すると、
参考になるページがヒットします。
検索します。有難うございました。
〉A列は必ず全行に入力があるものとして。
全行といわれたので、A列は、最終迄行(落ち着いて考えて見れば最終行迄使うなんてあるわけないのに、私が入力した全ての行だと思いました。)は、ありません。と言いたかったので、月に２００件(質問の最初に記載しましたが。)３００件あります。と記しました。それが、
後だしということですか？後だしがわかりません。
（愛子） 2025/06/01(日) 07:38:57
質問は、気をつけて配慮していきます。
ご迷惑をかけてすみませんでした。
（愛子） 2025/06/01(日) 10:14:37
そんなに気を使わなければならない展開とは思えないけどなぁ・・
＞c1:c3を選択してからC1 =IF(A1="銀行",B1,"")の式を入れますとc1:c3の範囲は消えました。 ＞次にCtrl+Enterで確定すれば解決する。と有りますが、Ctrl+Enterをしても何の変化も見られないのですが？
数式を入れようとしてC1セルを選択すれば、c1:c3の選択状況は消えます。 なのでこの場合、数式は数式ボックスに入れて、Ctrl+Enterするとかの対応になります。 しかしそんなことは、質問者は知らないことが多いので、 私だったら、無理もない展開になっているなぁ・・と思っちゃいますけどね。
後出というのは、例えば A列に切れ目なく、クレジット or 銀行とデータがある、という推測でマクロにしたが、 「実は切れ目があります。切れ目より下の範囲が処理されないのですが、どうしたらいいでしょうか？」 という様な展開になっても追加の対応はしないよ、という事でしょう。
ま、その程度なら他の回答者が後を継いでくれるので、立往生することはないでしょう。 気を使いすぎて、質問を躊躇して仕事が先に進まなかったらもっとまずいと思うけどなぁ。
（半平太） 2025/06/01(日) 12:21:54
＞数式は数式ボックスに入れて、Ctrl+Enterするとかの対応になります。
勉強になりました。
＞ 後出というのは、例えばＡ列に切れ目なく・・・・追加の対応は、しませんよというような事ですね。
分かりました。真面目に考えれば 文字の入力は必要なので漏れが解ったので入力してマクロを走らせたら
上手くいきました。切れ目があったらどうしたら良いでしょうかと聞くより、切れ目を気づけば
漏れを入力するだけでした。
そうですね、肝心な仕事が先に進まなかったらもっとまずいと思いますね。同感です。
対応していただいた皆様、本当に有り難うございました。
（愛子） 2025/06/01(日) 19:00:23
＞Ｅｘｃｅｌ2021でした。 2021ならスピルしますよね。
2行目からだとして、 C2セルに =IF(A2:A200="銀行",B2:B200,"") と入れるだけでできるのでは？
C3:C200に何か入力されているとエラーになるので、 消しておくこと。
＞私は、４週分として４回Ｃ列に入力します。 C列のどこに入力するんですか？ C2:C200のどこかなら、エラーになっちゃいますけどね。 （TI） 2025/06/01(日) 21:14:12
あとは自分自身に値貼り付けすればいいだけです。 (Ctrl+Shift + ↓で全体を選択して、コピーして値貼り付け） 式は、頭に'をつけて、どこかに保持しておけば何時でも引っ張り出して再生できる。
（IT） 2025/06/01(日) 21:26:49
＞（IT） 2025/06/01(日) 21:26:49 全く関係のない別人です。 （TI） 2025/06/01(日) 22:03:16
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.