Excelのこととか色々

Excel のこととか楽天とか いろいろ書いてみます・・・

【Excel/VBAのこと52】Address と Replace

   f:id:tuna-kichi:20200223230814p:plain

 

Replace はあまり使用しないので、すぐに記述の仕方を忘れてしまいます・・・

でも、「Replaceを使えるかな?」 ってときは結構あります。

なので、サンプルとして Address を使用して 備忘録的に。

 

 

 

******************

Address

Sub アドレス()
    ’指定したセル番地を取得
    MsgBox Selection.Address

End Sub

  address

 

$K$9 と絶対値で取得(表示)されます。


絶対値の表示は見慣れないので、変な感じがします・・・
そこで、Replace を使って「$」を削除してしまいます。

 

**********

Replace

Replace(対象の文字列検索する文字列置換する文字列

 

Sub リプレイス()
    ’指定した文字列から、指定した文字列を、指定した文字列に置換する
    MsgBox Replace(Selection.Address, "$", "")

End Sub

  $を削除したaddress

上記のサンプルの場合は、

1.選択されているセルのアドレスから、
2.「$」を検索して、
3.削除する

 

になります。

 

 

_/_/_/_/_/_/_/_/_/_/_/

 

 

 

個人用マクロブックについてはこちら

リボンに登録についてはこちら

_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 

こちらもチェックしてみてください。

楽天人気商品6選!