Excel VBA質問箱 IV

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

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


27610 / 76736 ←次へ | 前へ→

【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 質問
【54465】Re:行や列の挿入後の処理 ぽむじぃ 08/3/14(金) 10:55 回答
【54467】Re:行や列の挿入後の処理 VBWASURETA 08/3/14(金) 11:12 回答
【54468】Re:行や列の挿入後の処理 Jaka 08/3/14(金) 11:15 発言
【54470】Re:行や列の挿入後の処理 VBWASURETA 08/3/14(金) 11:24 発言
【54471】Re:行や列の挿入後の処理 Jaka 08/3/14(金) 12:39 発言
【54472】Re:行や列の挿入後の処理 VBWASURETA 08/3/14(金) 13:02 発言
【54473】Re:行や列の挿入後の処理 VBWASURETA 08/3/14(金) 15:00 発言
【54475】Re:行や列の挿入後の処理 ハチ 08/3/14(金) 16:11 発言
【54481】Re:行や列の挿入後の処理 ハチ 08/3/14(金) 19:22 発言
【54533】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 12:01 発言
【54534】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 13:13 回答
【54535】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 13:41 発言
【54536】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 13:50 発言
【54542】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 15:15 発言
【54544】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 15:57 回答
【54482】Re:行や列の挿入後の処理 JuJu 08/3/14(金) 22:25 発言
【54483】Re:行や列の挿入後の処理 VBWASURETA 08/3/14(金) 23:44 発言
【54530】Re:行や列の挿入後の処理 ハチ 08/3/17(月) 10:17 発言
【54545】Re:行や列の挿入後の処理 VBWASURETA 08/3/17(月) 18:22 発言
【54549】Re:行や列の挿入後の処理 VBWASURETA 08/3/18(火) 11:55 発言

27610 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free