絶対参照を絶対参照に変換するには?
キーワード>>数式・変換・ConvertFormula
Point:ある範囲に絶対参照で数式が入力されている。それを相対参照に一括で変換したい。
Sub Test()
Dim myCell As Range
For Each myCell In Selection
If myCell.HasFormula Then
myCell.Formula = Application. _
ConvertFormula(Formula:=myCell.Formula, _
FromReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
End If
Next
End Sub
その他の参照形式(黄色い部分を下記のように変更)
行列絶対参照
xlAbsolute
行のみ絶対参照 xlAbsRowRelColumn
列のみ絶対参照 xlRelRowAbsColumn |
掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。
|