| |
先に 【78068】の質問の内容で
Re:指定したセルのフォントカラーの確認方法を
βさんから、下記の回答頂き、お礼にて送信しましたが、送信未確認の為、追加質問にしました。
Sub Test()
Dim color As Variant
color = Range("A1").Font.color
If IsNull(color) Then
MsgBox "文字ごとに文字色が異なっています"
Else
MsgBox "文字の色コードは " & color & " です"
End If
End Sub
ここで判明した「color」を使い、次の様な Sub Macro()にてのcolor」を使用する為の宣言方法と手順を知りたい。又、下記の IF 処理で「Macro1〜Macro3」へのマクロの移動処理を実施したいのですが、方法は合っていますか? ご伝授下さい。
Sub Macro()
If color = 赤 Then
Macro1 (単にこの書き方で指定した移動先のマクロに飛びますか?)
Else If color = 黒 Then
Macro2
Else
Macro3
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 16/3/26(土) 17:21 -
