年末のファイル大掃除用のExcel

年末の大掃除　PCの中やサーバ共有ドライブ内のファイル整理用のExcelです

ファイルの一覧や、ファイルコピーなどをExcelで設定して一括でやる方がいいので

ちょいと前のExcelマクロですが良かったらファイル整理に使ってください。GoogleDriveで共有公開しています。

 

 

次の作業を行います

１．File一覧　　　　　指定フォルダーのファイル一覧表作成

２．File名変更　　　　指定フォルダーのファイル名を一括で変更　

３．FileCopy　　　　　指定フォルダーのファイルを一括で別フォルダーにコピー（写真整理用などに）

４．FolderSize確認　指定フォルダーのファイル数、サイズの確認用

５．サムネイル作成　　おまけ

 

 

◆File一覧

　　指定したフォルダーのファイル一覧、フォルダー一覧を作成します

　　サブフォルダーも併せて一括して表示もできます

　　共有ドライブなどで階層が深い場合にはサブフォルダーの階層を制限しての表示もできます

　　　　　会社の共有ドライブでとんでもなく深いのがあったので

　　Excelではファイルのワークシート名を表示もできます（時間かかりますが）

　　ファイル一覧にハイパーリンクをつけることもできます。

　　   ※ファイル名がとんでもなく長くなったり、文字によってはエラーを起こすこともあります。その場合はそのファイルはパスされます

    JPEGファイルの場合はExifデータの取得も行いますので、写真データの場合はカメラの種類や、絞り、シャッタースピードなども表示されます

 

　　　●使い方

　　　　セル「B6」にフォルダー名を記入し、「ファイル一覧」「フォルダー一覧」をクリックするだけです

　　　ファイルの日付や名称での絞り込みもできます

 

◆File名変更

　　ファイル名を一括で変更します。

　　写真などの場合機械的にファイル名がつけられていたりするので、一括でファイル名を変更できる機能が欲しかったので作りました

　　

　　　●使い方

　　　・セル「C4」に対象となるフォルダー名を入力し[File List]のタンをクリックします　　

　　　　　B8からファイル名が表示されます

　　　・次に表示されたファイル名の右側のセルに変更したい新ファイル名を入力します

　　　・入力が終わったら「ファイル名変更」をクリックします

　　　　「連番設定」ボタンは新ファイル名を入力時に一括してファイル名の前に連番を設定したい時などに使います

　　　　同名ファイルが既にある場合にはエラーになりそのファイルの名称変更はされません

　　　　ファイル名を変更したくない場合には、新ファイル名をブランクにするか、当該行削除してください

　　　　プログラムでは上から順にファイル名を変更し現ファイル名のセルがブランクになったところで終了します

　　　・新ファイル名のところに「DEL」と書くとファイル削除になります（一応削除前にはメッセージで削除の確認してから削除されます）

 

◆FileCopy

　　ファイルを一括して別フォルダーに日付別フォルダーにコピーするときに使います

　　私の場合は写真のSDカードから、HDDに日付別ふぁおるだーに分けてコピーするのに使っています

　　　●使い方

　　　・セル「C4」にコピー元フォルダー名「C5」にコピー先フォルダー名を設定します

　　　・「FileList」ボタンをクリックすると　現ファイル名が[B8]から　コピー先にはファイルの日付別のコピー先フォルダーが表示されます。

　　　　　　ここでコピー先フォルダー名を変更したい場合には、コピー先の名称を変更してください

　　　・「コピー実行」をクリックすると、上から順に指定フォルダーへのファイルコピーが行われます。

　　　　プログラムでは上から順にファイル名を変更し現ファイル名のセルがブランクになったところで終了します

　　　　すでに指定フォルダーに同盟ファイルがある場合にはこファイルのコピーはされません。

　　　　ただし「□上書きコピー」にチェックを入れると、同盟ファイルがある場合には上書きコピーされます

