[[20101116104937]]　『コメント内の改行禁止』（きさね）　ページの最後に飛ぶ

『コメント内の改行禁止』（きさね）

 セル内の改行禁止は調べるとあるのですが、コメント内の改行禁止の方法が分かりません。
 解る人がいましたらお教え下さい。お願いします。

 Excel2007
 Windows Vista

 セル内の改行禁止というのがどのような方法かわかりませんが
 セルでもコメントでも改行自体を禁止ですとVBAでの制御になりますよね。

 該当シートのモジュールに

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cm As Comment
  For Each cm In Me.Comments
    cm.Text Text:=Replace(cm.Text, vbLf, "")
  Next cm
  End Sub

 コメントにはChangeイベントが無いので
 こんなので制御するしか無いんじゃないでしょうか？
 （ｍｏｍｏ）

 さっそく回答ありがとうございます。
 私が調べたセルの改行禁止もVBAでした。
 （コメントにイベントが無いのは前に教えてもらった事があったので知っていたのですが･･･）コメントにどう反映させるか解りませんでした。

 無事解決しました。ｍｏｍｏ様、ありがとうございました。

 ちなみにセルの改行禁止は、データ入力規則のユーザー設定で
 =ISERROR(FIND(CHAR(10),A1))でもできるそうです。（例はA1の場合）
 強制的に改行以下は削除されてしまいますが

 （きさね）

 このような場合、大きく２通りあると思います。
 改行の入力そのものを規制する方法。
 改行の入力は受け付けるが自動的に削除する方法。
 です。

 セルの場合は、入力規制が前者、VBAでは後者です。
 VBAではイベントを使おうが何しようがセル入力中は実行できませんので必然的に後者になります。

 という事で、コメントの方法を思考するときにコメントではイベントが無いのでVBAでしか出来ず
 セルの方法で入力規則を使っている場合は全然違う方法をご案内する事になるので
 参考にお問い合わせしました。

 （ｍｏｍｏ）

 丁寧に教えていただき、ありがとうございます。
 私が今現在求めているのは、コメント内の改行禁止だけですので、前回のｍｏｍｏ様の回答で十分です。

 VBAは、自分で少しずつ勉強はしているのですが、なかなか進歩がありません…
 皆様のように使いこなせる日が来るのでしょうか…

 今回は本当に助かりました。
 また、宜しくお願いします。

 （きさね）

コメント返信：

[ 一覧(最新更新順) ]

[[20101116104937]] 『コメント内の改行禁止』（きさね） ページの最後に飛ぶ

[[20101116104937]]　『コメント内の改行禁止』（きさね）　ページの最後に飛ぶ