VBAの変数の型について

質問

VBAの変数の型について

VBA初心者です。

下記のようにして背景に色を付けようと思ったのですが、
文字列型の変数名では、型が違うとエラーが出ます。

ただ、事情により、文字列型でしか色情報を取得できないため、
VBA内部で型の変更をして、上手く処理出来ないかと考えています。
文字列型から色名に対応する型への変更は、出来るのでしょうか？

---------------------------------------
.BackgroundPatternColor = 文字列型変数名
---------------------------------------

現在は、諦めて、下記のようにして対応しています。

---------------------------------------
If (bgColor = "黄") Then
.BackgroundPatternColor = wdColorYellow
End If
---------------------------------------

よろしくお願い致します。

回答No.1

いけだ ひろし（@ike-2000） · ベストアンサー

適当な変換メソッド/関数が無ければ自分で変換関数を作るしかないでしょう。
ちなみに、wdColorYellow等の値は
http://msdn.microsoft.com/en-us/library/Aa211923
に一覧があります。
VBAで連想配列のようなものが使えれば一発ですが、これは出来ないのでif分をダラダラと書くしかないでしょう。または、変換表を作っておいてループして見つけるくらいでしょうか。

ご検討ください。

お礼

URLをありがとうございました。
参考にさせていただいて、条件文を作りたいと思います。

回答No.3

redfox63

列挙定数を使うってことではダメでしょうか？

標準モジュールを追加して

Public Enum en1
黄 = 65535
青 = 16711680
赤 = 255
緑 = 32768
End Enum

としておけば

.BackgroundPatternColor = 黄
といった使い方が出来ますよ

お礼

サンプルを有難うございます。
参考にさせていただきます。

回答No.2

end-u

仮に、このような変換関数を作っておいて使い回せば良いという事ですね。

Function fColor(c As String) As Long
　　Dim x As Long

　　Select Case c
　　Case "黄": x = 65535
　　Case "青": x = 16711680
　　Case "赤": x = 255
　　Case "緑": x = 32768

　　Case Else: x = -16777216
　　End Select
　　fColor = x
End Function

..BackgroundPatternColor = fColor(bgColor)

お礼

サンプル有難うございます。
参考にさせていただきます。