練習問題25（各種VBA関数）回答

最終更新日：2015-10-22

練習問題25（各種VBA関数）回答

練習問題25の回答ページです、

問題

・以下の表において、課題に沿って、元データより回答欄に出力して下さい。

※１問目なら、回答欄に"Excelマクロ(vba)練習"と出力する。

　　　Ａ　　　　　　　　　　　　　　　　　　　　　　　Ｂ　　　　　　　　　　Ｃ

課題	元データ	回答
"VBA"を"vba"に変換	Excelマクロ(VBA)練習
括弧()内の文字のみ取り出す	Excelマクロ(VBA)練習
拡張子を取り出す	マクロ.セミナー.xls
ひらがなをカタカナに変換	まくろVBA練習
全て小文字に変換	ExcelVba
半角のみならOK、全角含む場合はNG	ExcelＶba
日付データに変換	20130410
曜日を求める	2013/4/10
10日後の日付を求める	2013/4/10
月末日を求める	2013/4/10
先頭の数値を取り出す	350ML
整数にする	352.5
小数以下1桁に四捨五入する	352.45
ピリオド(.)の数を数える	192.168.101.255
前後の余分な空白を取り除く	V　B　A

※上記表の全体選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。

すぐに回答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

・
・・
・・・
・・・・
・・・・・

当サイトのコンテンツ

ExcelマクロVBA入門

ここで、じっくり勉強して下さい。

・
・・
・・・
・・・・
・・・・・

では回答です。

'"VBA"を"vba"に変換
Cells(2, 3) = Replace(Cells(2, 2), "VBA", "vba")

'括弧()内の文字のみ取り出す
Cells(3, 3) = Mid(Cells(3, 2), InStr(Cells(3, 2), "(") + 1, InStr(Cells(3, 2), ")") - InStr(Cells(3, 2), "(") - 1)

'拡張子を取り出す
Cells(4, 3) = Mid(Cells(4, 2), InStrRev(Cells(4, 2), ".") + 1)

'ひらがなをカタカナに変換
Cells(5, 3) = StrConv(Cells(5, 2), vbKatakana)

'全て大文字に変換
Cells(6, 3) = LCase(Cells(6, 2))

'半角のみならOK､全角含む場合はNG
If Len(Cells(7, 2)) = LenB(StrConv(Cells(7, 2), vbFromUnicode)) Then
Cells(7, 3) = "OK"
Else
Cells(7, 3) = "NG"
End If

'日付データに変換
Cells(8, 3) = DateSerial(Left(Cells(8, 2), 2), Mid(Cells(8, 2), 5, 2), Right(Cells(8, 2), 2))

'または､
Cells(8, 3) = DateValue(Format(Cells(8, 2), "0000/00/00"))

'曜日を求める
Cells(9, 3) = Format(Cells(9, 2), "aaaa")

'10 日後の日付を求める
Cells(10, 3) = DateAdd("D", 10, Cells(10, 2))

'月末日を求める
Cells(11, 3) = DateSerial(Year(Cells(11, 2)), Month(Cells(11, 2)) + 1, 0)

'先頭の数値を取り出す
Cells(12, 3) = Val(Cells(12, 2))

'整数にする
Cells(13, 3) = Int(Cells(13, 2))
'または､
Cells(13, 3) = Fix(Cells(13, 2))

'小数以下1に四捨五入する
Cells(14, 3) = WorksheetFunction.Round(Cells(14, 2), 1)
'または､
Cells(14, 3) = Int((Cells(14, 2) * 10 + 0.5)) / 10

'ピリオド(.)の数を数える
Cells(15, 3) = Len(Cells(15, 2)) - Len(Replace(Cells(15, 2), ".", ""))

'前後の余分な空白を取り除く
Cells(16, 3) = Trim(Cells(16, 2))

個別の説明は不要でしょう。

VBA関数の習得は、マクロVBA習得において必須です。

VBA関数で簡単に出来る事を、長々と記述する事のないように、

少なくとも、どんな関数があるかだけは覚えておきましょう。

実際に使う時は関数の解説を見ながらでも良いでしょう。

少しずつ使えるVBA関数を増やしていきましょう。

各VBA関数については、

VBA関数一覧

こちらを参照して下さい。

関数毎に個別の解説ページがあります。