機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAの関数

QBColor関数



構文
QBColor(color)
引数colorには、0〜15の範囲の整数を指定します。

解説
指定した色番号に対応するRGBコードを表す長整数型の値を返します。
引数colorの設定値は次のとおりです。
番号
 0   黒 
 1   青 
 2   緑 
 3   シアン 
 4   赤 
 5   マゼンタ 
 6   黄 
 7   白 
 8   灰色 
 9   明るい青 
 10   明るい緑 
 11   明るいシアン 
 12   明るい赤 
 13   明るいマゼンタ 
 14   明るい黄 
 15   明るい白 

サンプル
次の例は、フォームの背景色に、ユーザーが入力した色を指定します。

Sub Sample()
    Dim code As Integer
    code = InputBox("色番号(0〜15)を指定してください")
    If IsNumeric(code) Then
        Me.BackColor = QBColor(code)
    End If
End Sub



このエントリーをはてなブックマークに追加