[[20071219133417]]　『絶対参照に変換方法』（８８８）　ページの最後に飛ぶ

『絶対参照に変換方法』（８８８）
通常数式の値を絶対参照にする場合、参照セルの上にカーソルを置きファンクション４を
押す事により絶対参照に切換わりますが、複数のセルを一度に絶対参照にする方法はないでしょうか？

例

Ａ１　　⇒　　＝ｂ１＋Ｃ１
Ａ２　　⇒　　＝ｂ２＋Ｃ２
Ａ３　　⇒　　＝ｂ３＋Ｃ３

　　　　　を

Ａ１　　⇒　　＝＄ｂ＄１＋＄Ｃ＄１
Ａ２　　⇒　　＝＄ｂ＄２＋＄Ｃ＄２
Ａ３　　⇒　　＝＄ｂ＄３＋＄Ｃ＄３

　　　　　に変える方法

 編集、置換で、
 １．検索する文字列にB、置換え後の文字列に$B$
 ２．検索する文字列にC、置換え後の文字列に$C$
 と２回実行しますと、そのように変更できるともいます。　　　　　(6UP)

コレはあくまで例です
コレだと　ＡＡ・ＢＡ　などのセルは対応できません！！　

 vbaで

 Sub test()
 Dim r As Range
 On Error Resume Next
 For Each r In Selection.SpecialCells(-4123)
    r.Formula=Application.ConvertFormula(r.Formula, xlA1, xlA1, xlAbsolute)
 Next
 End Sub
 (seiya)

有難うございました

 コードを修正しました。
 (seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20071219133417]] 『絶対参照に変換方法』（８８８） ページの最後に飛ぶ

[[20071219133417]]　『絶対参照に変換方法』（８８８）　ページの最後に飛ぶ