EXCEL 置換について

質問

教えてください。
日報を作るため、外部ファイルを参照した数式を使ったファイルを作成しました。（日報フォルダの中に個人名ファイルと月間集計ファイルがあります。月間集計ファイルから個人名ファイルを参照しています。）

１．月間集計ファイルを開くと「このブックには、安全でない可能性のある外部ソースが1つ以上含まれています。」とメッセージが表示されます。
リンクの編集から値の更新を選択し、ＯＫ表示がされても、次回は必ず不明になります。
起動時の確認で「メッセージを表示しないで、リンクの自動更新を行う」にすれば表辞されなくなりますが、気になります。
２．職場で使用したいのですが、セキュリティーのためファイルを無害化するサイトを通してからパソコンに入れるのですが、外部リンクがある数式は削除されてしまいます。
そこで数式をいったん文字列（＝を’＝に）置換し、それをまた数式に戻すために’＝を＝に置換をかけたのですが、一致するデータが見つかりませんとなり置換することができません。
文字列を数式に置換するにはどうすればできるでしょうか。
以上ご存じの方がいらっしゃいましたら、お教えください。

回答No.3

HohoPapa · ベストアンサー

タブ区切りのテキストファイルに書き出し
このテキストファイルを上書きする対応はいかがでしょうか。

具体的には以下です。

・有効なセル範囲を選択し、右クリックしてコピー
・メモ帳を開き、メモ帳に貼り付け
・メモ帳に貼り付けたテキスト全体を選択し、右クリックしてコピー
・有効なセル範囲を選択し、テキストを貼り付ける

お礼

ありがとうございました。
解決いたしました。
置換にとらわれていて、簡単なことのようで奥が深いですね。
柔軟に考えないと。

回答No.2

imogasi

特殊な問題で、十分経験を積んでない者＝小生の回答例ですが
参考にして、自己責任で、考えてください。
ーー
アクチブにしている１シート分で
Range("A1:G50")は適当に広げてください。
Msgboxの行は、用済み後、省いてください。
標準モジュールに
Sub test01()
For Each cl In Range("A1:G50")
If cl.HasFormula = True Then
MsgBox cl.Address
cl.Value = "'" & cl.Formula
End If
Next
End Sub
これで式が文字列になります。
ーー
数式に戻すのは
Sub test02()
For Each cl In Range("A1:G50")
If Left(cl, 1) = "=" Then
MsgBox cl.Value
cl.Formula = "=" & Right(cl.Value, Len(cl.Value) - 1)
End If
Next
End Sub
先頭のアポストトフィはないものと考えてよいようです。
これは、LOTUS由来の「接頭辞」。
参考　Googleで「エクセル 先頭のアポストトフィ」で照会
ーー
小数でしかテストしてないので、
十分テストなどして、納得すれば使ってください。小生は使用実経験なし。
ーー
　参考　別件で小生は、２０年前に、質問の一部が似た例で、回答してました。
https://oshiete.goo.ne.jp/qa/402130.html

お礼

ありがとうございました。

補足

お返事ありがとうございました。
残念ながらマクロも使用できないんです。
なので計算式が複雑で、入力し直し辛い状態です。

回答No.1

hiro_1116

１．について「気になります」と書かれていますが、ご質問は何でしょうか？「メッセージを表示しないで、リンクの自動更新を行うにすれば表示されなくなります」という解決策はご自身で既に見出されているようですが。

２．会社のPCにファイルを入れてから、式の部分を（そのPCでExcelを起動して）入力するのではダメでしょうか？

お礼

ありがとうございました。

補足

早速の回答ありがとうございます。
1 に関しては見えなくするだけで良いのか？ということです。
２に関しては
非常にたくさんのファイル数式があり手入力は難しい事。
私はシステムを作るだけで、運用は別の部署という事で使用現場には行けない。
この二点のハードルがあるため置換と思ったわけです。