こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル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

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

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

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

投稿日時 - 2007-09-09 12:00:38

QNo.3329222

暇なときに回答ください

質問者が選んだベストアンサー

これでどうでしょうか?

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

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

投稿日時 - 2007-09-09 12:56:51

お礼

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

投稿日時 - 2007-09-09 18:13:27

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問