　　　・セル[E6]にはコピー時にファイル名の頭に特定の文字を入れたい場合には、ここに付加文字を入れるとコピー先のファイル名の頭にもの付加文字が付加されたファイル名になります.

　　　　例えば　付加文字に「CANAON_]を設定すると　　IMG_3711.JPG　→　CANAON_IMG_3711.JPG　と言う具合でファイル名がつけられてコピーされます。

 

◆FolderSize確認

　　共有ドライブなどで指定フォルダ内のファイル数サイズを調べるのに作成しました。参考までにご履行ください

　　サブフォルダーも全部チェックするのでそれなりに時間かかります。

　　

　　　●使い方

　　　・セル「A3]にフォルダーの容量を確認したいフォルダー名を入力します

　　　・「一括 Size Check」ボタンをクリックします

　　　　　　指定フォルダー以下のサブフォルダーを表示し、各フォルダーのファイル数、ファイルサイズの合計を表示します

　　　　　　HDDなどの実容量確認にはセル[C3]に１クラスタのサイズを入れておくと、簡易に実容量計算を行います。

　　　　　　(1byteのサイズのファイルでもHDD上では１クラスタ分のサイズを占有するので）

 

◆サムネイル作成

　　写真などの一覧のホームページを作成する場合の簡易機能です

　　昔使っていたのですが、今はGoogle Photoなどを使えばいいのでほぼ使っていません

　　機能としてはファイル一覧のHTMLのファイルを出力するだけです。

　　とりあえずHTMLでの写真一覧を作成したい場合にどうぞ。

　　　●使い方

　　　・適当にやってみてください

 

 

マクロには特にパスワードかけていないので、上記に書いてない機能もあるかもね、継ぎ足し継ぎ足しで汚いマクロですが好きにいじくってください。

 

l

A5サイズシステム手帳用に来年のカレンダー超整理手帳っぽく作成Excel

毎年この時期になると手帳の季節。

一昨年からiPadのカレンダーに切り替えて紙の手帳から移行するぞとやってるけど、やはり手を動かして書いているからか、紙の認知力、記憶、ファイリング能力はいいので、システム手帳もやめられずに2つ持ちと言うことで毎年作成しています。

 

今年もA5サイズシステム手帳用に万年カレンダー作成用Exceで来年のカレンダ作成です。

以前のバージョンは祝日をマクロ内で計算して作成してたのですが、祝日調整をマクロの修正でやらないといけなくなるので、素直に休日シートに休日を設定すればいいようにシンプルに変更しました。

2020，2021年特に変更も多かったしね

 

GoogleDriveで公開していますので、良かったらどうぞ

 

次の種類のカレンダー作成できます

 

◆超和月A3

　超整理手帳っぽく縦１列を１週間で6週間分のカレンダー作成します。 ◀▶ボタンで次の６週間になります。

　これが私のメインで使うやつです。以前は「超整理手帳」10年以上使っていたのでそのカレンダーは使いやすかったのですが、システム手帳でこのカレンダーが売っていなかったし、ネットでも見当たらなかったので作ることにしました。そもそもそれがこのExcelの始まりです。

　A3横で印刷して織り込んで利用する想定です。A3横だと当然ながらA5にはなりませんので、 図赤線で切り取ってください。ここはちょっと面倒ですが年に1回なので。右側は線に合わせてカットすると織り込んだ時にきっちりA5に収まります。この右側部分でTAG用に耳を残してカットしてもいいです。ほんとは10週分程度できればいいのですが

　織り込んで利用するので、使うときには折ったり開いたりすることになります。この時普通にコピー用紙だと紙がペラペラで折り目から切れてしまうので、私は120g/m2程度の少し厚手のしっかりした紙を使っています。

　　SAKAE Technical Paper  No.FKB-A3-WK 白120g/m2 

　　amazonでA4しか見当たらなかったけど、HANDSの紙コーナーや、丸善にはA3おいてありました。

　ボールペンもシャープペンでも記入しやすいので今のところこれです。本当は超整理手帳で使われている紙が手に入ればいいのですが。普通には売っていないので。

 

２週間分のところで織り込むと、3つ折りでリファイル用の穴の部分は逃げてちょうどA5リファイルに収まる形になります。

 

◆超和月A4
　「超和月A3」のA4横版です。A4横なので縦１列１週間で４週間分のカレンダーになります。
　「超和月A3」は切る手間が必要ですが、これだと織り込むだけなので。

　A4横で印刷して織り込んで利用する想定です。最初はこれでやってました。

 

◆MinCalenderA5

 A5サイズに２年分のカレンダーを作成します [C5]セルに年の初日(１月１日）を設定し[休日設定]ボタンをクリックします

[C5]セルに4月1日を設定した場合は、年度版でのカレンダーとなります

　これも少し厚手のアイボリー色の紙に印刷しています。

　　トチマンOA用紙 LPP-A4-I(アイボリー）　極厚口 128g/m2

 

◆MinCalenderA4

　A4１枚に１年間のカレンダーを作成するイメージで作っています

　あとは「MinCalenderA5」と同じです


◆和月A4-1
A4横サイズでの１カ月分のメモカレンダーを作成します。◀▶ボタンをクリックすると月を変更します。
[B1]セルに月初日を書いてから◀▶ボタンを押してもいいです。
A5Refileでは半分に折ってから利用になります。

 

◆英月A4-1
和月A4-1の英字版です


 

●その他

　プリンタにより微妙に位置ずれ有るので、各自調整してみてください。

　マクロはパスワードなしでそのままで開きますので好きに改造してください。

　土日の休日判定はマクロでやってるので、これを金土などで変更したい方はどうぞご自由に

 

　六曜作成用には「MT-SOFT 旧暦カレンダー 六曜取得」サイトを利用させていただきました。

・MT-SOFT 旧暦カレンダー 六曜取得

 

 

 

PCの画面の文字がにじむ、読みづらいと感じるときの調整　メモ 「ClearTypeテキスト」

WindowsPCでテレワークで家では2ndディスプレイをTVにつないでいると文字が読みにくく感じるので何とかできないかなあ。　っと探していたら
Windowsの設定にClearTypeテキストの調整　と言うのがあったのででメモ

でも最近特に見づらくなったのは、年のせいかもしれないなと思いながら…

 

結果：多少Excelなどの文字も見やすくなった気もします。

 

WindowsXP意向で搭載されたディスプレイ文字のアンチエイリアシング処理と言うことです。文字フォントの画像境界のギザギザを調整することで見やすく処理する機能で、サンプルで文書が表示され、どっちが見やすいかの選択をすることで調整してくれます。

２画面あるとそれぞれの画面でその調整を行います。

また、別のディスプレイを接続したらそのディスプレイでの調整も行うことになります。

 

 ここで記載している画面はWindows11での画面になります。Windows10でも同様ですが、多少メニューの表示位置が違っています。

 

設定方法

-----------------------------------------------------------------------

１．設定画面から「ClearTypeテキストの調整」を起動

　　・キーボードの「Windows」+「I」キーを押下。

　　　　or デスクトップ画面で右クリック「ディスプレイの設定」を選択

　　・設定画面が表示されるので「個人設定」を選択

 

　　・右画面の下の方にで「フォント」をクリック

　　　　※Windows10だと上の方にあったのですが、Windows11だと一番下から2番目になってました。

 

　　・フォント画面の一番下に関連設定「ClearTypeテキストの編集」をクリック

　　　※ここもWindows10だと上の方にすぐあるのですが、Windows11の場合はフォントがいっぱい表示されて、その一番下にありました。

　　

　　・□ClearTypeを有効にするにチェックを入れて

 

　　・どちらのディスプレイをやるのかの選択。

　　　私は2画面両方やってみました。

 

　　・サンプル文書が表示されて見やすい方を選択します。

 

　　・次へで、またサンプル文書が表示され見やすい方を選択します。

　　　これがしつこく２面パターン６面パターンと５回選択があります

　　結構微妙です。

　　まあ違ったときは後で再度設定すればいいので、パッと見で見やすい方を選択していいと思います。2面の選択はほんとに微妙です。6面パターンで見ると、クッキリはっきりの違いが判る感じです。

 

　　・これで画面1つ調整おしまい、２画面あるので同じ調整をもう1つの画面で行っておしまい。

 

以上　なんとなく見やすくなった感じです。

 

後は、ディスプレイのコントラスト調整と、メガネの作り替え

 

お庭のソーラーライト修理

庭のソーラーライト1つ点灯しなくなった。バッテリー交換しても充電してくれないみたい


まあ買い換えれば済む話だけど


開けてみたらこんな感じでチップのところはコーティングされてる。



調べてみたら、簡単なLEDのドライバーCL0116と

インダクタ1つで出来そう



と言うことで秋月電子に行ってオモチャ購入¥680

ちょっと別のも入っているけど

ドライバーとインダクタ1つだけだと¥45ですね

ケースや電池Boxが高いのかな。




テスト用に1つ組み立てケースに入れてテスト

写真は乾電池ですが　後でNiH電池と入れ替えで



回路？の確認は出来たので、後は庭のソーラーライトを修理


ダイソー行ったら1回り小さいチューリップのやつ¥200で売ってたよ。恐るべしダイソー



ヘッドライト磨き直しで再コーティング　こりゃいい！

初代CX5 ヘッドライトの上側の部分が曇った様な感じに。


ディーラーの営業はこれ内側か外側かわからないなどと言う。ヘッドライトとカバー1セット交換っていくら取る気だよまったく。


っとyoutube見てたらいい商品が。


磨いてから薬剤スチーミングで完全に綺麗になってる様な

ちょいと高いけどヘッドライト交換よりは安いし、どんなものか知りたい気もするしと言うことで。

amazonで売ってたのでポチッと¥7000


Allplace ヘッドランプ リムーバー セット... https://www.amazon.jp/dp/B07HXM199G?ref=ppx_pop_mob_ap_share



中身は　ペーパー#180〜#5000まで１枚づつ

スチーマー、薬剤、マスキングテープ　12v電源、ケース詳細はamazon見てね


なんか安っぽいケースだけど、ケースに入っているのって片付ける時に良いよね。

っで作業に入ります。
今回はヘッドライトの上部だけなので、それ以外をマスキング。
#300で端っこを少し。
ああ確かにライト表面のコーティングが劣化して、ペーパーで落ちるのがわかる感じ。
ではライト上部全部磨いて劣化したコーティングをゴシゴシ剥がします。
劣化した上部のコーティング全部剥いだところで
#600,#800と順に磨いて表面をなめらかに
最後は#5000で仕上げてウエスで拭いたら結構もう綺麗じゃないかって思う。多少曇ってる感じだけど。
でも本番はここから

スチーマーに薬剤入れて、コンセントにつないで。


外でやってたから、薬液のスチームが出ているのよく見えないけど、なんとなく出口から陽炎が出てるので、これをライトに近づけたら、ビックリ。
スチームが当たった所が綺麗に完全に透明に。
これは驚きます。感動！！

面白いことにコーティング剥がし損ねたちょっと凹んだ部分は透明にならず。
成る程、これならいけるぞって、剥がし損ねた部分を再度ペーパーで磨き直して、スチームかけて。
スッキリ！新品同様に綺麗になりましたよ。
満足。

後は耐久性がどの程度有るかですね。

薬剤もまだ8割程度余ってるので、他の車でヘッドライト曇ってるの見るとやってみたくなる感じです。