エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
選択範囲に連番を振る - OysterField
選択範囲に連番を振ります。 最初のセルが空白なら1から、値が入ってるときはその値から連番になります... 選択範囲に連番を振ります。 最初のセルが空白なら1から、値が入ってるときはその値から連番になります。 PERSONAL.XLSBにいれておいて、「リボンのカスタマイズ」でリボンに表示しておくと便利で、一番使ってるかもと思うくらい使ってます。 Sub 連番() Dim MsgRtn As Long 'メッセージボックスの返り値 Dim i As Long Dim c As Variant '開始メッセージ MsgRtn = MsgBox("選択されているセル範囲に連番を付与します。" & vbCrLf & vbCrLf & _ "※開始セルに数値が入っていればその値からの連番になります。" & vbCrLf _ , vbYesNo + vbInformation) If MsgRtn <> vbYes Then Exit Sub '初期値設定 Set