Replace はあまり使用しないので、すぐに記述の仕方を忘れてしまいます・・・
でも、「Replaceを使えるかな?」 ってときは結構あります。
なので、サンプルとして Address を使用して 備忘録的に。
******************
Address
Sub アドレス()
’指定したセル番地を取得
MsgBox Selection.Address
End Sub
$K$9 と絶対値で取得(表示)されます。
絶対値の表示は見慣れないので、変な感じがします・・・
そこで、Replace を使って「$」を削除してしまいます。
**********
Replace
Replace(対象の文字列、検索する文字列、置換する文字列)
Sub リプレイス()
’指定した文字列から、指定した文字列を、指定した文字列に置換する
MsgBox Replace(Selection.Address, "$", "")
End Sub
上記のサンプルの場合は、
1.選択されているセルのアドレスから、
2.「$」を検索して、
3.削除する
になります。
_/_/_/_/_/_/_/_/_/_/_/
個人用マクロブックについてはこちら
リボンに登録についてはこちら
_/_/_/_/_/_/_/_/_/_/_/_/_/_/
こちらもチェックしてみてください。