| HOME | 関数まとめ | エクセルの学校 | Yahoo Google | 初めての方へ |
| ダウンロード | エラー値まとめ | ライブラリ | マイスター | 過去ログ |
| ExcelPedia | よくある質問 | 質問掲示板 | 校内全文検索 | 検索 遊び マック コン |
(1)準備
エクセルを起動し、下図のデータを準備します。セルC3を選択します。
(2)モジュールシートの作成
挿入メニュー:[マクロ]:[モジュール]を選択すると、真っ白なVBA用の記入シートが表示されます、ここにコードを入力します。
(3)入力するコード(下のコードを選択してコピーして、Module側でペーストしてもOKです)
Sub FontColr()
For n = 1 To 5
Selection.Font.ColorIndex = n
ActiveCell.Offset(1, 0).Select
Application.Wait Now() + TimeValue("00:00:01")
Next n
End Sub
<各行のコードの意味>
ここからFontColrというVBAの記述が始まります。
nを1つづつ増やしながら以下を5回くりかえしなさい。
選択した部分の文字の色をnに変化させなさい。
選択したセルの下のセルを選択しなさい(下側へ移動)。
今から1秒間待ちなさい。
Forへ戻りなさい。
ここでFontColrというVBAの記述は終りです。
画面下側にある見出し『Sheet1』をクリックします。これで、元のブックの世界へ戻れます。
ワークシート側でセルC3を選択しているのを確認します。
ツールメニュー:[マクロ...]を選択します。
(6)VBAを実行する
下図のダイアログが表示されます。この中から、自分が実行したいVBAを選択します。ここではFontColrを選択して、[開始]ボタンを押します。
(7)実行結果
うまくゆけばVBAがとろとろと実行して、下図のようになります。
(8)ブックにFontColrという名前をつけて保存しておきます。