Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4289 / 76734

←次へ　｜　前へ→


	【78069】確認した変数を他のマクロ上で使用する為の処理と方法を教えて下さい。

mjhwc152

- 16/3/26(土) 17:21 -


	引用なし

	パスワード

先に【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

8 hits

▼

【78069】確認した変数を他のマクロ上で使用する為の処理と方法を教えて下さい。 mjhwc152 16/3/26(土) 17:21