エクセル2000で計算式をいれたセルに文字を打つ時

質問

いつもいつも、お世話になっています。
エクセルで数式を入れたセルに文字を打つと数式がDeleteされてしまいます。
数式だけ保護する方法ってないですか？
作った数式はVLOOKUP関数です。
A1のセルに番号をいれるとB1のセルに患者名がでるように設定しました。
B1に患者名を直接入力すると計算式は消えてしまいますよね。。
B1に直接入力しても数式は残せる方法ってありますか？

回答No.10

imogasi

関数式を使わないならば、悩は起こりません。ＶＢＡですが、
E1:F4に氏名テーブルがあるとして
（Ｅ列）　（Ｆ列）
1 吉田
3 大田
4 平田
6 山田
Ａ列に番号（氏名コードのようなもの）を入れると、Ｂ列に氏名が出ます。
2や5や7をＡ列に入れると「表にありません」とでるので
Ｂ列対応行に氏名を打ちこんでください。
Sheet1のChangeイベントとして下記を作ります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
r = Target.Row
c = Target.Column
If c <> 1 Then Exit Sub
x = Worksheets("sheet1").Cells(r, 1)
Set cl = Range("E1:E4").Find(What:=x, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If cl Is Nothing Then
MsgBox "表にありません"
Else
Cells(r, 2) = cl.Offset(0, 1)
End If
End Sub
＜操作＞氏名表を作り、Ｓｈｅｅｔ１の画面状態から
（１）ＡＬＴ＋Ｆ１１（ＶＢＥの画面）
（２）左側フレームＶＢＡＰｒｏｊｅｃｔのＳｈｅｅｔ１をダブルクリック
（３）Ｇｅｎｅｒａｌ－－＞Ｗｏｒｋｓｈｅｅｔ
　　　Ｄｅｃｌａｒａｔｉｏｎ－－＞Ｃｈａｎｇｅを選ぶ
（４）上記をコードをコピー（Private・・とEnd Sub行は除く）し貼り付け。
（５）Ｓｈｅｅｔ１に戻りＡ列に番号を打ち込む操作

回答No.9

kazuhiko5681

初めまして。あなた様のお考えになっていることは、マクロを書けば数式をコピーしたりする手間をかけずに実行することができます。
もし私でよろしければ、サンプルマクロを作ってみたいと思います。ご希望の節は、Ｂ１に入力している数式をお知らせ下さい。すぐにサンプルマクロを作らせていただきます。
お手数をおかけいたしますが、よろしくお願いいたします。

回答No.8

ubonoti01

#7-comvさんの回答は大変ユニークで面白いですね。
ついでに［セル］→［配置］で、B列は折り返さないようにしておくわけですね。

回答No.7

comv

こんばんは

既に皆さんんのレスでおわかりだと思いますが
数式も文字もセルに対しては同じ入力行為ですから
同居できません！

代替案としては

Ａ１に番号　Ｂ１に式　セル幅を0.31ぐらいに狭める
Ｃ列は空き列にしておけば　Ｂ列の結果はＣ列に表示
されます（厳密には　Ｂ：Ｃ列をまたいで表示）
これなら必要に応じてＣ列に直接入力してもＢ列の
式は残り　かつ　Ｃ列の書き込み優先となります。

回答No.6

imogasi

#2のご回答はいいと思います。少し修正して
（１）Ｃ列はＣ１に１スペース入れ、下へ複写する。
　　　（０を出さないため）
（２）Ｂ１には
=IF(ISNA(VLOOKUP(A1,$E$1:$F$3,2,FALSE)),C1,VLOOKUP(A1,$E$1:$F$3,2,FALSE))
と入れるのはどうでしょう。
Ｅ１：Ｆ３にテーブルがあるとしています。
（Ａ）　　（Ｂ）　（Ｃ）　　　　　　　（Ｅ）　（Ｆ）　
1 吉田 1 吉田
2 山田 2 山田
1 吉田 3 上田
4 大田 大田
3 上田
4 近藤 近藤
Ａ列に番号を入れてＢ列がスペースのままなら、Ｃ列に
名前を入れる。するとＢ列にも入る。

回答No.5

ubonoti01

「数式を入れたセルに文字を打っても数式がDeleteされないようにする」は、矛盾した要求ではないでしょうか？　可能／不可能の問題ではないはずです。

回答No.4

ka3

［書式(O)］-［セル(E)］の「保護」タブをご覧下さい。

回答No.3

Cid

目的が
>B1に直接入力しても数式は残せる方法
でしたら、Excelの仕様で出来ないことになってるはずです。でないと計算式自体が無意味になってしまいますので。

出来るとしたら、
数式が入っているセルだけ上書きが出来ないように保護することくらいでしょうか。

回答No.2

joe-009

なぜせっかくB1に患者名がでるのにわざわざ直接B1に患者名を入力しなければならないのでしょう。
もしかして、「番号を入れても出てこない場合には、直接入力したい」ということでしょうか。
であれば、こういう方法もあるかと思います。
・B1に出てこない場合は、C1に入力する。
・さらに、D1に下記の式を設定しておく。
=IF(ISNA(B1),C1,B1)　「もしB1がN/A（値なし）ならばC1を、そうでなければB1を参照せよ」
そうすると、D1にはB1かC1の値が表示されるようになります。

ぜんぜんはずしてたらすみません。

回答No.1

noname#3361

残念ながら不可能です。