Excel VBA質問箱 IV

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

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


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

37777 / 76732

←次へ　｜　前へ→


	【44116】Re:作成したマクロの問題点が分かりません

ichinose - 06/11/4(土) 19:17 -


	引用なし

	パスワード

▼tap さん：
こんばんは。

>ソフトバンククリエイティブの『やさしくわかるＥｘｃｅｌ関数・マクロ』
>h00p://isbn.sbcr.jp/2659X
>という本を読みながらマクロを学習している者です。
>
>この本の275ページにある演習問題の01について分からないことがあります。
>
>問題は、
>「セルA1に入力されている文字が白色でなければ白色に変え、白色なら黒色に変えるマクロを作りなさい」
>というもので、
>条件として、
>「セルA1には何かのデータが入力されているものとする。」
>となっています。
>
>上記サイトからダウンロードした模範解答のマクロでは、
>セルA1に「見えますか？」と入力されていて、
>プロシージャは以下のようになっています。
>Sub セルA1の文字が白色でなければ白色に白色なら黒色に()
>If Range("A1").Font.ColorIndex <> 2 Then
>　　Range("A1").Font.ColorIndex = 2
>Else
>　　　　Range("A1").Font.ColorIndex = 1
>End If
>End Sub
>
>しかし、私は以下のように作りました。
>Sub 文字色変更()
>　　a = Range("A1").Font.ColorIndex
>　　Select Case a
　　　　Case 2 'に訂正してください
>　　　　　　Range("A1").Font.ColorIndex = 1
>　　　　Case Else
>　　　　　　Range("A1").Font.ColorIndex = 2
>　　End Select
>End Sub

0 hits

▼

【44115】作成したマクロの問題点が分かりません tap 06/11/4(土) 19:02