[[20140926095318]] 『クリックしてからの文字非表示』(TOM) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『クリックしてからの文字非表示』(TOM)

いつもお世話になっています。
質問させてください。
excelでコメント記入欄を作成しまして、そこに薄い字で。「ここにコメントを入力してください」と記入してあります。そこをクリックすると薄い字のコメントが消え、他の部分をクリックするとコメント欄未記入の場合のみ、また薄い字のコメントが現れる、といったような仕様にしたいと思っております。
VBAで実行しようと思い、組んでいたのですが、うまくいきません。以下組んだVBAになります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Const myWd As String = "ここにコメントを入力してください"
With Range("A9")
 If Not Intersect(Target, Range("A9")) Is Nothing Then
 If Target = myWd Then
 Target = ""
 .Font.ColorIndex = 0
 End If
 Else
 If .Value = "" Then
 .Value = myWd
 .Font.ColorIndex = 16
 End If
 End If
 End With
 End Sub

実行すると、「実行エラー13型が一致しません」とエラーが表示されます。
ちなみにA9のセルはP10までセルを結合してあります。
上記のVBAを結合していないセルで実行したところうまく動きました。
セルを結合していることが原因でしょうか?
回避策はないでしょうか?
よろしくお願い致します。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 せっかくWith使っているなら、これでいいんじゃない?
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Const myWd As String = "ここにコメントを入力してください"
        With Range("A9")
            If Not Intersect(Target, Range("A9")) Is Nothing Then
                If .Value = myWd Then
                    .Value = ""
                    .Font.ColorIndex = 0
                End If
            Else
                If .Value = "" Then
                    .Value = myWd
                    .Font.ColorIndex = 16
                End If
            End If
        End With
    End Sub

(稲葉) 2014/09/26(金) 11:28


稲葉さん

できました!
ありがとうございました。
勉強になりましたm(__)m
(TOM) 2014/09/26(金) 11:31


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.