質問: エクセル マクロ 絶対値を付加して貼り付け もしくは複数のセルないのセル番地に一括して絶対値を付加 こんにちは エクセル2010を使っています。 複数のセルを一括して貼りつける場合にその数式に含まれるセル番地に一括して絶対値を付与して貼りつける方法はありますか? もしくは、元セルのセルに含まれるセル番地に一括して絶対値を付与する方法でも構いません。 詳しい方、よろしくお願いいたします。
回答: 以下の様な物はいかがでしょうか?選択されている部分を変更します。 sub 絶対参照へ変換() dim セル as range for each セル in selection if セル.hasformula then セル.formulalocal = application.convertformula(セル.formulalocal, xla1, xla1, xlabsolute) end if next end sub ※「xlabsolute」を以下のように変更すると次のように出来ます。 「xlrelative」にすると、相対参照になります。 「xlabsrowrelcolumn」にすると、行は絶対参照、列は相対参照になります。 「xlrelrowabscolumn」にすると、行は相対参照、列は絶対参照になります。