仕事でも趣味でも、PC上のファイル名を一括変更したい時、たまにありますよね?
FileSystemObject Dim RC As Integer Dim lRow, I As Long Dim FolderName, OldFile, NewFile As String Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") lRow = ws01. Row 'A列の最終行を取得 For I = 6 To lRow If IsEmpty ( ws01. Range ( "B" & I)) = True Then MsgBox "新ファイル名を指定していないセルがあります。" Exit Sub End If Next I RC = MsgBox ( "選択したファイル名を変更しますか? ", vbYesNo + vbQuestion, "確認") 'ファイル名変換を実行するか確認します。 If RC = vbNo Then MsgBox ( "ファイル名変換をキャンセルしました。") Exit Sub 'プログラムを中断 End If FolderName = ws01. 【Excel】ファイル名一括変更・ファイル一括移動ツール – 微風 on the web…. Range ( "A3") '保存されている保存先(フォルダーパス) For I = 6 To lRow OldFile = FolderName & "\" & (I, " A ") 'A列から旧ファイル名を取得 NewFile = FolderName & " \ " & ws01. FileExists ( NewFile) = False Then Name OldFile As NewFile 'ファイル名を変更します。(旧ファイル⇒新ファイル) ws01. Cells ( I, "C") = "変換不可" End If Next I End Sub ' ●実行前~実行後 ※プログラム実行後、下記の通りに実行されます。 ①ファイル名を選択するとダイアログボックスが表示されます。 ②ファイルを選択して、旧ファイル名としてファイル名とフルパスを取得します。 ③変換する新しいファイル名を入力します。 ④「ファイル名変換」ボタンをクリックします。(実行) ⑤変換結果が表示されます。 ※変換結果が「完了」ならば、新ファイル名へ変換されています。 最後まで、ご覧いただきまして誠に有難うございました。 また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
ファイル名を自動で変更することができる! ファイル名変更マクロツールをご紹介します。 エクセルファイルをダウンロードしてすぐに使えます。 これで大量のファイル名一括変更も簡単にできます。 エクセルファイル以外にも使えます。 ※但し、ファイル形式(拡張子)の変更はできません。 操作画面 手順 ① 変更するファイルを1つのフォルダに保存する ② 【 ファイル名取得 】 ボタンを押す ③ ダイアログでフォルダを選択 作業完了後、A2に選択したフォルダ名、A5以下にファイル名が記入されます。 ④ B 列に A 列ファイルに対応する変更ファイル名を設定する ⑤ 【 ファイル名変更 】 ボタンを押す ファイル名が変更され実行結果が記入されます。 ※変更できなかったファイルには実行結果の欄に「×」が表示されます。 ↓ダウンロードはこちらをクリック(詳しい手順、注意事項はファイルの中に記載)
FileSystemObject Dim lRow, I, F As Long Dim FolderName, OldFile, NewFile As String Dim FileName As Variant Dim ws01 As Worksheet Set ws01 = Worksheets ( "Sheet3") FileName = Application. GetOpenFilename ( MultiSelect: = True) 'ダイアログボックスが表示(MultiSelect:=Trueでファイルを複数選択) If FileName ( 1) < > False Then FolderName = File_function. GetParentFolderName ( FileName ( 1)) '選択した最初のファイル名からフォルダーまでのルートを取得する Else MsgBox "作業をキャンセルされました" Exit Sub 'プログラムを終了 End If lRow = ws01. エクセル黒魔術で、ファイル名を一括で変更する | 株式会社ヂヤンテイシステムサービス. Row 'A列の最終行を取得 ws01. Range ( "A6:A" & lRow + 1). ClearContents 'A列のデータ(文字列のみ)をクリアー F = 1 '選択ファイルの1件目を設定 For I = 6 To 5 + UBound ( FileName) '選択したファイルの数を繰り返す。(最大値) ws01. Range ( "A" & I) = File_function. GetFileName ( FileName ( F)) 'ファイル名を順番にA列(セル)へ転記します。 F = F + 1 '次のファイル名を指定するために+1加算する。 Next I ws01. Range ( "A3") = FolderName '選択したフォルダーバスをセル「A3]へ転記 End Sub ' ●「ファイル名変換」・・・・Sub FilenameChange04() 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 ' '******** ******* ' ' Sub FilenameChange04 () '指定した新ファイル名を変換します。 Dim File_function As New Scripting.
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").
オススメ記事
6円となります。やや割高感はありますが、スポンジのお手入れの手間を考えなくていいのは楽。食洗機を持っているため、スポンジを使う頻度が低い人や、生もの用や油汚れ用、シンク用などスポンジを使い分けたい人にも便利です。 【関連記事】 トイレブラシは使わない!使い捨てや代用品で衛生的にトイレ掃除 雑巾は使い捨てが正解!? 掃除アイテムの扱い方 家にある不用品を使う!お金がかからない節約掃除術 夏の台ふきんは洗えるペーパータオルに賢くスイッチ! 大人気ニトリの「厚手台ふきん」、使い捨てが便利!
ペーパータオルとは? 外出先から帰宅して洗面所で手を洗ったり、キッチンでお皿洗いをしたあとなど、何かと家の中では手を拭く機会が多いですよね。 そんなときに便利なのが、ペーパータオル。「ハンドタオル」や「タオルペーパー」などと呼ばれることもあります。普通のティッシュと比べると硬めで、手を拭いたときに水分で破けにくいのが特徴です。 また使い捨てタイプのものが多く、毎回衛生的に使えるのが人気です。環境に配慮した商品も多く、エコに生活したい方におすすめの商品もたくさんありますよ! ペーパータオルを選ぶポイント ここではまず、おすすめのペーパータオルの選ぶ際のポイントを紹介します。3つのポイントを押さえると、自分にぴったりのアイテムに出会えますよ! 1. 【これ買ってよかった!】洗って使える超タフなペーパータオル。お風呂・トイレ掃除などマルチに活躍 (1/1)| 8760 by postseven. 質感 手を洗ったあとに残った水分を拭き取る用であれば、肌触りがやさしいものがおすすめ。手を洗ったあとに拭くのであれば、やわらかめの質感がおすすめ。お肌にやさしく、毎日でも使いやすいですよ。 また、濡れた手の水分をしっかり吸い取るものが欲しいという方は、厚みがあり少し硬めのものがグッド。 キッチンでカウンターを拭いたり、食卓の食べこぼしを拭き取るのであれば、吸収力のあるものを選びたいですよね。また、毛羽落ちの少ない商品を選ぶと、汚れが残らずにきれいに掃除できますよ! 2. サイズ 次にチェックしたいのが、ペーパータオルの大きさです。商品によってサイズが異なるので、使用用途に合わせて選びましょう。 食卓周りやキッチンの掃除には、25cm四方の大判サイズがおすすめ。汚れをきちんと拭き取って、拭いた後は折りたたんで捨てられるので手が汚れるのを防ぎます。 普通の箱ティッシュと同じくらいの大きさの小判サイズは、約22cm×17cmのもの。洗顔後の顔吹きや、手洗い後の手拭き用にぴったりです。 3. 形 ペーパータオルには、ロールタイプとポップアップタイプの主に2種類があります。それぞれの特徴を踏まえて、目的に合わせてセレクトしましょう。 ロールタイプ ロールタイプのペーパータオルは、ポップアップタイプと比較すると紙質がやわらかいものが多いのが特徴。エンボス加工がされたものは、吸収性が高く使い心地がいいですよ! 実際に使うとき、ロールタイプはキッチンペーパー用のホルダーに通せば使い勝手もよく、収納も簡単でおすすめです。 ポップアップタイプ 箱ティッシュのような形をしたものがポップアップタイプと呼ばれるペーパータオルです。箱に収まっている場合と、やわらかいビニール素材に入っている場合があります。ロールタイプに比べると、比較的お手頃価格で手に入るのが魅力。 紙質はさまざまで、公共施設や病院に置いてあるような硬めのタイプから、やわらかい肌触りのものまでさまざま。そのまま開けて置くだけすぐ使えるので、収納用品を買いそろえなくていいので便利です。 人気ペーパータオルおすすめ10選!
ショッピングで詳細を見る ¥127 (税込) 無漂白だから食品に触れても大丈夫 出版用紙から家庭で使われるペーパーなどさまざまな種類の紙を扱う『大王製紙』のペーパータオルです。漂白の加工がされていないため、ペーパーが白くないのが特徴。漂白加工をしていないため、食材に触れるシーンに向いています。また厚みもしっかりとあるため、ゴシゴシと拭くのにも向いており、キッチンコンロや洗面所の掃除にもおすすめ。 ペーパータオル比較一覧表 商品画像 クレシア バウンティ Bounty 商品名 スコッティ ハンドタオル100 エリエール 超吸収キッチンタオル シートタイプ100W2P スコッティ ペーパーふきんサッとサッと クレシアEF ハンドタオル ソフトタイプ200 バウンティ プリント エリエール Plus+キレイ ペーパーハンドタオル 特徴 最安値 2, 380 円 送料要確認 詳細を見る 273 円 送料無料 84 円 230 円 4, 800 円 110 円 162 円 3, 880 円 489 円 1, 480 円 ー 200枚 43カット 商品リンク Amazonで見る 楽天市場で見る Yahoo! で見る 手作りの壁掛けマグネット式ペーパータオルホルダーがあると便利! 今回はおすすめのペーパータオルを紹介しました。ペーパータオルとひとくちに言っても、触り心地はさまざま。使用する目的に合わせて、いくつか試してみるのもおすすめです。 LIMIAでは自作できる壁掛けのペーパータオルケースの作り方も紹介しています。こちらの記事も合わせて参考にしてくださいね。 ※記載している商品情報は、LIMIA編集部の調査結果(2020年5月)に基づいたものです。 ※本サイト上で表示されるコンテンツの一部は、アマゾンジャパン合同会社またはその関連会社により提供されたものです。これらのコンテンツは「現状有姿」で提供されており、随時変更または削除される場合があります。 ※一部の画像はイメージです。 LIMIAからのお知らせ 【24時間限定⏰】毎日10時〜タイムセール開催中✨ LIMIAで大人気の住まい・暮らしに役立つアイテムがいつでもお買い得♡
ヤフーとアスクルがお届けする通販サイトです。 【LOHACO限定】スコッティファイン洗って使えるヘーハータオル極厚手1ロールとは?特徴は? LOHACO限定】スコッティファイン洗って使えるヘーハータオル極厚手1ロールの特徴です。 まるて布巾のような拭き心地!極厚手ヘーハータオル 使うたひ新しい清潔なシートて衛生的! キッチン周りの油汚れから床掃除まて、幅広く使える LOHACOの公式ホームページはこちらです!
最終更新日: 2021-07-07 「洗って使えるペーパータオル」とは? 筆者宅ではキッチンペーパーとして、クレシアの「スコッティファイン 洗って使える ペーパータオル」を愛用しています。 こちらの商品は布のような丈夫さと紙のような高い吸水性を兼ね備えた不織布キッチンペーパーです。水切りや油切り、食器拭きやテーブル拭きの他、シンクやガスコンロの掃除など幅広く活用できます。 汚れたら新しいものにすぐ交換できるため、いつでも清潔に使用できることも大きな特長です。 何度も繰り返し使えるから高コスパ! ペーパーロールには切り取り線がついており、手で簡単にカットできます。 ペーパータオル1枚あたりのサイズは24. ペーパータオルの人気おすすめランキング15選【キッチンや洗面所で大活躍】|セレクト - gooランキング. 2cm×27cmで、一般的なキッチンペーパーよりも大きめです。布のように丈夫なこのペーパータオルは、水で濡らしてかたく絞っても破れることはありません。 価格は1ロールあたり61カットで300円前後です。通常のキッチンペーパーと比較すると割高に感じるかもしれませんが、1回使い捨てではなく洗って数回使えるためコスパが高い商品と言えます。 1日1枚だけでこんなに使える!
水回りや掃除に使うふきんやスポンジは、ちょっと油断しているとすぐにクサくなったり、カビが広がったりと不衛生になりがちです。きちんとお手入れをするのが大変ならば、思い切って使い捨てに変えてみてはいかがでしょう。ふきんやスポンジのおすすめ使い捨て商品3点を紹介します。 何度も使えるペーパータオル「スコッティファイン」 洗って絞れて何度も使えるペーパータオルとして人気の『スコッティファイン』。キッチンペーパーとしても、ふきんとしても使える万能アイテムです。 食器用ふきんの代わりとしておすすめのスコッティファイン 料理の際にはキッチンペーパーとして、野菜の水切りや揚げ物の油切りなどに使えます。また、食器用ふきんとして、テーブルやコンロ、シンク周りを拭く台ふきんとしても使えます。吸収力が高い上に乾きやすいので、汚れたら洗って干して、またすぐに使えます。キッチン周りで使い切ったら、床などを拭く雑巾に回してもOK。しっかり使い切ったら、ゴミ箱へポイ。 吸収力も高いので、食器もしっかり拭けます。びしょびしょになったら、絞ってまた使える! 普通のキッチンペーパーをふきん代わりに使用している人もいますが、一回で使い捨てになってしまいますし、一日に何枚も必要になるので、ちょっともったいないでしょう。 一枚で一日使い回せるスコッティファインなら、無駄もない上に衛生的 です。 Amazonでの価格は1ロール(61カット)で370円(税込)前後となっています。1カットあたり約6円となり、一日2枚使ったとしても一日あたり12円と考えれば、決して高いお値段ではないのではないでしょうか。 クタクタにならない!