【Day54】文系オタクのエンジニア道～問題演習⑧-1～
こんにちは
安田です
最近、雨が多くて
本格的に梅雨を感じています
今朝、自転車が「ない」
と大慌てでした
リマインド機能が
「チャリを〇〇へ引き取りに行く」
と教えてくれたので
安心しました
昨日は飲み会のあと
雨が降ってきたので
自転車を置いて帰ったんです
LINEのリマインくん
めっちゃ便利です
（ステマや宣伝ではないですよー）
さて本日もVBAの問題を解いていきます
Sub Test1()
Dim i As Long
For i = 1 To 3
Cells(i, 2) = 【 1 】(Cells(i, 1), 5)
Next i
End Sub
普通に「right」を使うものだと思っていました
「Mid」を使います
Mid(文字列, 開始位置, 文字数)
問題文の「Cells(i, 1)」が文字列
「5」が開始位置（アルファベットの先頭）になる
「文字数」が指定されていない場合
→指定した文字列の開始位置から
すべての文字列を取得する
Sub Test1()
MsgBox【 1 】(Range("A1"), Range("A2"), Range("A3"))
End Sub
「DateSerial関数」を使う
年月日の数値から日付形式のデータを作ることができる
DateSerial(年,月,日)
「UCase関数」は
アルファベットの文字列を大文字に変換する
逆に小文字にする場合は
「LCase関数」を使う
補足
「UCase」は「uppercase（大文字）」
「LCase」は「lowercase（小文字）」の略
これは覚えやすい
正答率 57％
7問中4問正解
No.8は問題数が多かったので
いくつかに分けて学習していこうと思います
「VBAマスターに俺はなる」
最後まで読んでいただき
ありがとうございます
安田
マガジンにまとめてありますので
よかったらそちらも御覧ください
#66日ライラン
ライラン 3日目