仕事でも趣味でも、PC上のファイル名を一括変更したい時、たまにありますよね?
SelectedItems(1) ' ユーザーに処理方法の確認 Dim rc rc = MsgBox("指定したフォルダのファイル一覧を取得します。" & vbCrLf & _ vbCrLf & _ "現在のファイル一覧は残したまま、その後ろに追加しますか?" & vbCrLf & _ "※ 「いいえ」を選択した場合、現在の一覧をクリアして、新たに一覧を作成します" _, vbYesNoCancel) If rc = vbCancel Then MsgBox ("処理をキャンセルしました。") Exit Sub ElseIf rc = vbNo Then '既存データクリア (headerR + 1 & ":" &). ClearContents End If ' ファイル情報一覧を作成 Dim fileObj As Object Dim i As Long: i = 1 Dim endR: endR = Cells(, "A")(xlUp) For Each fileObj In tFolder(folder) If (tributes And 2) Or (tributes And 4) Or (tributes And 8) Or (tributes And 16) Then '2:隠しファイル 4:システムファイル 8:ディスクドライブボリュームラベル 16:フォルダまたはディレクトリ はスキップ Else 'ファイル一覧に追記 (endR + i, "A") = folder (endR + i, "B") = tBaseName(fileObj) (endR + i, "C") = tExtensionName(fileObj) (endR + i, "D") = (endR + i, "E") = Created (endR + i, "F") = LastModified i = i + 1 Next End Sub Sub ファイル移動名前変更() rc = MsgBox("ファイル名一括変更 & ファイル一括移動処理を行います。よろしいですか? ", vbOKCancel) ' 変数宣言 Dim errFlg As String Dim procFlg As String Dim oldFileName As String Dim oldFolderPath As String Dim oldFileType As String Dim oldFileFullPath As String Dim newFolderPath As String Dim newFileName As String Dim i As Long Dim endR: endR = ("A3") + ("A3").
オススメ記事
また、Excelについて基礎から、学びたい方はこちらの書籍もご覧ください。
仕事の小技 2019. ファイル名変更マクロ | すぐに使える エクセル マクロ Excel VBA ツール集. 10. 26 こんにちは!zumzumiです。 仕事で役立つエクセル小技を本日はご紹介したいと思います。 「ファイル名を一括で変更する方法はないかな? ?」 仕事上画像ファイル名前変更をよく行うのですが、10枚、20枚のファイルなら一つづつファイル名の変更ができますが、100枚一気に変更となると作業効率がとても悪くなります。 そんな時便利な機能が 「エクセルのVBAの活用」 です。 簡単なコピペと作業ですぐにできますので、ぜひ活用してみてください。 ちなみに、手順は・・・ ①デスクトップに「変更前」フォルダと「変更後」フォルダを用意する ②エクセルファイルを開き、ファイル名一括変更のVBAを作成する(簡単なコピペで作成できます!) ③開いたエクセル上で、ファイル名変更のテーブルを作成する ④マクロの実行を行いファイル名を一括変更する この4つだけです!簡単でしょう! では、実際にそれぞれの項目を見ていきましょう ①デスクトップに「変更前」フォルダと「変更後」フォルダを用意する 名前を変更したいファイルを用意します。デスクトップに「変更前」というフォルダを新規で作成し(ファイル名は何でもいいです。今回はわかりやすく、「変更前」というフォルダ名にしてます)変更前フォルダの中に、ファイルを入れます。 ファイル名を変更した後のファイルは「変更後」というフォルダに格納するので、「変更後」というフォルダも作成します(こちらのファイル名も何でもいいです) こんな感じです。 今回は例として4枚の画像のファイル名を変更してみようと思います。変更前フォルダの中には、 「,,, 」 という画像が入っています。 こんな感じです。 ②エクセルファイルを開き、ファイル名一括変更のVBAを作成する エクセルでファイル名一括変更のVBAを作成します。とっても簡単なので、やってみましょう!
未分類 更新日: 2020年11月9日 こんにちは、nanakoです。 家で過ごすことが、以前より多くなり、 ルーフガーデンで過ごす時間も増えました。 我が家のルーフガーデンは、直結しているベランダを含めると、約7畳くらいの広さがあります。 ※一条工務店では、ルーフバルコニーをルーフガーデンと呼びます。 時には、朝食をここで食べたり・・・ ハンモックを購入してみたり・・・ 小さいテントの中で、涼んでみたり・・・ 置くものによっても、ルーフガーデンの雰囲気はかなり変わりますね。 特に、ハンモックは子どもたちにも人気です。 在宅ワークの時もあるので、とてもいい気分転換になります! (在宅ワーク時の我が家での過ごし方は、また更新しますね!) 一条工務店 、 森のしずく のご紹介 をご希望の方、私のブログのフォーム( こちら )からご連絡ください! - 未分類 - i-smart, ismart, アイスマート, フロアーコーティング, フロアコーティング, モノトーンインテリア, ルーフバルコニー, 一条工務店, 森のしずく, 狭小住宅
ルーフガーデンでの過ごし方 じゅんぴーさんのお宅もタイルです。 バルコニー関連 一条工務店で屋上を作ります。 【費用は? 】一条工務店で屋上テラスを作る 【費用は? 】一条工務店で屋上テラスを作る
ご訪問ありがとうございます 皆さんこんにちわ。 最近ようやく娘がパパと二人でお風呂に入れるようになりました。ずっとママと一緒じゃないと入れなかったけどママ抜きでも入れるようになり成長したな〜と実感してるタナカさんです! 小さい頃娘をお風呂に入れてる時に首持って洗うのに、手が滑って浴槽の中に落としてしまったことがあるのを思い出しました。あの時は0. ルーフガーデン 一条工務店. 8秒くらいで救出しました。 今回はバルコニー編ですね。 我が家は最初ルーフガーデンなんて作る気さらさらありませんでした。家づくりをしていく中でルーフガーデンのある暮らしに夫婦揃って憧れてしまい、吹き抜けをなくしてでもルーフガーデンを作りました! 我が家のルーフガーデン(バルコニー) 我が家のルーフガーデンはこんな感じです! 約10帖サイズです! 1部屋分くらいのサイズのルーフガーデンを採用しました。 お金があれば吹き抜けもルーフガーデンも両方採用してたんですけどね・・・ 世の中そんなに甘くない・・チクショー。 てな訳で我が家がなぜ吹き抜け<ルーフガーデンを選んだのかをまとめていきたいと思います。 吹き抜けは声が漏れる? まず、嫁が気になったと言っていたのが嫁の友達の一条ハウスへよく行くんですけど吹き抜けは2階にいても1階で話してる声筒抜けだよ〜と言ってました。 広さにもよると思いますが、我が家とほぼほぼ間取りが同じなのでそれは嫌だなと思いました。 プライベート感を出したい我が家では声が筒抜けなのは嫌ですね。 でも吹き抜けにしたら何と言っても開放的で部屋がすごい広く見えますよね。 僕はそれに惚れ込んで一条工務店で建てようと決めたのにリビング吹き抜けは採用しませんでした。 僕は実家が窓が少なく暗い家なので吹き抜けを作って大きいFIX窓をつけるのに憧れてました。 ではなぜルーフガーデンを採用したんでしょう?
未分類 投稿日: 2019年8月23日 こんにちは、nanakoです。 暑さも一段落してきて、夜は涼しくなりましたね。 さて、建て替え前の旧自宅なくて、改築の新居で絶対につけたかったもの、 それは、【 ルーフガーデン 】です。 ※このテーブルクロスは、天気が良いので干しているだけです(笑) ベランダとはまた違い、 プライベートな空間を保ちつつ も、 開放的な雰囲気を楽しむ ことができます。 春は、ここでティータイムを楽しんだり、 夏は、孫たちがきてプールを楽しんだり、花火をみたり、 秋は、涼しい夜風でリラックスしたり、 冬は・・・雪景色でも見ましょうか(笑) 家づくりを考えたとき、 とにかく、毎日がうれしくなるような、早く帰りたくなるような家に したかったので、ルーフガーデンはお気に入りの場所になりました。 これからお家づくりをされるみなさんの参考になれば幸いです。 - 未分類 - i-smart, instagram, ismart, アイスマート, インテリア, エコカラット, シンプル, ハウジング, ハウスメーカー, フロアーコーティング, ベランダ, モノトーン, モノトーンインテリア, ルーフガーデン, ルーフバルコニー, 一条工務店, 家づくり, 新築, 森のしずく