本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| シート「読み込み&背景色設定シート」の「読み込みセル」の値（赤,緑,青）を取得し, 「背景色設定セル」の背景色をその色に設定する。 （「読み込みセル」が空白の場合は, 「背景色設定セル」の背景色は変更しない。） |
| 実行完了時にはMsgBox関数で「実行完了」のメッセージを表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim readWriteSht As Worksheet
Dim readValue As String
Dim colorCell As Range
' 読み込み＆書き込みシートを取得
Set readWriteSht = ThisWorkbook.Sheets("読み込み&背景色設定シート")
' 読み込みセルの値を取得
readValue = readWriteSht.Cells(6, 2).Value
' 背景色設定セルを指定
Set colorCell = readWriteSht.Cells(6, 4)
' 読み込み値に応じて背景色を設定（読み込み値が空白の場合は, 背景色は変わらない）
If readValue = "赤" Then
colorCell.Interior.Color = RGB(255, 0, 0)
ElseIf readValue = "緑" Then
colorCell.Interior.Color = RGB(0, 255, 0)
ElseIf readValue = "青" Then
colorCell.Interior.Color = RGB(0, 0, 255)
End If
' 「実行完了」のメッセージを表示
Call MsgBox("実行完了")
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでセルの背景色を設定する方法を学ぶことが出来ます！
＊2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。
本学習テーマの格言
- vbaでセルの背景色を設定して, 違いが一目で分かるExcelファイルを作成しよう！
- 背景色を設定できるようにすれば, 注目してほしいデータが書いてあるセルを一目で見つけられるExcelファイルを作れます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！👇
コメント