「だるころ」(だぁ~るまさんがこぉ~ろんだ♪)

「だるころ治療院」を開設しようと思って、はてなブログを作りました。 https://darucoro.com/

大学の授業に向けて(VBA)2


スポンサーリンク

★読者登録お願いします

 


 

 

 Comment表示

 最初の関数に色を付ける!
今回も訪問して下さり、ありがとうございます。
佛教大学で非常勤講師をしている関係で、授業の為の細かな工夫をしています。
 
以前紹介した「こんなこと出来たらいいなぁ」の続きです。
この前は、「,」を赤にするや「,」を数えるなどを試みました。
前回は「,」に注目!!
同じ要領で、「=」を青くするとか「()」を茶色にするとかも出来ました。
 
今回は関数に着目!
「最初の関数だけ色を付けれたらいいなぁ」って後から思ったので、挑戦しようと思います。
 頭のなかで考えると混乱しそうなので、実際に記述してみます。

.

 まず、前回紹介した元になっているコメント挿入のコードです。

Sub Comment2() 
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
         
            Call SizeColor3       '今回はこの部分を作成します。
    Range("A1").Select
  
End Sub
 
次にサイズなど見やすくするためのコードをCallしてます。

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を頭のスポーツとして楽しんで書いてます。

 インデントなどしていますが、コードの見難さなどご了承ください。

 

こんな感じになりました!

 

 

f:id:darucoro9216kun:20200407132443p:plain

※分かりにくいですね!最初の関数が紺色になってるんですけど..... 

 

 あまりにも分かりにくいので、一時的にrgbDarkBlueからマゼンダRGB(255, 0, 255)

に変更してみました!!

最初の関数だけ色を変更できました。

f:id:darucoro9216kun:20200407133136p:plain

 

どうでしょうか?少し分かりやすくなりましたか?

「=」は青  「()」は茶色「,」は赤にしてます。

何気にコメントを表示させるVBAって難しいんですね(苦戦)

でも、コピペは絶対にしません!

「自分で記述して解決する」それだけは守っています。

 年配の方で、「=」に「@」を使う人を見かけましたが、その場合も大丈夫です。

「@」は自動的に「=」に変換されます。このマクロを作成するまでは知りませんでしたけど......。

 

最後までお付き合いいただきありがとうございました。

 

友だち追加

 

プライバシーポリシー