ExcelのＶＢＡで自動採番したいのですが

Excel2003のＶＢＡを利用して、例えばコマンドボタンを押した時に、下記のＣ６の●部分にＣ列の最大数を検索して自動的に「５」を採番(max+1)入力したいのです。
ただしＣ２の様に途中に虫食いで空欄があり、またその空欄に後日数字が入る可能性もあります。（Ｃ列は多くても４０列程度）
数が多くなると採番ミスの恐れがあり、自動化したいのでよろしくお願いいたします。

　｜Ａ｜Ｂ｜Ｃ｜Ｄ
１｜X｜テ｜１｜
２｜Ｌ｜ス｜　｜
３｜V｜レ｜３｜
４｜Ｙ｜フ｜４｜
５｜N｜モ｜２｜
６｜S｜シ｜●｜
７｜

No.2 ベストアンサー 回答者： mshr1962 回答日時： 2011/11/18 12:43

選択した行でいいなら

Sub ボタン1_Click()
Dim RG As Range
Set RG = ActiveCell
Range("C" & RG.Row) = Application.WorksheetFunction.Max(Range("C:C")) + 1
End Sub

この回答へのお礼

ありがとうございました。
思っていた通りに出来ました。
他の方のご回答でも処理できましたが、ご回答順でベストアンサーにさせて頂きました。またよろしくお願いいたします。

お礼日時：2011/11/21 12:04

No.5 回答者： CoalTar 回答日時： 2011/11/18 18:11

こんな感じかなあ

Sub test()
　　 If Cells(ActiveCell.Row, 3) = "" Then _
　　 Cells(ActiveCell.Row, 3) = WorksheetFunction.Max(Range("C:C")) + 1
End Sub
ボタンや図形を配置して 右クリック マクロの登録

この回答へのお礼

ありがとうございました。
思っていた通りに出来ました。
他の方のご回答でも処理できましたので、今回は回答順で他の方をベストアンサーにさせて頂きました。またよろしくお願いいたします。

お礼日時：2011/11/21 12:02

No.4 回答者： f_a_007 回答日時： 2011/11/18 13:47

Q、ExcelのＶＢＡで自動採番したいのですが・・・

A、単純に最後の番号を控えて置いてプラス１で！

＞Ｃ列の最大数を検索して自動的に「５」を採番(max+1)入力・・・

そんなやり方では上手くいかないのでは・・・。
ここは、セオリー通りに＜最後の番号を控えて置いてプラス１＞。

この回答へのお礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。

お礼日時：2011/11/21 11:43

No.3 回答者： mu2011 回答日時： 2011/11/18 12:59

本質問では番号入力の契機が曖昧です。

自動化ならわざわざマクロで組み込まなくても普通に関数の方が簡単だと思う。

例えば、対象範囲に=IF(入力条件,MAX(対象範囲)+１,"")を設定しておけば
よいと思われるが如何でしょうか。

この回答へのお礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。

お礼日時：2011/11/21 11:43

No.1 回答者： keithin 回答日時： 2011/11/18 12:04

マクロを実行したとき，具体的にどこが●のセルだと，どうやって判るようになっているのでしょうか。

作成例：
sub macro1()
range("C" & range("A65536").end(xlup).row).formulaR1C1 = "=1+MAX(R1C:R[-1]C)"
end sub

この回答へのお礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。

お礼日時：2011/11/21 11:43