Excel VBA質問箱 IV

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

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


37777 / 76732 ←次へ | 前へ→

【44116】Re:作成したマクロの問題点が分かりません
発言  ichinose  - 06/11/4(土) 19:17 -

引用なし
パスワード
   ▼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

0 hits

【44115】作成したマクロの問題点が分かりません tap 06/11/4(土) 19:02 質問
【44116】Re:作成したマクロの問題点が分かりません ichinose 06/11/4(土) 19:17 発言
【44117】Re:作成したマクロの問題点が分かりません... ichinose 06/11/4(土) 19:41 発言
【44119】Re:作成したマクロの問題点が分かりません... tap 06/11/4(土) 19:59 お礼
【44124】Re:作成したマクロの問題点が分かりません... ichinose 06/11/5(日) 9:19 発言
【44132】Re:作成したマクロの問題点が分かりません... tap 06/11/5(日) 11:42 お礼
【44118】Re:作成したマクロの問題点が分かりません tap 06/11/4(土) 19:42 お礼

37777 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free