[[20150305185806]]　『連番の自動マクロ』（huko）　ページの最後に飛ぶ

『連番の自動マクロ』（huko）

マクロ実行ごとに指定セルに連番をいれるマクロを教えてください。
連番は1000～1999までで、1999を使用したら1000に戻ります。
宜しくお願いします。

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 指定セルとは？
 1000以上のセルをマウスで選択？　
 あるいは、マクロ内で領域をハードコードで指定？

（β） 2015/03/05(木) 19:09

βさんへ

説明不足で申し訳ありません。

イメージはマクロ設定したコマンドボタンを押すたびに、
Ａ1セルに連番が入力

連番は1000から1999までを繰り返し
1999まで終わったら1000に戻る

つたない説明で申し訳ありません。

（huko） 2015/03/05(木) 19:14

 たとえば以下をボタンにマクロ登録。

 Sub test()
    Dim n As Long

    n = Val(Range("A1").Value)

    Select Case n
        Case 0, 1999
            n = 1000
        Case Else
            n = n + 1
    End Select

    Range("A1").Value = n

 End Sub

（β） 2015/03/05(木) 19:32

βさん

ありがとうございます。出来ました！
（huko） 2015/03/05(木) 19:38

コメント返信：