[[20040906155907]]　『絶対参照で…』（あけじお）　ページの最後に飛ぶ

『絶対参照で…』（あけじお）

はじめまして。今日はじめて質問させて頂きます。
早速ですが、１というシートでセルＡ１、Ｍ３、２というシートでセルＢ２、Ｎ５がそれぞれ別のシートに既にリンクされているのですが、絶対参照でのリンクではないのです。元々リンクされているセルを裏技を使って全て絶対参照にする方法はないのでしょうか？やはり最初からリンクし直さないといけないのでしょうか？かなりの量があるので、一気に出来ないものかと迷っております。良い方法はありませんでしょうか？

 何個のセルで行うのかわかりませんが（2箇所だけですか？）、
 セルを選択し、編集モードで、カーソルを、変更したいセルナンバーに合わせ、
 Ｆ４キーを押せば良いのではないのでしょうか。
 （Ａ１→＄Ａ＄１→Ａ＄１→＄Ａ１→Ａ１と変化していくと思います。）（Σ）

（あけじお）
Σさん、回答ありがとうございす。2箇所だけですか？と言う事ですが、１つのファイルに
シートが２０こ位作ってあり、その中でリンクさせてあるセルがかなり沢山あるのです。
１つづつＦ４キーを押していくのに時間がかかるので、リンクされてあるセルを
一気に絶対参照に変更する事はやはり無理なのでしょうか？

 検索―置換でできないものであれば、以下のようなマクロになると思いますが、

 Sub replaceStyle()
     Dim myCell As Range
     For Each myCell In Selection
         If myCell.HasFormula Then
             myCell.Formula = Application. _
             ConvertFormula(Formula:=myCell.Formula, _
             fromReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
         End If
     Next
 End Sub

 変更したいセルを選択し、上記のマクロを実行してできませんでしょうか？（Σ）

Σさん、お返事ありがとうございます。検索－置換では出来ないようです。
私がエクセルを理解していないだけなのかも知れませんが。　マクロについてですが
エクセルでのマクロを作った事がないので、どのようにすればよいのか
これから勉強してみようと思います。仕方なく１つづつＦ4キーを押して
地道に作業しました。マクロまで作って頂きありがとうございます。
一応、解決にします。

 あら(^_^;)　もったいないことを・・・
 私は全部の数式を変えることなんて無理だと思ってたのに、
 Σさんのマクロは見事に絶対参照に変換してくれますよ～＾＾
 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20040906155907]] 『絶対参照で…』（あけじお） ページの最後に飛ぶ

[[20040906155907]]　『絶対参照で…』（あけじお）　ページの最後に飛ぶ