某プログラマのメモ帳

VBAを使ってるとよく、R1C1とA1形式を切り替えたくなるんだけど、
しかし、この切り替え、普通だとメニューのオプションからしかできない。



変えたくなるたびに、オプション出して・・・ってやるのが煩わしいので、
VBAを使ってボタン一発でできるようにしたいと思う。
（本当はもっと楽なやり方があるのかもしれないけど見つからなかった）

まず、空のExcelを開く。


VBE（ALT+F11）を開き、新規モジュールを追加。


そのモジュールに下記のマクロを記述する。

Public Sub ChangeReferenceStyle()

    If Application.ReferenceStyle = xlA1 Then
        ' A1 式だった場合は、R1C1式へ
        Application.ReferenceStyle = xlR1C1
        
    Else
        ' R1C1 式だった場合は、A1式へ
        Application.ReferenceStyle = xlA1
        
    End If

End Sub

そして、F8でデバッグしながら、関数が動くたびに、A1とR1C1が交互に入れ替わるのを確認する。

これが

関数が動くとこうなる。次に動くとまた戻る・・・。


できたらプロジェクトのプロパティからパスワードを設定する。

プロジェクトを表示用・・・にチェックをしてパスワードを入力する。（パスは何でもいい）


パスワードはかけなくてもいいけど、かけとかないとVBE開くたびにこのプロジェクトが開いて面倒くさいので。
パスワードをかけてない場合（開いてる）

パスワードをかけた場合（閉じてる）


ここまでできたらこのファイルをアドインとして保存する。
（パスはアドインを選択したら勝手にアドイン用のフォルダに変わるので変更する必要なし）


Excelのオプションからアドインを選択して設定を押す。



さっき作ったアドインにチェックを入れる。


クイックアクセスツールバーからその他のコマンドを選択して、


マクロのタブからChangeReferenceStyleを選択して追加したら完了。


ボタンを押すたびに、A1とR1C1が切り替わる。やったね。

テーマ : プログラミング
ジャンル : コンピュータ