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 ・・・新着記事一覧を見る

AIは便利なはずなのに…「AI疲れ」が次の社会問題になる|生成AI活用研究(2026-02-16)
カンマ区切りデータの行展開|エクセル練習問題(2026-01-28)
開いている「Excel/Word/PowerPoint」ファイルのパスを調べる方法|エクセル雑感(2026-01-27)
IMPORTCSV関数(CSVファイルのインポート)|エクセル入門(2026-01-19)
IMPORTTEXT関数(テキストファイルのインポート)|エクセル入門(2026-01-19)
料金表(マトリックス)から金額で商品を特定する|エクセル練習問題(2026-01-14)
「緩衝材」としてのVBAとRPA|その終焉とAIの台頭|エクセル雑感(2026-01-13)
シンギュラリティ前夜:AIは機械語へ回帰するのか|生成AI活用研究(2026-01-08)
電卓とプログラムと私|エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン|エクセル関数応用(2025-12-25)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.日本の祝日一覧|Excelリファレンス
3.変数宣言のDimとデータ型|VBA入門
4.FILTER関数(範囲をフィルター処理)|エクセル入門
5.RangeとCellsの使い方|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
8.マクロとは?VBAとは?VBAでできること|VBA入門
9.セルのクリア(Clear,ClearContents)|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」をお願いいたします。
本文下部へ