Comment表示
.
まず、前回紹介した元になっているコメント挿入のコードです。
On Error Resume Next
Dim textBox As Variant
textBox = Selection.Formula
Selection.AddComment
Call SizeColor
Selection.Comment.Visible = False
Selection.Comment.Text Text:=textBox
Selection.Comment.Visible = True
Range("A1").Select
Sub SizeColor()
If Not Selection.Cells.Comment Is Nothing Then
With Selection.Cells.Comment.Shape.TextFrame
.AutoSize = True
.Characters.Font.Size = 18
.Characters.Font.Bold = True
.Characters.Font.Color = vbBlack
End With
End If
End Sub
今回は関数の色を紺色(rgbDarkBlue)に変更してみます。
それでは行きまーす!
Sub SizeColor3()
Dim St As Long
St = InStr(Selection.Formula, "(")
Dim sh As Worksheet
Set sh = ActiveSheet
Dim i As Long
i = ActiveSheet.Shapes.Count
With sh
.Shapes(i).TextFrame.Characters(Start:=2, Length:=St - 2).Font.Color = rgbDarkBlue
End With
End Sub
うーん!
選択したコメントだけ色を変えるって部分がなかなか上手く出来ませんでした。
結局、 i = ActiveSheet.Shapes.Count としてコメントした数をそのままShapes(i)に
して挿入しました。
VBAを頭のスポーツとして楽しんで書いてます。
インデントなどしていますが、コードの見難さなどご了承ください。
こんな感じになりました!
※分かりにくいですね!最初の関数が紺色になってるんですけど.....
あまりにも分かりにくいので、一時的にrgbDarkBlueからマゼンダRGB(255, 0, 255)
に変更してみました!!
最初の関数だけ色を変更できました。
どうでしょうか?少し分かりやすくなりましたか?
「=」は青 「()」は茶色「,」は赤にしてます。
何気にコメントを表示させるVBAって難しいんですね(苦戦)
でも、コピペは絶対にしません!
「自分で記述して解決する」それだけは守っています。
年配の方で、「=」に「@」を使う人を見かけましたが、その場合も大丈夫です。
「@」は自動的に「=」に変換されます。このマクロを作成するまでは知りませんでしたけど......。
最後までお付き合いいただきありがとうございました。