全シートを別の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,
プレイリストをフォルダごとに作成します。 ここに入力してLet's go! Sub 作成() Call PL作成(Range(
PlayListのハイパーリンク一覧を作成します。子フォルダも全て含んで作成してくれるのでとても便利です！！！Dim cnt As LongSub PlayListのハイパーリンク一覧を作る(Path As String) On Error Resume Next Dim buf As String, f As Object buf = Dir(Path &
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(
これは、エクセルになるかはわかりませんが、撮影日ごとに写真を整理するマクロを作りました。たくさん写真を撮影する方には、とても便利では？と思います。私はいつも日付-項番で保存しています。20210601-001 こんな感じです。旅行とかの場合はフォルダを別作成です。是非参考にしてみてください。今回はMp3とは異なり、FilesystemObjectを使用するので、事前に参照設定が必要です。Sub JPGの名前と作成日時を取得する &n...
プレイリストが完成しました！まだLUNA SEAだけですが、マクロを使うことでほぼ数分で出来ました。どうでしょうか？すごくわかりやすいですね(*^^*)プレイリストを開くとアルバム単位で再生されるので、聞きやすいかなと思います😀これをハイパーリンクでまとめていくとまた見やすいと思います。全フォルダからハイパーリンクを作成するマクロは、また公開いたします。プレイリストを作る方法はこちらからどうぞ！...
アルバムを聴くときに使用する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...
トラック番号・アーティスト・アルバム名・曲名を取得します。他にはいらないと思うので……これが代入出来たらもっといいのですが。何も入っていないファイルだと再生時にわかりにくいので、アーティスト名等が入力されているかを確認するためものです。↓こんな一覧が完成します↓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...
全シートを分割して保存するマクロです。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,
今回はMyMusicを整理しているのもあるので、アルバム・シングルでフォルダを作成していきます。まず作成先を決めます。作りたいフォルダ名の一覧を作成します。今回は「supercell」のシングルとアルバムでフォルダを作成します。エクセルではこのように入力します。Sub エクセルファイルからフォルダを作成する() Dim i As Integer For i = 6 To ActiveSheet.UsedRange.Rows.Count + 1 &nbs...
一時作業場としてデスクトップにファイルを保存するマクロを作りました。作業日と時間が入ってくれます。Sub 一時ファイルの保存() Dim Path As String, WSH As Variant Set WSH = CreateObject(
フォルダを整理します。今回はMy Musicを整理することにしました。今までバラバラだったフォルダを整理するのは本当に大変＆楽しかったです。＜整理基準＞・The はTとしない（The BeatlesならT_The BeatlesではなくB_The Beatlesとする）・漢字名の場合はアルファベット＋頭文字とする（吉岡亜衣加ならY_よ吉岡亜衣加とする）・単曲、クラシック、サウンドトラック、オムニバスアルバムはフォルダ前に数字を入れる。こんな感じでど...
全シートの選択セルを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(
【単語登録の恐怖】を動画にしました。これでもあなたはまだ単語登録を使用しませんか？これからも定期的に単語登録の恐怖をアップロードさせて頂きます。...
⑧数式を削除するマクロ数式がいらない書類の数式を削除します。データが重くなってきたときに確認する場所の中に「数式」があります。何年も前に提出した請求書なのに「=today()」が入っている。消費税の計算等が入っていて開くのが重い…などに対応します。これはアクティブシートの数式を削除しますSub アクティブシートの数式を削除する() Application.ScreenUpdating = False Application.Calculatio...
エクセルのファイルを綺麗にするマクロその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 ...
Outlookショートカットキー（画像）の一覧表を作りました。Excelとはまた違いますね。新規作成のメール、アドレス帳などのショートカットキーは入っていません。...
エクセルファイルが重くなる原因である「条件付き書式」などを削除するマクロをまとめました。④スタイルの削除ユーザー設定のスタイルを全て削除します。sub スタイルの削除Dim S As Variant For Each S In ThisWorkbook.Styles If Not S.BuiltIn Then S.Delete End If NextEnd Sub⑤入力規則を削除す...
エクセルファイルが重くなる原因である「条件付き書式」などを削除するマクロをまとめました。①条件付き書式の削除条件付き書式を全て削除するマクロになります。使っているものがある場合は実行しないで下さい。保管用データ・他社からのエクセルファイルなどで重宝するマクロかと思います。 Sub アクティブシートの条件付き書式の削除() Cells.FormatConditions.DeleteEnd Sub Sub すべて...
画像版のエクセルショートカットキー一覧を作りました。仮想キーボードのように使って頂ければ幸いです。見にくいでしょう。でもCtrl・Ctrl+Shift・Alt・Ctrl+Alt・Shift+Altなどあるからしょうがないのです。今回、あまり使わないであろうショートカットキーは排除しました。それでもまだこんなにあります。この中にはほぼ全く使われていないショートカットキーもあることでしょう……。...
Ctrlを押しながら使用するショートカットキーを画像にしました。仮想キーボードのように使用するといいかもしれません。主に使用する、ソフトごとであまり差異のないもののみ集めました。Ctrl＋Cなどどのソフトでも使用出来るものや、Ctrl+Page UpなどGoogle Chrome・EXCEL・Microsoft Edgeなど様々なソフトで使用することが出来るものを集めました。時間はかかるかもしれませんが、暇なときに覚えてみるのも良いかもしれません。...
枠線のマクロを作成しました。よく使う枠線を登録しておくと使いやすいです。Sub 太外枠と格子() With Selection .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).Weight = xlMedium ...
IEのショートカットキーを紹介します。Google Chromeと被る部分も多いですね。 F1 ヘルプ F3 検索 F4 アドレスバー F5 リフレッシュ F6 アドレスバー F7 カーソルブラウズ F10 メニューバーの表示 F11 全画面表示 F12 デベロップ画面 Ctrl 0 100％表示 Ctrl ＝ 縮小表...
Google Chrome ショートカットキー一覧です。Google Chromeでは殆どショートカットキーを使用していませんでした。色々と覚えたら楽しそうです。 Ctrl 0 100％表示 Ctrl = 縮小表示 Ctrl ； 拡大表示 Ctrl D ブックマークに追加 Ctrl E Googleで検索 Ctrl F ページ内検索 Ctrl G ページ内検索 Ctrl ...
Outlookのショートカットキーを調べました。ショートカットキーをあまり使用したことがなかったので、今回知ったものがたくさんありました。これからももっと覚えていきます。 Outlookショートカットキー一覧表 Ctrl D 削除 Ctrl E 検索 Ctrl F 転送 Ctrl M 送受信 Ctrl N 新規作成 Ctrl O 開く ...
エクセルのショートカットキー一覧表を作りました。抜けているものもあるかもしれません……。あったらすいません。N番煎じですが（笑）何年もエクセルを使用していましたが知らないショートカットキーがたくさんありました。これからも色々と覚えていきたいです。 エクセルショートカットキー一覧表 Ctrl A すべて選択。表をすべて選択する Ctrl B 太字 ...
FileSystemObject を使用してファイル一覧を取得する
私はファイル・フォルダを整理するときにいつもエクセルの「FileSystemObject」で一覧を作成しています。なぜかと言いますと、FileSystemObjectは可読性が高いからです。まず、FileSystemObjectを使用できるように、参照設定を設定します。これです。Microsoft Scripting Runtime をチェック→OKで終わりです。Sub getfolder()Dim fso As FileSystemObjectSet fso = New FileSystemObject ' インスタンス化Dim pfl As FolderSet pfl...
文字列をスラッシュやハイフンで区切るマクロを作成しました。式の修正がない分、マクロのほうが使用感がよいものとなります。まず、スラッシュで区切る方法です。式の場合はこのようになります。A5→123/456B5→=LEFT($A$5,FIND(
角2封筒印刷フォームを作成しました。1件ずつ印刷用のフォームですが、データベースを作成することにより、自動で住所を表示させるようにしました。ここに入力していきます。角2封筒をクリックするとこんなシートが出てきます。リストで変更します。後は印刷して終わりです。すごく使いやすい印刷フォームだと思います。ダウンロードファイルはこちらです。エクセル・単語登録・爆速仕事・要領よく働く・さぼる・さぼれる・サボ...
そういえば毎日同じ文言を入力している…そんなことありませんか？「よろしくお願いいたします。」などの言葉や、勤め先の会社名・客先名など。これは仕事でコンピュータを使用する人が絶対に単語登録すべきな単語の一覧です。まだまだ必要な言葉はありますが、今回ダウンロードしてすぐに使える単語の一覧を作成いたしました。まずは単語登録の方法です。①IMEの場合、右下の「A」や「あ」を右クリックします。②ユーザー辞書ツール...
「ブログリーダー」を活用して、haruさんをフォローしませんか？
指定した記事をブログ村の中で非表示にしたり、削除したりできます。非表示の場合は、再度表示に戻せます。
画像が取得されていないときは、ブログ側にOGP(メタタグ)の設置が必要になる場合があります。
