- ベストアンサー
エクセルのマクロで番号を入力する方法
- エクセルのマクロを使用して、簡単に番号を入力する方法を紹介します。
- マクロを組むことで、ボタンを押すたびに自動的に番号が増えていく仕組みを作ることができます。
- 具体的なコードの例も記載していますので、参考にしてください。
- cloverstar
- お礼率84% (11/13)
- オフィス系ソフト
- 回答数5
- ありがとう数5
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- keithin
- ベストアンサー率66% (5278/7941)
＞データシートを６万件以上蓄積するのであれば そういう使い方をすると、真面目に考えて質問しているのですか？ それならもっとややこしくして sub macro1r1() worksheets("データ").cells(rows.count, "A").end(xlup).offset(1).formular1c1 = "=SUM(R[-1]C,1)" worksheets("入力").range("B2").value = worksheets("データ").cells(rows.count, "A").end(xlup).value end sub とでもしておきます。 何も考えてないけど思い付きでちょっと聞いてみただけなら、余計な事をお話ししちゃいましたね。ごめんなさい。
お礼
ご回答ありがとうございます。 ６万件以上にはならないと思います…。すみません…。 マクロをやり始めたら面白くて興味があっただけなのです…。
- WindFaller
- ベストアンサー率57% (465/803)
#2の回答者です。 >データシートのA2から記録をつける場合はどこをどう直せばいいのでしょうか？ 失礼しました。そういう目的だと思わなかったのですから。 こちらのコードは、ワークシートの最終行までを入れられますが、一杯になった時は、メッセージが出ます。 ただ、まだご質問の意図する所が分かっていないかもしれません。 '// Sub Macro4() Dim i As Long Worksheets("入力").Activate '入力シートをアクティブ If Worksheets("データ").Cells(Rows.Count, 1).Value <> "" Then MsgBox "データが一杯です", vbExclamation Exit Sub End If With Worksheets("データ").Cells(Rows.Count, 1).End(xlUp) If .Value = "" Then i = 1: .Offset(1).Value = i Else i = .Offset(1).Row - 1 .Offset(1).Value = i End If MsgBox "次の受付番号→ " & i .Range("B2").Value = i End With Cells(2, 2).Value = i End Sub
お礼
ありがとうございます！ 先ほど入れてみたところ、無事にできました！ ワークシートの最終業までいれるということはおそらくないと思います。 申し込み表を一覧表にして記録しようと思ったのです。 今回はデータシートのA2から記録できればよかったのですが、今回のようにA2からやA3から記録できるようにするにはどこを直せばいいのでしょうか？ マクロは始めたばかりでよくわからなくて…。 おすすめの参考書などがありましたら一緒に教えていただければ嬉しいです。
- WindFaller
- ベストアンサー率57% (465/803)
>ボタンを押すと「１」「２」「３」…と入力できるようにしたいのですが、 これは、データシートのA1から記録をつけ始めるようにしたものです。 '// Sub Macro4r() Dim i As Long Worksheets("入力").Activate '入力シートをアクティブ With Worksheets("データ").Cells(Rows.Count, 1).End(xlUp) If .Value = "" Then i = 1: .Value = i Else i = .Offset(1).Row .Offset(1).Value = i End If MsgBox "次の受付番号→ " & i End With Cells(2, 2).Value = i End Sub 容易に数字を変えられないようにするためには、別に、カスタムドキュメント・プロパティを使う方法もあります。
お礼
ご回答ありがとうございます。 ボタンを押すと「１」「２」「３」…となったのですが、 データシートのA2から記録をつける場合はどこをどう直せばいいのでしょうか？
- keithin
- ベストアンサー率66% (5278/7941)
ＡＬＴ＋Ｆ１１を押す 挿入メニューから標準モジュールを挿入する 現れたシートに下記をコピー貼り付ける sub macro1() worksheets("データ").range("A65536").end(xlup).offset(1).formular1c1 = "=SUM(R[-1]C,1)" worksheets("入力").range("B2").value = worksheets("データ").range("A65536").end(xlup).value end sub ファイルメニューから終了してエクセルに戻る シートにオートシェイプの図形を１個配置、右クリックしてマクロの登録で今登録したマクロを取り付ける。 ＃参考 データシートに６万件をもっと超える多数のデータを蓄積するホントに予定があるなら、「Ａ６５５３６」の部分はもちろんずっと沢山下から開始します。
お礼
ご回答ありがとうございます。 試して見たところ無事にできました。 データシートを６万件以上蓄積するのであれば、A65536の部分をA７００００などにすればいいのでしょうか？
お礼
何度も回答ありがとうございます。 まだ始めたばかりでわからないことが多く、何をどう変えればいいのか、うまく動作しないのはどうしてなのかもわからない状態です。 教えて頂いた本を参考にしながら、試行錯誤して勉強していきたいと思います。