VBA

フォルダコピーとファイルの移動 ~ ⑦ まとめ ~

頂いた問い合わせに基づき一連のマクロを作成する過程を、前回までの 都合6回にわたりご紹介してきた。今回は、そのまとめを行う。 今回の要件は、纏めると以下のとおり。 【環境】 フォルダA下に、フォルダB1,B2,・・・が存在する。 その各々に、yy…

フォルダコピーとファイルの移動 ~ ⑥ 移動したファイルの圧縮 ~

先日は、フォルダの移動中に中断処理を追加してみた。 infoment.hatenablog.com 今日も、昨日の続きから。 リクエストの最後の条件は、以下のとおり。 移動先で、ファイルを圧縮したい。 圧縮は、ファイル単位で行いたい。 圧縮後、圧縮前ファイルは削除した…

フォルダコピーとファイルの移動 ~ ⑤ 処理の中断 ~

先日は、フォルダの移動結果をシートに入力するところまでを作成した。 infoment.hatenablog.com 今日も、先日の続きから。 リクエストによれば、処理の中断処理が必要だ。しかも非常停止ではなく、 繰返しを抜ける処理だ(サイクル停止)。そこで、シートに…

フォルダコピーとファイルの移動 ~ ④ ログを出力 ~

昨日は、あるフォルダを別のフォルダへ移動する操作を、連続で行うところまでを作成した。 infoment.hatenablog.com 今日も、昨日の続きから。 うっかりしてた。移動の成否と、移動前後のフォルダパスを記録しなければ ならなかった。記録用ログファイルは、…

フォルダコピーとファイルの移動 ~ ③ 連続で処理 ~

昨日は、あるフォルダを別のフォルダへ移動するところまで作成した。 infoment.hatenablog.com 今日も、昨日の続きから。 今回は、指定フォルダ下にある判定対象フォルダを、連続で処理してみる。 各フォルダの名前を取得して判定などに使用するわけで、検討…

フォルダコピーとファイルの移動 ~ ② 移動先のフォルダ作成 ~

昨日は、いただいた問い合わせ内容を整理しながら、テスト環境を作成してみた。 infoment.hatenablog.com 今日も、昨日の続きから。昨日の記事を書いた後、質問された方から幾つか条件の訂正連絡があった。 フォルダの移動先に、フォルダAは最初からは存在…

フォルダコピーとファイルの移動 ~ ① 必要な条件を書き出してみる ~

先日、このような問い合わせをいただいた。 そこで、私の場合どのようにゴールするか、検討過程も含めて紹介しようと思う。 ※現時点でこの課題は、未解決の状態です(超見切り発車)。 あるフォルダから、別のフォルダへファイルを移動したい。また、移動先…

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秒後の物体の速度は?という問題。 懐かしい、基本中の…

組合せ表を作る 2.重複を認めない

先日は、部品1~部品4が各々AからCの何れかの値を取り得るとき、 その全ての組合せ表を作ることに挑戦した。 infoment.hatenablog.com今回は、A~CではなくA~Dの何れかの値を取るものとして、 それらが重複しない場合のみの組合せ表を作成してみよ…

組合せ表を作る 1.すべての組合せを考える

詳細は割愛するが、仕事で3つの装置の部品を組み合わせて何某か評価することとなった。評価するための組合せ表が必要となったので、作ってみた。 エッセンスのみ、一部だけ表すと、こんな感じだ。 これをマクロで作成するなら、例えばこんな感じだろうか。 …

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(テーブル)形式への変換。 列数は、登場する日…

Excelで二個の平方数の和を求める

前回は、Excelで素因数分解をやってみた。 infoment.hatenablog.com なぜ、素因数分解をやってみたか。そもそもの切っ掛けは、こちらの動画を 見たことだった。 ※再生すると音が出るので、ご注意ください。 youtu.be 合成数が2つの平方数の和で表される条件…

Excelで素因数分解

前回は、Excelで素数判定をやってみた。 infoment.hatenablog.com なぜ、素数判定をやってみたか。そもそもの切っ掛けは、Excelで素因数分解って どんな風にやれるかな?と思ったこと。というわけで、やってみた。 素因数分解 (そいんすうぶんかい、英: prim…

素数判定(再び)

2年ほど前に、素数判定のユーザー定義関数を作ってみた。 infoment.hatenablog.com 見返してみると、改善可能な個所がいくつかあった。この2年で、 私も少し成長したようだ(当社比)。 といっても、改善点は以下の二つのみ。 4以上の偶数は素数ではない…

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を…

取り消し線が設定された範囲の文字を除去したい

先日、こんな相談を受けた。 「Excelで、文字列の一部に取り消し線が設定されているのですが、 その部分だけ除去して別のセルにコピーできませんか?」 ということで、挑戦してみた。 依頼内容を視覚化すると、↓ こんな感じだ。 取り消し線が付された文字を…