本学習テーマ紹介動画
YouTube
作成した動画を友だち、家族、世界中の人たちと共有
👆本学習テーマをYouTubeで紹介しています!
チャンネル登録宜しくお願いします!
効果音ラボ ナレーション 音読さん
*基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
シート「読み込みシート」の「テーブル」のデータを全て削除する。 (データが既にない場合にエラーが出ないように実装すること。) |
プログラムの最後に, シート「読み込みシート」をアクティベートにして, MsgBox関数で「実行完了」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("読み込みシート")
Dim tbl As ListObject: Set tbl = ws.ListObjects("テーブル")
' テーブルの初期化
If Not (tbl.DataBodyRange Is Nothing) Then
tbl.DataBodyRange.Delete
End If
ws.Activate
MsgBox ("実行完了")
End Sub
上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい!
本学習ツールの内容
下👇の画像のように, テーブルのデータを削除するプログラムを実装し, そのプログラムを実際に実行することが出来ます!
VBA設定
尚, 本ツールには, 「VBA」(Excelのプログラミング言語)が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい!(xlsmファイル)👇
コメント