練習問題9（文字色・背景色の練習）解答

最終更新日：2019-06-27

練習問題9（文字色・背景色の練習）解答

マクロVBA練習問題9の解答ページです。

マクロVBA練習問題

・昨年比を計算して、Ｄ列に入れて下さい。
・昨年比により、D列に以下の書式を設定して下さい。

　背景青、白文字 : 105%以上
　青文字 : 100%以上、105%未満
　黒文字 : 95%以上、100%未満
　赤文字 : 90%以上、95%未満
　背景赤、黒文字 : 90%未満

※昨年比 = 今年売上 ÷ 昨年売上
※D列は事前に％設定にしてあることとして下さい。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

　Ａ　　　　　Ｂ　　　Ｃ　　　Ｄ

日付	数量	単価	金額
1月1日	26	304
1月2日	68	305
1月3日	84	972
1月4日	53	684
1月5日	34	703
1月6日	56	628
1月7日	12	619
1月8日	92	356
1月9日	31	949
1月10日	19	229
1月11日	54	507
1月12日	35	666
1月13日	83	728
1月14日	68	272
1月15日	78	236
1月16日	87	334
1月17日	34	490
1月18日	32	650
1月19日	68	348
1月20日	98	744

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

ExcelVBAとはエクセルの操作を自動化するマクロ機能で使われているプログラミング言語ですVBAは「MicrosoftVisualBasicApplications」の略になりますこのVBA入門シリーズでは実務で必要とされるVBAの入門として基本から応用までのVBA全般を解説していきます。

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。


  
    
      Sub 練習問題9()

      　　Dim i As Long

      　　For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

      　　　　Cells(i, 4) = Cells(i, 3) / Cells(i, 2)

      　　　　Select Case Cells(i, 4)

      　　　　　　Case Is >= 1.05

      　　　　　　　　Cells(i, 4).Interior.Color = vbBlue

      　　　　　　　　Cells(i, 4).Font.Color = vbWhite

      　　　　　　Case Is >= 1

      　　　　　　　　Cells(i, 4).Font.Color = vbBlue

      　　　　　　Case Is >= 0.95

      　　　　　　　　Cells(i, 4).Font.Color = vbBlack

      　　　　　　Case Is >= 0.9

      　　　　　　　　Cells(i, 4).Font.Color = vbRed

      　　　　　　Case Else

      　　　　　　　　Cells(i, 4).Interior.Color = vbRed

      　　　　　　　　Cells(i, 4).Font.Color = vbBlack

      　　　　End Select

      　　Next

      End Sub