[[20040930151103]]　『計算式が消えないようにしたい』（はる）　ページの最後に飛ぶ

『計算式が消えないようにしたい』（はる）

計算式をいれてあるセルで、計算された数字をDeleteすると
計算式も消えてしまいます。

計算式を保護する方法を教えていただけますでしょうか？

 ツール　→　保護　→　シートの保護　でどうですか？

 セルの書式設定からロックを解除しておけば保護をかけても
 解除されたセルは編集可能なので
 書式の入ったセルだけを編集不可にすることが可能ですが・・・
 (Null)

 この質問は以下のようなことだと思いましたけど・・・
    A       B      C
 1  10     10     100 ←=A1*B1　
 このC1の100を消しても、式は残したい・・・＿/￣|○ il||liムリ
 （川野鮎太郎）

Null様、川野様、早速教えていただいて、どうもありがとうございます！
保護できました♪
（はる）

 おっおっおっぅ　＿|￣|○
 そういうことですか・・・
 えーっと　無理です｡

 Sub 復活の呪文()
 　　　Range("???").フォーミラー　=　式
 End Sub
 または
 デリートを押したときにそのセルが数式ならばフォント色を白くするとか・・・

 フォーミラー　←　スペルが・・・
 こういうのってありですか？
 (Null)

 formula

  (INA)

 てか、出来ましたって・・・・＿/￣|○ il||li
 保護のことだったのね(;^_^A アセアセ
 （川野鮎太郎）

 (INA)さんありがとうございます。
 ってっここ俺のたてたスレじゃない・・・Σ

 (はる)さん　ごめんなさい
 (Null)

川野様、復活の呪文教えていただいてありがとうございます！

ですが初心者の私には使いこなせそうにないです・・・。
ごめんなさい。これからもっと勉強します！

ところで、保護をかけたシートというのは、予算管理表でして

部内で必要な人に使ってもらおうと思い、フォーマットを作成しております。

そのために計算式を保護したかったのですが、シートが保護されていると

計算式が入っている行はコピーができないのです。（削除はできます）

計算式は保護しつつ、行をコピーして増やす方法があるようでしたら

教えて頂きたいです。
よろしくお願いします。
（はる）

 呪文は私じゃないし＿/￣|○ il||li
 挿入できるように、Nullさんにおまじないをしてもらいましょう＾＾
 （川野鮎太郎）

 Private Sub Worksheet_Change(ByVal Target As Range)
 If Not t.Addre = "" Then
 If Range(t.Addre).Formula = "" Then
    Range(t.Addre).Formula = t.text
 End If
 End If
 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 t.text = ""
 t.Addre = ""
 If Mid(ActiveCell.Formula, 1, 1) = "=" Then
     t.text = ActiveCell.Formula
     t.Addre = ActiveCell.Address
 End If
 End Sub

 Type test
    Addre As String
    text As String
 End Type
 Public t As test

 (川野)さん　ひどい；；

 えーっと　復活の呪文というよりは呪いです
 単体で選択しているときのみ数式はデリートでは消せません。
 複数選択すると消えてしまいます。
 コピーは可能です。
 保護は使いません。
 行または列で選択するとエラーになります。

 こんな感じの呪文を煮詰めていけばそのうち
 求めるものになっていくのではないでしょうか？

 こんな感じじゃだめですか・・・？

 (Null)

Null様、ありがとうございます。マクロ初心者ですので

試行錯誤してみます！

そして、最初の呪文を教えてくださったのもNull様だったのですね。

川野様と勘違いしてしまって、ごめんなさい！

どうもありがとうございました！
（はる）

コメント返信：

[ 一覧(最新更新順) ]

[[20040930151103]] 『計算式が消えないようにしたい』（はる） ページの最後に飛ぶ

[[20040930151103]]　『計算式が消えないようにしたい』（はる）　ページの最後に飛ぶ