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

公開日：2013年5月以前　最終更新日：2019-11-03

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

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

マクロVBA練習問題

１問目

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

２問目

セル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です。

２問目


  
    
      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), ""))

関数は組み合わせ次第で複雑なことができるようになります。
ワークシート関数と同じですね。
要は知っている関数をどのように組み合わせて目的を達成するかです。

このサイトがお役に立ちましたら「シェア」「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.

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

マクロVBA練習問題

シンキングタイム

マクロVBA練習問題解答

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

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

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

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