Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27606 / 76732

←次へ　｜　前へ→


	【54444】行や列の挿入後の処理

JuJu - 08/3/13(木) 12:09 -


	引用なし

	パスワード

行挿入した時に、自動的に表のNo.(1,2,3,…)をrenumberする方法はありませんか？

行挿入イベントがあればそこで処理してしまえば良いのですが、該当イベントは見つける事ができませんでした。

今思いついている方法です、

　1. 表のNo.のエリアに名前(No)を定義してする
　2. 表のNo.はワークシート関数(ROW等)を使って表示する
　3. 数式で参照されているセルに行挿入するとCalculateイベントが発生するので、
　　イベント内で挿入行を検索し数式を書き込む

Private Const FORMULA_TABLE_NO = "=ROW(RC)-ROW(No)+1"
Private WithEvents TargetWorksheet As Worksheet

Private Sub TargetWorksheet_Calculate()
　　With TargetWorksheet
　　　　If Not .Range("No").Find("") Is Nothing Then
　　　　　　.Range("No").FormulaR1C1 = FORMULA_TABLE_NO
　　　　End If
　　End With
End Sub

を検討中ですが、できれば数式を使わずに処理できないかと考えています。

0 hits

▼

【54444】行や列の挿入後の処理 JuJu 08/3/13(木) 12:09

≪