練習問題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))