[[20061031152518]]　『セルをダブルクリックすると内容が消えてしまう。』（かく）　ページの最後に飛ぶ

『セルをダブルクリックすると内容が消えてしまう。』（かく）

もともと文章が記入されているセルに付け足しを行おうと、ダブルクリックした瞬間に記入してあっら内容が消えてしまうのですが、元々の内容を残したまま追加を行うにはどうすればよいでしょうか。

よろしくお願いいたします。

 >ダブルクリックした瞬間に記入してあっら内容が消えてしまう

 何かマクロが設定してありませんか？
 普通であればダブルクリックでセルの内容が消えることはありません。
 （Ｐ）

マクロは設定しています。しかし、全く同じマクロを設定している別シートではダブルクリックしても全く問題がありません。

書式設定か何かかと思っていましたが、違うのでしょうか？

 Ｐさんと同じ意見です。 
 多分そのシートだけダブルクリックで内容が消えるマクロが組んであるのでは？
 （たむりん）

 ＞マクロは設定しています。
 どのようなものが入っているのか、コードをここに貼り付けられたほうが
 解決が早いかもしれません。

 （川野鮎太郎）

 想像ですが、元々入力してあった文字列全体を選択した状態（背景黒、文字白）
 になっていると、上書きみたいになるので、消えてしまうとか。
 入力状態で[End]キーを押下すると、文字列の最後から追加入力できるはずです。

 元々の文字列に、ふつーに追加入力する場合、
  1. [F2]キー押下
  2. 入力
 が良い気がします（あきお）

（川野鮎太郎）様、使用しているマクロは

 　
Private flg As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If flg Then
        Cancel = True
        flg = False
    Else
        Cancel = False
        flg = True
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    flg = True
End Sub
　
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 37 Then Exit Sub
If Target.Row > 1000 Then Exit Sub
Worksheets("Sheet1").Cells(Target.Row, Target.Column).Offset(0, 0).Value = Date & " " & Time
End Sub

です。

（あきお）様

想像ですが、元々入力してあった文字列全体を選択した状態（背景黒、文字白）になっていると、上書きみたいになるので、消えてしまうとか。入力状態で[End]キーを押下すると、文字列の最後から追加入力できるはずです。

回答ありがとうございます。しかし、今回の場合は上記現象では無いようです。

 上記のコードを試した限りでは、ダブルクリックした時点で消えることは無いようですね。
 Thisworkbookモジュールには何も入っていませんか。

 （川野鮎太郎）

 [セルの書式設定] → [保護]タブで、表示しないに
 チェックが入っていればはずしてみるとか。　(アカギ)

(アカギ)様

ご指摘の内容で問題が解決しました。ありがとうございました。

（Ｐ）様、（たむりん）様、（川野鮎太郎）様、（あきお）様

相談に乗っていただき、ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20061031152518]] 『セルをダブルクリックすると内容が消えてしまう。』（かく） ページの最後に飛ぶ

[[20061031152518]]　『セルをダブルクリックすると内容が消えてしまう。』（かく）　ページの最後に飛ぶ