ExcelマクロVBA練習問題解答
第50回.総合練習問題6回答

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

回答ページです、

１問目

セルA1に、

20120203

と入っています。

これを、

セルB1に、日付(2012/2/3)にして入れて下さい。

・

・・

・・・

・・・・

・・・・・

では、回答です。

Cells(1, 2).Value = DateSerial(Left(Cells(1, 1), 4), Mid(Cells(1, 1), 5, 2), Right(Cells(1, 1), 2))

普通に考えれば、こんな感じでしょう。

ちょっとズルして（笑）

Cells(1, 2).Value = Format(Cells(1, 1).Value, "0000/00/00")

これでもOKです。

２問目

セルA1に、

と分けて入れて下さい。

・・

・・・

・・・・

・・・・・

Cells(1, 2).Value = Left(Cells(1, 1), InStr(Cells(1, 1), " ") - 1)
Cells(1, 3).Value = Mid(Cells(1, 1), InStr(Cells(1, 1), " ") + 1)

こんな感じで良いでしょう。

Mid関数は、文字数を指定しなければ、文字列の最後までになります。

こんなのもアリですね。

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

手駒をどう使うかです。