100本ノック

VBA100本ノック 41本目:暗算練習アプリ

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回は、プログラムを考えるよりむしろ、「暗算できる範囲で」という ところに時間が掛かったか…

VBA100本ノック 40本目:複数ブックの統合

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 最近ではPower Querryという便利なものがあるので、敢えてマクロで行う 必要は無いかもしれない…

VBA100本ノック 39本目:数値リストの統合(マージ)

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 重複除去は個人的に、日常の業務でも低~中頻度で発生する事案。 私は面倒くさがりなので、たい…

VBA100本ノック 38本目:1シートを複数シートに振り分け

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回は、Indexで配列を一行ずつ切り取って振り分ける方式を採用。 Sub VBA_100Knock_38() ' 祝日…

VBA100本ノック 37本目:グラフの色設定

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回は、 グラフが一つしかない ⇒ 一つ目のグラフで決め打ち 最大値と最小値を編集 ⇒ 最大値、最…

VBA100本ノック 36本目:列の並べ替え

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 ( )内の数字で並べ替えるわけだが、( )以外の表記に一貫性がない。 従って、単純な並び替え…

VBA100本ノック 35本目:条件付き書式

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 行や列のコピー等と共に条件付き書式が増殖するのは、もはや宿命と言って 良いほど、定期的に遭…

VBA100本ノック 34本目:配列の左右回転

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 これは面白い問題。今回は、このように考えた。 左右の向きに関わらず、3回回すと元に戻る。 左…

VBA100本ノック 33本目:マクロ記録の改修

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 自分もマクロを覚えたての頃は、全コードに占めるマクロの記録が7~8割を 越えることなんてザ…

VBA100本ノック 32本目:Excel終了とテキストファイル出力

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 ファイル操作などを行う際、DirとFileSystemObjectのどちらを使用すべきか? が話題にあがるよう…

VBA100本ノック 31本目:入力規則

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 作成したマクロがこちら。 Sub VBA_100Knock_031() ' シート名リスト作成用配列。 Dim SourceLis…

久しぶりの等加速度直線運動

先日、長男(高2)の物理で、久しぶりに等加速度直線運動と再会した。 懐かしさのあまり、復習してみた。 ボールを地表から真上に、以下の条件で打ち上げたとする。 初 速: 重力加速度: このとき、t秒後の物体の速度は?という問題。 懐かしい、基本中の…

VBA100本ノック 30本目:名札作成(段組み)

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 名札が二列になっているので、改行することに2進法を使えないか?と ちょっと考えてみた。今回…

VBA100本ノック 29本目:画像の挿入

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 選択する方法は、先日も使用した「Application.FileDialog」を採用。 「選択できる拡張子は適当…

VBA100本ノック 28本目:シートをブックに分割

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 実際の業務でも、似たようなケースがあると思う。フォルダの存在確認は、 個人的にはFileSystemO…

VBA100本ノック 27本目:ハイパーリンクのURL

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 ハイパーリンク情報を取得するということで、今回はHyperlinksオブジェクト を使用する(そのま…

VBA100本ノック 26本目:ファイル一覧作成

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 ファイル名や更新日時、サイズを取得するということで、今回は FileSystemObjectを使用すること…

VBA100本ノック 25本目:マトリックス表をDB形式に変換

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回のお題は、マトリックス(行列)表からDB(テーブル)形式への変換。 列数は、登場する日…

VBA100本ノック 24本目:全角英数のみ半角

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 文字列を一文字ずつ判定して、半角や大文字に直していく。 参照設定を使わないで済むよう、今回…

VBA100本ノック 23本目:シート構成の一致確認

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 シート名のみ、位置は不問ということなので、シート名を辞書に 登録して比較することとした。 一…

VBA100本ノック 22本目:FizzBuzz発展問題

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 よく見かけるFizzBuzz問題と言えば、例えばイミディエイトウィンドウに結果を 出力するなどだろ…

VBA100本ノック 21本目:バックアップファイルの削除

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 前回はバックアップを一つ作るだけだったが、今回は最新の30個を残すとのこと。 そこで前回の解…

VBA100本ノック 20本目:ブックのバックアップ

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 どの時点での最新版かをファイル名に持たせる場合、日時だけでなく 時分秒の情報を含ませるのは…

VBA100本ノック 19本目:図形のコピー

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 オートシェイプのコピーということで、今回はDuplicateメソッドを使用する。 シート内のShapeを…

VBA100本ノック 18本目:名前定義の削除

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 参照範囲に「#REF!」が含まれるのは、良くあることで。しかも自分以外が 作成したファイルで起こ…

VBA100本ノック 17本目:重複削除(ユニーク化)

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回の出題は、実際の業務でも頻出する事例ではなかろうか。 出題内で特に制限されていなかった…

VBA100本ノック 16本目:無駄な改行を削除

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 今回立てた作戦は、以下のとおり。 一つ以上連続する改行を、その塊毎に全てLfに置換する。 先頭…

VBA100本ノック 15本目:シートの並べ替え

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 並べ替えか・・・。並べ替えと言えば、ソート。ソートと言えば、 たまに「バブルソート」や「ク…

VBA100本ノック 14本目:社外秘シート削除

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 手順としては、問題文が示す順に処理するのが順当なところか。 Sub VBA_100Knock_014() Dim Ws A…

VBA100本ノック 13本目:文字列の部分フォント

こちらで公開されている、100本ノックに挑戦。 www.excel-ubara.com 素晴らしい教材を公開いただき、ありがとうございます。上記リンク先から、問題文を転載。 「注意」という文字があるかを判定し、更にそれが何文字目から始まるかを 確認して赤の太字にす…