本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| シート「読み込み＆書き込みシート」の「読み込みセル」に記載されている文字列を取得し, その文字列を「・」で分割して出来た文字列を「書き込みセル」に自動入力する。 |
| プログラムの最後には, シート「読み込み＆書き込みシート」をアクティブにして, MsgBox関数で「実行完了」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim readWriteWs As Worksheet
Dim inputString As String
Dim splitArray() As String
Dim writeHeadRng As Range
Dim i As Integer
' シート「読み込み＆書き込みシート」を指定
Set readWriteWs = ThisWorkbook.Sheets("読み込み＆書き込みシート")
' 読み込みセルの文字列を取得
inputString = readWriteWs.Cells(6, 2).Value
' 文字列を「・」で分割して配列に格納
splitArray() = Split(inputString, "・")
' 書き込みセルの上のセルを取得
Set writeHeadRng = readWriteWs.Cells(9, 2)
' 書き込みセルに分割した文字列を自動入力（配列のインデックス（i）は0から始まる）
For i = LBound(splitArray) To UBound(splitArray)
writeHeadRng.Offset(i, 0).Value = splitArray(i)
Next i
' シート「読み込み＆書き込みシート」をアクティブにする
readWriteWs.Activate
' MsgBox関数で「実行完了」と表示する
MsgBox "実行完了"
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaのsplit関数を使って, 文字列を分ける方法を学ぶことが出来ます！
＊2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。
本学習テーマの格言
- vbaのsplit関数を使って, 大変な分割・入力作業を削減しよう！
- vbaのsplit関数を使えれば, 下の例のように自動で文字列を分けられる為, 今まで行っていた大変な分割・入力作業を減らせます！
- （例）:「高学歴・高収入・高身長」→「高学歴」「高収入」「高身長」に自動分割
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！👇
コメント