BitterS.

全シートを別のPDFで保存する

全シートを別のPDFで保存するマクロです。Sub 全シートを別のPDFで保存する()    Dim wb As Workbook: Set wb = ActiveWorkbook    Dim pt As String: pt = wb.Path    Dim wbname As String: wbname = Left(wb.Name, InStrRev(wb.Name,

2021/06/30 00:00

一括PlayList作成

プレイリストをフォルダごとに作成します。 ここに入力してLet's go! Sub 作成()     Call PL作成(Range(

2021/06/29 00:00

PlayListのハイパーリンク一覧を作成する

PlayListのハイパーリンク一覧を作成します。子フォルダも全て含んで作成してくれるのでとても便利です！！！Dim cnt As LongSub PlayListのハイパーリンク一覧を作る(Path As String)    On Error Resume Next    Dim buf As String, f As Object    buf = Dir(Path &

2021/06/28 00:00

JPGの名前と作成日時を取得する

Sub JPGの名前と作成日時を取得する    Dim fso As FileSystemObject    Set fso = New FileSystemObject ' インスタンス化        Dim shel As Object, fol As Object, folItem As Object    Dim tarFol As Variant, mp3 As String    Dim i As Integer: i = 4    Dim buf As String, msg As String      buf = Dir(Range(

2021/06/27 00:00

撮影日ごとに写真を整理する

これは、エクセルになるかはわかりませんが、撮影日ごとに写真を整理するマクロを作りました。たくさん写真を撮影する方には、とても便利では？と思います。私はいつも日付-項番で保存しています。20210601-001 こんな感じです。旅行とかの場合はフォルダを別作成です。是非参考にしてみてください。今回はMp3とは異なり、FilesystemObjectを使用するので、事前に参照設定が必要です。Sub JPGの名前と作成日時を取得する  &n...

2021/06/26 00:00

PlayList完成です

プレイリストが完成しました！まだLUNA SEAだけですが、マクロを使うことでほぼ数分で出来ました。どうでしょうか？すごくわかりやすいですね(*^^*)プレイリストを開くとアルバム単位で再生されるので、聞きやすいかなと思います😀これをハイパーリンクでまとめていくとまた見やすいと思います。全フォルダからハイパーリンクを作成するマクロは、また公開いたします。プレイリストを作る方法はこちらからどうぞ！...

2021/06/25 00:00

m3u8のプレイリストを作成する

アルバムを聴くときに使用するm3u8のプレイリストを自動で作成するマクロを作りました。もっと簡単な方法も有るかもしれませんが、私はこれを使っています。こうやって設定します。Sub プレイリストを作成する()    Dim Target As String    Dim shel As Object, fol As Object, folItem As Object    Dim tarFol As Variant, mp3 As String    Dim i As Integer: i = 4    Dim...

2021/06/24 00:00

VBAでmp3のデータを取得する

トラック番号・アーティスト・アルバム名・曲名を取得します。他にはいらないと思うので……これが代入出来たらもっといいのですが。何も入っていないファイルだと再生時にわかりにくいので、アーティスト名等が入力されているかを確認するためものです。↓こんな一覧が完成します↓Sub MP3_Data()  Dim shel As Object, fol As Object, folItem As Object  Dim tarFol As Variant, mp3 As String  Dim i As Integer: i...

2021/06/23 00:00

シートを分割して保存するマクロ

全シートを分割して保存するマクロです。Sub シートを分割して保存するマクロ()    Application.ScreenUpdating = False    Dim ws    Dim wb As Workbook: Set wb = ActiveWorkbook    Dim Fpath As String: Fpath = wb.Path    Dim wbname As String: wbname = Left(wb.Name, InStrRev(wb.Name,

2021/06/22 00:00

VBAでフォルダを作成する

今回はMyMusicを整理しているのもあるので、アルバム・シングルでフォルダを作成していきます。まず作成先を決めます。作りたいフォルダ名の一覧を作成します。今回は「supercell」のシングルとアルバムでフォルダを作成します。エクセルではこのように入力します。Sub エクセルファイルからフォルダを作成する()    Dim i As Integer     For i = 6 To ActiveSheet.UsedRange.Rows.Count + 1  &nbs...

2021/06/21 00:00

作業中のファイルをデスクトップに保存するマクロ

一時作業場としてデスクトップにファイルを保存するマクロを作りました。作業日と時間が入ってくれます。Sub 一時ファイルの保存()    Dim Path As String, WSH As Variant    Set WSH = CreateObject(

2021/06/20 00:00

フォルダを整理する

フォルダを整理します。今回はMy Musicを整理することにしました。今までバラバラだったフォルダを整理するのは本当に大変＆楽しかったです。＜整理基準＞・The はTとしない（The BeatlesならT_The BeatlesではなくB_The Beatlesとする）・漢字名の場合はアルファベット＋頭文字とする（吉岡亜衣加ならY_よ吉岡亜衣加とする）・単曲、クラシック、サウンドトラック、オムニバスアルバムはフォルダ前に数字を入れる。こんな感じでど...

2021/06/19 00:00

全シートの選択セルをA1にセットする

全シートの選択セルをA1にセットしてくれます。これがあると仕事が楽になります。Sub 全シートの選択セルをA1にセットするApplication.ScreenUpdating = False    Dim ws As Worksheet    Dim acws As Worksheet: Set acws = ActiveSheet    For Each ws In wb.Worksheets        ws.Activate        ws.Range(

2021/06/18 00:00

単語登録の恐怖 動画編

【単語登録の恐怖】を動画にしました。これでもあなたはまだ単語登録を使用しませんか？これからも定期的に単語登録の恐怖をアップロードさせて頂きます。...

2021/06/17 00:00

エクセルのファイルを綺麗にするマクロ－4

⑧数式を削除するマクロ数式がいらない書類の数式を削除します。データが重くなってきたときに確認する場所の中に「数式」があります。何年も前に提出した請求書なのに「=today()」が入っている。消費税の計算等が入っていて開くのが重い…などに対応します。これはアクティブシートの数式を削除しますSub アクティブシートの数式を削除する()    Application.ScreenUpdating = False    Application.Calculatio...

2021/06/16 00:00

エクセルのファイルを綺麗にするマクロ－3

エクセルのファイルを綺麗にするマクロその3です。⑥プリントエリア外のデータを削除するマクロこれはアクティブシートの「プリントエリア外」のデータを削除します。Sub プリントエリア外のデータを削除する()    Dim pt As String    pt = ActiveSheet.PageSetup.PrintArea    Dim r As Long    r = ActiveSheet.Range(pt).Rows(ActiveSheet.Range(pt).Rows.Count).Row + 1   ...

2021/06/15 00:00

Outlookショートカットキー（画像）一覧表

Outlookショートカットキー（画像）の一覧表を作りました。Excelとはまた違いますね。新規作成のメール、アドレス帳などのショートカットキーは入っていません。...

2021/06/14 00:00

エクセルのファイルを綺麗にするマクロ－2

エクセルファイルが重くなる原因である「条件付き書式」などを削除するマクロをまとめました。④スタイルの削除ユーザー設定のスタイルを全て削除します。sub スタイルの削除Dim S As Variant    For Each S In ThisWorkbook.Styles        If Not S.BuiltIn Then            S.Delete        End If    NextEnd Sub⑤入力規則を削除す...

2021/06/13 00:00

エクセルのファイルを綺麗にするマクロ－1

エクセルファイルが重くなる原因である「条件付き書式」などを削除するマクロをまとめました。①条件付き書式の削除条件付き書式を全て削除するマクロになります。使っているものがある場合は実行しないで下さい。保管用データ・他社からのエクセルファイルなどで重宝するマクロかと思います。 Sub アクティブシートの条件付き書式の削除()    Cells.FormatConditions.DeleteEnd Sub Sub すべて...

2021/06/12 00:00

エクセルショートカットキー画像版一覧表

画像版のエクセルショートカットキー一覧を作りました。仮想キーボードのように使って頂ければ幸いです。見にくいでしょう。でもCtrl・Ctrl+Shift・Alt・Ctrl+Alt・Shift+Altなどあるからしょうがないのです。今回、あまり使わないであろうショートカットキーは排除しました。それでもまだこんなにあります。この中にはほぼ全く使われていないショートカットキーもあることでしょう……。...

2021/06/11 00:00

Ctrlを使うショートカットキー

Ctrlを押しながら使用するショートカットキーを画像にしました。仮想キーボードのように使用するといいかもしれません。主に使用する、ソフトごとであまり差異のないもののみ集めました。Ctrl＋Cなどどのソフトでも使用出来るものや、Ctrl+Page UpなどGoogle Chrome・EXCEL・Microsoft Edgeなど様々なソフトで使用することが出来るものを集めました。時間はかかるかもしれませんが、暇なときに覚えてみるのも良いかもしれません。...

2021/06/10 00:00

枠線いろいろマクロ

枠線のマクロを作成しました。よく使う枠線を登録しておくと使いやすいです。Sub 太外枠と格子()    With Selection        .Borders(xlEdgeLeft).LineStyle = xlContinuous        .Borders(xlEdgeLeft).Weight = xlMedium        .Borders(xlEdgeTop).LineStyle = xlContinuous        .Borders(xlEdgeTop).Weight = xlMedium ...

2021/06/09 00:00

IE ショートカットキー

IEのショートカットキーを紹介します。Google Chromeと被る部分も多いですね。 F1 ヘルプ F3 検索 F4 アドレスバー F5 リフレッシュ F6 アドレスバー F7 カーソルブラウズ F10 メニューバーの表示 F11 全画面表示 F12 デベロップ画面 Ctrl 0 100％表示 Ctrl ＝ 縮小表...

2021/06/08 00:00

GoogleChrome ショートカットキー

Google Chrome ショートカットキー一覧です。Google Chromeでは殆どショートカットキーを使用していませんでした。色々と覚えたら楽しそうです。 Ctrl 0 100％表示 Ctrl = 縮小表示 Ctrl ； 拡大表示 Ctrl D ブックマークに追加 Ctrl E Googleで検索 Ctrl F ページ内検索 Ctrl G ページ内検索 Ctrl ...

2021/06/07 00:00

Outlookショートカットキー一覧表

Outlookのショートカットキーを調べました。ショートカットキーをあまり使用したことがなかったので、今回知ったものがたくさんありました。これからももっと覚えていきます。 Outlookショートカットキー一覧表 Ctrl D 削除 Ctrl E 検索 Ctrl F 転送 Ctrl M 送受信 Ctrl N 新規作成 Ctrl O 開く ...

2021/06/06 00:00

エクセルショートカットキー一覧表

エクセルのショートカットキー一覧表を作りました。抜けているものもあるかもしれません……。あったらすいません。N番煎じですが（笑）何年もエクセルを使用していましたが知らないショートカットキーがたくさんありました。これからも色々と覚えていきたいです。 エクセルショートカットキー一覧表 Ctrl A すべて選択。表をすべて選択する Ctrl B 太字 ...

2021/06/05 00:00

FileSystemObject を使用してファイル一覧を取得する

私はファイル・フォルダを整理するときにいつもエクセルの「FileSystemObject」で一覧を作成しています。なぜかと言いますと、FileSystemObjectは可読性が高いからです。まず、FileSystemObjectを使用できるように、参照設定を設定します。これです。Microsoft Scripting Runtime をチェック→OKで終わりです。Sub getfolder()Dim fso As FileSystemObjectSet fso = New FileSystemObject ' インスタンス化Dim pfl As FolderSet pfl...

2021/06/04 00:00

スラッシュで区切るマクロ

文字列をスラッシュやハイフンで区切るマクロを作成しました。式の修正がない分、マクロのほうが使用感がよいものとなります。まず、スラッシュで区切る方法です。式の場合はこのようになります。A5→123/456B5→=LEFT($A$5,FIND(

2021/06/03 00:00

角2封筒をエクセルで印刷する

角2封筒印刷フォームを作成しました。1件ずつ印刷用のフォームですが、データベースを作成することにより、自動で住所を表示させるようにしました。ここに入力していきます。角2封筒をクリックするとこんなシートが出てきます。リストで変更します。後は印刷して終わりです。すごく使いやすい印刷フォームだと思います。ダウンロードファイルはこちらです。エクセル・単語登録・爆速仕事・要領よく働く・さぼる・さぼれる・サボ...

2021/06/02 00:00

絶対単語登録すべき単語一覧表

そういえば毎日同じ文言を入力している…そんなことありませんか？「よろしくお願いいたします。」などの言葉や、勤め先の会社名・客先名など。これは仕事でコンピュータを使用する人が絶対に単語登録すべきな単語の一覧です。まだまだ必要な言葉はありますが、今回ダウンロードしてすぐに使える単語の一覧を作成いたしました。まずは単語登録の方法です。①IMEの場合、右下の「A」や「あ」を右クリックします。②ユーザー辞書ツール...

2021/06/01 00:00