エクセルVBA

質問

Sub 金額未記入のセルをカウント()
Dim kensu As Long

Range("I100").End(xlUp).Select 'リストの最終行を、上方向に向けて指定する

Selection.Offset(0, 1).Select '上で指定したセルの、右の列のセルを指定する

Selection.Font.Bold = True '選択しているセル範囲の文字を太字にする

Range(ActiveCell, "J4").Select '最後のセルから上までの範囲を選択する

ActiveWorkbook.Names.Add Name:="kingaku", RefersToR1C1:=Selection
'金額の範囲に名前をつける

Range("I1").FormulaR1C1 = "=COUNTBLANK(kingaku)" 'セルI1に式を代入する

End Sub

経常費ファイルについての質問です。
月ごとに、ワークシートがあり、品名、個数のあとに、総額を入れています。
個数は最初からデータが入っているため、総額のところが未記入だと、まだ
品物が入荷していない、と、わかるように工夫しました。

上記のマクロで、各ワークシートごとには、未記入セルの個数を表示できるのですが、
違う月のワークシートでも、その数字が表記されてしまいます。
そこで、マクロを実行するボタンを押すと、その月の未記入セルの個数を出すことは
できるのですが、
ワークシートごとに、そのワークシートにあった数字を表記できたままにするには、
どうしたらよろしいでしょうか。

わかりにくい質問で、申し訳ありませんが、よろしくお願いします。

回答No.1

ka_na_de · ベストアンサー

これでどうでしょうか？

希望の結果と違ったら教えてください。

Sub test()
　Dim LastRow_I As Long
　LastRow_I = Cells(Rows.Count, "I").End(xlUp).Row
　Cells(LastRow_I, "J").Font.Bold = True
　Range("I1").Formula = "=COUNTBLANK(J4:j" & LastRow_I & ")"
End Sub

お礼

このとおりに実行してみましたら、希望どおりに、ワークシートごとに
表示したい数が出るようになりました。
初めての質問だったのですが、こんなに早くに回答いただき感激です。
どうもありがとうございました！