|
▼tap さん:
こんばんは。
>ソフトバンククリエイティブの『やさしくわかるExcel 関数・マクロ』
>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
|
|