HOME>TOP>セル

絶対参照を絶対参照に変換するには?


キーワード>>数式・変換・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 


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。