[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『クリックしてからの文字非表示』(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.