本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| シート「読み込み＆書き込みシート」の 「オフセット」の「行数」, 「列数」を取得し, 「基準セル」からその行, 列分だけずらしたセルの背景色を黒くする。 |
| 最後に, シート「読み込み＆書き込みシート」をアクティベートにして, MsgBox関数で, 「背景色を黒くしたセル:（セルの場所（例:$C$10））」 と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim readWriteSheet As Worksheet
Dim baseCell As Range
Dim offsetRow As Integer
Dim offsetCol As Integer
Dim targetCell As Range
' シート「読み込み＆書き込みシート」を取得
Set readWriteSheet = ThisWorkbook.Worksheets("読み込み＆書き込みシート")
' 基準セルを指定
Set baseCell = readWriteSheet.Cells(9, 2)
' オフセットの行数と列数を取得
offsetRow = readWriteSheet.Cells(7, 2).Value
offsetCol = readWriteSheet.Cells(7, 3).Value
' 基準セルからオフセットしたセルの背景色を黒くする
Set targetCell = baseCell.Offset(offsetRow, offsetCol)
targetCell.Interior.Color = RGB(0, 0, 0) ' 黒色
' シートをアクティブにする
readWriteSheet.Activate
' メッセージボックスで情報を表示
MsgBox "背景色を黒くしたセル: " & targetCell.Address
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaで基準のセルから任意の行, 列数だけずらしたセルを指定する方法を学ぶことが出来ます！
＊2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。
本学習テーマの格言
- offsetを使って, 一つのセルを基準に任意のセルを指定しよう！
- cell変数.offset(m,n)で, cell変数のセルの位置からm行n列だけずれた位置のセルを指定できます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント