マクロ初心者です。

質問

マクロ初心者です。

エクセルを使用中に、現在の参照形式がA1形式であればR1C形式に、現在の参照形式がR1C1であればA1形式に切替えれないかマクロを作成しています。
現在の参照形式がA1形式とR1C1形式のいずれになっているかを取得する方法（以下マクロの条件部分）がありましたら教えて下さい。

イメージ
　　Sub 参照形式の切替()

　　If 条件1（現在の参照形式がA1形式） Then
　　 Application.ReferenceStyle = xlR1C1
　　ElseIf 条件2（現在の参照形式がR1C1形式） Then
　　Application.ReferenceStyle = xlA1
　　End If

　　End Sub

回答No.1

MackyNo1 · ベストアンサー

こういうことですか？

If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
Else
Application.ReferenceStyle = xlR1C1
End If

お礼

早速の回答ありがとうございました。
回答のマクロで動作しました。
こんなに簡単な条件だとは驚きでした。
基礎から勉強し直してみます。

回答No.2

imogasi

こういうことを考えるニーズがよく判から無い。A1参照形式に統一してはどうですか。
ーー
http://officetanaka.net/excel/vba/tips/tips117.htm
にはApplication.ConvertFormula(Fo・・　というのも載ってます。
参考に。
ーーー
質問のことだけなら、下記をやってみれば、納得するのでは？質問になりにくいことと思うが。
Sub test01()
MsgBox Application.ReferenceStyle
If Application.ReferenceStyle = xlA1 Then
Application.ReferenceStyle = xlR1C1
Else
Application.ReferenceStyle = xlA1
End If
MsgBox Application.ReferenceStyle
End Sub

お礼

回答ありがとうございました。できるだけA1形式に統一させたいのですが、マクロの勉強不足のためマクロを作成する時にどうしてもR1C1形式を使うので簡単に切り替えしたいと思っていました。