練習問題25(各種VBA関数)解答
マクロ練習問題25の解答ページです。
マクロVBA練習問題
課題 | 元データ | 回答 |
"VBA"を"vba"に変換 | Excelマクロ(VBA)練習 | |
括弧()内の文字のみ取り出す | Excelマクロ(VBA)練習 | |
拡張子を取り出す | マクロ.セミナー.xls | |
ひらがなをカタカナに変換 | まくろVBA練習 | |
全て小文字に変換 | ExcelVba | |
半角のみならOK、全角含む場合はNG | ExcelVba | |
日付データに変換 | 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技術解説(2022-12-14)
数字(1~50)を丸付き数字に変換するVBA|VBA技術解説(2022-11-15)
TEXTAFTER関数(テキストの指定文字列より後ろの部分を返す)|エクセル入門(2022-11-14)
TEXTBEFORE関数(テキストの指定文字列より前の部分を返す)|エクセル入門(2022-11-14)
TEXTSPLIT関数(列と行の区切り記号で文字列を分割)|エクセル入門(2022-11-12)
LAMBDA以降の新関数はVBAで使えるか|VBA技術解説(2022-11-11)
WRAPCOLS関数(1次元配列を指定数の列で折り返す)|エクセル入門(2022-11-08)
WRAPROWS関数(1次元配列を指定数の行で折り返す)|エクセル入門(2022-11-08)
EXPAND関数(配列を指定された行と列に拡張する)|エクセル入門(2022-11-07)
TAKE関数(配列の先頭/末尾から指定行/列数を取得)|エクセル入門(2022-11-06)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.並べ替え(Sort)|VBA入門
8.エクセルVBAでのシート指定方法|VBA技術解説
9.マクロって何?VBAって何?|VBA入門
10.繰り返し処理(Do Loop)|VBA入門
- ホーム
- マクロVBA入門編
- マクロVBA練習問題解答
- 練習問題25(各種VBA関数)解答
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。