セルの背景色を調べるマクロの実験 LibreOffice Calc Basic

セルの背景色を調べるマクロの実験　LibreOffice Calc Basic

Sub oCellBackColor()
    '選択セルの背景色を調べる
    Dim color16,red16,green16,blue16 As String
    on error goto errorH
   
    '選択セル　背景色16進数
        BgColor=ThisComponent.CurrentSelection.cellbackcolor
        color16= Hex(BgColor)
        'print color    'FFFF00
    '背景色16進数からred,green,blueの16進数を取り出す
        red16=left(color16,2)
        green16=mid(color16,3,2)
        blue16=right(color16,2)
    '10進数に変換
        aka=CInt("&H" & red16)
        midori=CInt("&H"  &  green16)
        ao=CInt("&H" & blue16)

    '結果をMsgBoxで表示
        msgbox BgColor & chr(10) & "&H" & color16 & chr(10) & "赤 Red  " & aka & chr(10) & "緑 Green  " & midori & chr(10)  _
        & "青 Blue  " & ao & chr(10) & "RGB(" & aka & "," & midori & "," & ao & ")" ,,"選択セルの背景色"
    Exit Sub
   
    errorH:
        MsgBox "エラー　セル選択は一つで！"

End Sub

 

タグ：セルの背景色

コメント 1

沒有醫生的處方
cialis free trial http://kawanboni.com/ Cialis generico online
by Cialis 5mg (2018-04-14 10:12)