No.3ベストアンサー
- 回答日時:
行削除のイベントを取り付けるためには、ボタンにクラス・インスタンスを設けるのですが、そのような方式は大げさすぎて一般的ではありません。
今回は、数式を置くことによって、Calculate イベントが働きますので、1個でも、式が残っていれば、マクロで、数式を振りなおしてくれます。その仕組みは、行を削除すると、数式が、再度計算しなおしますので、その時にイベントが働きます。シートの下のタブを右クリック-コードの表示で、
'シートモジュールに貼り付けてください。
'------------------------------------------------
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
'数式が40個より少なくなったら、
If Range("A2", Range("A65536").End(xlUp)).Count < 40 Then
'A2~A40まで、番号を振りなおし
Range("A2", "A40").FormulaLocal = "=ROW()-1"
End If
Application.EnableEvents = True
End Sub
'------------------------------------------------
No.2
- 回答日時:
行削除のイベントをVBAレベルでは捉えられないと思うので、コマンドボタンをクリックしたとき新たに上行から番号を振りなおすとかですかね。
ROW関数を使った番号なら行削除、行挿入したら自動的に変わってくれます。
上行からの連番でなければ、場合によりますがほほお手上げですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DocuWorksについて教えて頂きた...
-
Googleカレンダーで不要データ...
-
エクセルの「ページ削除」の方...
-
inkscape ガイド線をまとめて消...
-
エクセルの行と列が突然削除で...
-
違う端末からYouTubeのアカウン...
-
Adobe Acrobat Proを使うとPDF...
-
NEXUS7 ギャラリーの画像削除...
-
パソコン画面に変な帯が出た
-
エクセルにて行数と列数を減らす
-
PS2エミュレータの使用はいかな...
-
being のデスクトップ壁紙を完...
-
PDFの編集履歴に関して質問があ...
-
フリーソフトの「schedule watc...
-
シンプルマルウェアプロテクタ...
-
NoteHomepage インストールし ...
-
一太郎
-
Jwordにパソコンを壊された
-
アンドロイドスマホでアッパー...
-
キーボードの真ん中の文字が入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleカレンダーで不要データ...
-
エクセルの「ページ削除」の方...
-
DocuWorksについて教えて頂きた...
-
エクセルの行と列が突然削除で...
-
メッセンジャーで相手に削除さ...
-
iTunes デバイス 曲の削除
-
PDFに引いたマーカーを消したい
-
XPERIA Aの内部ストレージの画...
-
inkscape ガイド線をまとめて消...
-
PS2エミュレータの使用はいかな...
-
フリーソフトの「schedule watc...
-
付箋ソフトの削除ログはどこに...
-
カートの中を空にする方法
-
スリープ状態で勝手に音楽再生...
-
この、ほしい物リストからのお...
-
Excel 指定行削除マクロ
-
オートコンプリートを一部だけ...
-
アドビリーダーアップデート
-
右クリックで「ハイパーリンク...
-
エクセルVBAで自動付番をしたい
おすすめ情報