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

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

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

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

マクロVBA練習問題

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

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

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

　　　Ａ　　　　　　　　　　　　　　　　　　　　　　　Ｂ　　　　　　　　　　Ｃ

課題	元データ	回答
"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を習得し、日々のExcel作業を効率化・自動化できるようになることを目指します。VBAが初めての方でも無理なくステップアップできるよう、基礎から丁寧に、そして段階的に解説を進めます。そのため、シリーズ後半では入門レベルに留まらず、実務レベルで通用する高度なテクニックや幅広い知…

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロ練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      '"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), 4), 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関数一覧

マクロVBA関数の一覧と解説です、どんな関数があるかは一度は確認しておくとをお勧めいたします。どんな関数があるだけでも知っておけば、詳細の使い方は実際に使うときに調べても良いでしょう。文字列操作…34 分岐…3 型変換…14 データ判定…10 日付時刻…20 配列…6 ファイル操作…14 数学/財務…28 その他……

こちらを参照して下さい。
関数毎に個別の解説ページがあります。

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

練習問題22（総合練習4）解答
 練習問題23（総合練習5）解答
 練習問題24（再帰呼出し）解答
練習問題25（各種VBA関数）解答
練習問題26（全シート処理とハイパーリンク）解答
 練習問題27（データ分割し別ブック保存）解答
 練習問題28（シートを別ブックにして値のみにする）解答
 練習問題29（ロット引き当て）解答
 練習問題30（マトリックス→リスト形式）解答
 練習問題31（セル結合を解除して値を埋める）解答
 練習問題32（連続数値部分を取り出し記号で連結）解答

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題25（各種VBA関数）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

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