練習問題25（各種VBA関数）解答
マクロ練習問題25の解答ページです。
マクロ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)してください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。
シンキングタイム
シンキングタイム終了
書くべきマクロ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練習問題解答」の記事
練習問題22（総合練習4）解答
練習問題23（総合練習5）解答
練習問題24（再帰呼出し）解答
練習問題25（各種VBA関数）解答
練習問題26（全シート処理とハイパーリンク）解答
練習問題27（データ分割し別ブック保存）解答
練習問題28（シートを別ブックにして値のみにする）解答
練習問題29（ロット引き当て）解答
練習問題30（マトリックス→リスト形式）解答
練習問題31（セル結合を解除して値を埋める）解答
練習問題32（連続数値部分を取り出し記号で連結）解答
新着記事NEW ・・・新着記事一覧を見る
多階層フォルダ（ディレクトリ）の作成｜VBAサンプル集（7月31日）
VBAのインデントについて｜VBA技術解説（7月16日）
「VBA Match関数の限界」についての誤解｜エクセル雑感（7月15日）
省略可能なVariant引数の参照不可をラップ関数で利用｜VBA技術解説（7月12日）
100桁の正の整数値の足し算｜エクセル雑感（7月9日）
LSetとユーザー定義型のコピー（100桁の足し算）｜VBA技術解説（7月9日）
Variant仮引数のByRefとByValの挙動違い｜エクセル雑感（7月5日）
Variant仮引数にRange.Valueを配列で渡す方法｜エクセル雑感（7月5日）
Variantの数値型と文字列型の比較｜エクセル雑感（7月1日）
VBAのVariant型について｜VBA技術解説（6月30日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
- ホーム
- マクロVBA入門編
- マクロVBA練習問題解答
- 練習問題25（各種VBA関数）解答
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。