VBA練習問題解答
総合練習問題6解答

Excelマクロ練習問題集、エクセルVBAの学習教材
公開日:2013年5月以前 最終更新日:2019-11-03

第50回.総合練習問題6解答

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


マクロVBA練習問題

1問目
セルA1に、
20120203
と入っています、
これを、
セルB2に、
日付(2012/2/3)
として出力して入れて下さい。

2問目

セルA1に、
日本 太郎
と入っています、姓名の間の空白は半角スペースです。
これを、
セルB1、日本
セルC1に、太郎
と分けて入れて下さい。
ヒント!
文字列操作はマクロVBAの基本かつ重要なテクニックになります。
何も見ずにできるようになりましょう。

シンキングタイム

シンキングタイム開始


シンキングタイム終了

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。

1問目
Cells(1, 2) = DateSerial(Left(Cells(1, 1), 4), Mid(Cells(1, 1), 5, 2), Right(Cells(1, 1), 2))

普通に考えれば、こんな感じでしょう。
ちょっとズルして(笑)
Cells(1, 2) = Format(Cells(1, 1), "0000/00/00")
これでもOKです。

2問目
Cells(1, 2) = Left(Cells(1, 1), InStr(Cells(1, 1), " ") - 1)
Cells(1, 3) = Mid(Cells(1, 1), InStr(Cells(1, 1), " ") + 1)

こんな感じで良いでしょう。
Mid関数は、文字数を指定しなければ、文字列の最後までになります。
以下のようなやり方もありますね。

Cells(1, 2) = Left(Cells(1, 1), InStr(Cells(1, 1), " ") - 1)
Cells(1, 3) = Trim(Replace(Cells(1, 1), Cells(1, 2), ""))

関数は組み合わせ次第で複雑なことができるようになります。
ワークシート関数と同じですね。

要は知っている関数をどのように組み合わせて目的を達成するかです。



同じテーマ「マクロVBA練習問題解答」の記事

第30回.総合練習問題3解答
第36回.総合練習問題4解答
第43回.総合練習問題5解答
第50回.総合練習問題6解答
第67回.総合練習問題7解答
第78回.総合練習問題8解答
第81回.総合練習問題9解答
第86回.総合練習問題10解答
練習問題1(For~Nextの練習)解答
練習問題2(最終行の取得の練習)解答
練習問題3(二重ループの練習)解答


新着記事NEW ・・・新着記事一覧を見る

2つのシート名を交換するVBAをGeminiに作らせてみた。|VBA技術解説(2026-05-22)
ヘッダーに合わせて列をソートして値貼り付けするスマートな方法|VBAサンプル集(2026-05-20)
4大分岐関数の使い分け(IF/IFS/SWITCH/CHOOSE)|エクセル入門(2026-05-19)
Excel主要関数 習得難易度 10段階(文字列・日付除く)|エクセル雑感(2026-04-27)
Excelのシート5分類|エクセル雑感(2026-03-27)
グループ別に全員共通の重複期間を算出|エクセル練習問題(2026-03-12)
ハイフン区切り文字列の『最初』と『最後』を抽出・結合|エクセル練習問題(2026-02-23)
AIは便利なはずなのに…「AI疲れ」が次の社会問題になる|生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開|エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法|エクセル雑感(2026-01-27)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.日本の祝日一覧|Excelリファレンス
3.FILTER関数(範囲をフィルター処理)|エクセル入門
4.変数宣言のDimとデータ型|VBA入門
5.Excelショートカットキー一覧|Excelリファレンス
6.繰り返し処理(For Next)|VBA入門
7.RangeとCellsの使い方|VBA入門
8.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
9.マクロとは?VBAとは?VBAでできること|VBA入門
10.メッセージボックス(MsgBox関数)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