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").
大量のファイルの名前を書き換えないといけない。ひとつひとつ手作業でやっていたら日が暮れそうだ。 この記事では、こんな悩みをエクセル(VBA)を使って一瞬で解決します。 さっそくやっていきましょう!
プロローグ( とばしてください ) あなたは、「ネ申エクセル」という言葉を聞いたことがあるだろうか。 本来は計算に使うエクセルを、文字と罫線を配置するためだけに使うことを揶揄する言葉だ。※1 理系出身の方なら、「こんな酷いエクセルを見た」という笑い話で盛り上がった経験があるだろう。情報系の学科を卒業した私も、一度や二度ではなくそのような場に居合わせてきた。しかし告白しよう。そのような場に渦巻く哄笑の中でひとり、冷たい汗が背中をつたう私がいたことを! 印刷会社の営業職を続けて10年余。私は日々「ネ申エクセル」と戯れ、そして慣れきってしまった…… いや、それだけではない。 見た目を整えるという「表のネ申エクセル」から遠く離れ、計算するでもなく書類を作るのでもない「裏のネ申エクセル」。 いわば、「 闇のエクセル術――エクセル黒魔術 」とでも言うべきものに、私は取り憑かれてしまっているのだ。 ※1 情報を再利用しにくくなったり、データ分析やRPAツールなどの機械的な処理が難しくなるので、良くないとされています。 こんにちは。営業部の斎藤です。今回は印刷会社(弊社だけ? )での、ちょっと変わったエクセルの使い方を紹介します。決して正道ではありませんが、あなたの業務にも役に立つかもしれませんよ。 エクセル黒魔術とは エクセル黒魔術は、私一人が名付けているだけの、時短テクニックです。簡単にいうと、 「エクセル」 と 「正規表現(テキストエディタ)」 と 「コマンドプロンプト(闇、黒き画面)」 を活用して、作業の効率アップをはかります。いろいろな事に応用できますが、今回はその便利さを紹介するために一例を紹介しましょう。 ※ 呪文である正規表現は、追加の道具が必要なため今回は扱いません。 テストケース:卒業アルバムの顔写真データに、出席番号と氏名のファイル名をつける。 想定ケース: ある学校の卒業アルバム制作が進行中。生徒の顔写真は、出席順にカメラマンが撮影済。 納品の直前に、写真データも納品することになり、 すべての写真に【出席番号と生徒名】のファイル名をつけることに! ファイル名変更マクロ | すぐに使える エクセル マクロ Excel VBA ツール集. さぁ手作業だと大変です…… 左の写真データに、右のようなファイル名を付けます。 材料: 出席順に撮影された写真データ、 出席名簿のエクセルファイル 道具:(Windowsの想定です) エクセルと メモ帳 ダミーデータは こちら からダウンロードできます。 step1 出席番号から、納品ファイル名を作る 左側の客先支給の名簿から、納品ファイル名を作ります。 エクセルに慣れた方なら、文字列を結合する関数や、"&"演算子を使って処理すると思いますが、ここでは「邪道」としてテキストエディタを使います(今回はメモ帳でどうぞ)。 手順はこうです。 1.列を追加して、"組"、"番 _ "、"" でフィルする。 2.エクセルからメモ帳にコピペ。 3.タブを、置換して削除。ついでに、姓名の間のスペースも削除 4.エクセルに戻す。 メモ帳でタブを置換するには、タブをコピーして、置換メニューに貼り付けます。 ちょっと不便ですね。 エクセルデータをメモ帳にコピペすると、 列の境目はタブ、行の境目は改行 になります。これを利用して、メモ帳に貼り付けてからタブを置換することで、 簡単に結合 ができます。 (関数を使わないので、エクセルの再利用ができませんが、良いのです。エクセル黒魔術は一度きりの作業をいかに早く済ませるかがキモなのです!)
FileSystemObject Dim ws01 As Worksheet Dim lRow, I As Long Dim FolderName, OldFile, NewFile As String Set ws01 = Worksheets ( "Sheet2") FolderName = "C:\DATA" '保存されている保存先(フォルダー) lRow = ws01. Row 'A列の最終行を取得 For I = 6 To lRow 'A列の最終行まえ繰り返す OldFile = FolderName & "\" & (I, " A ") 'A列から旧ファイル名を取得 NewFile = FolderName & " \ " & ws01. ファイル名を一括変更したい！そんな時はエクセルVBAを活用しよう！ | zumizumiブログ. Cells ( I, "B") 'B列から新ファイル名を取得 If File_function. FileExists ( NewFile) = False Then 'ファイル名の存在を確認します。既に新ファイル名があれば、変換不可 Name OldFile As NewFile 'ファイル名を変更します。(旧ファイル⇒新ファイル) ws01. Cells ( I, "C") = "完了" Else ws01.
オススメ記事
お祝いのメッセージを添えて、 出産祝いを上手に届ける例文が満載。 こんにちはオーガニックコットンベビー服のオーガニカリーです。私たちは10年出産祝いを送り続けてきました。出産祝いにメッセージカードをつけるお客様が多くいらっしゃいます。 今までのメッセージの数々を振り返り、かしこまった文例だけではなく、心のこもった、気持ちの伝わる出産祝いのメッセージをまとめました。 ジャンル毎にまとめているので、メッセージ文に悩んだ時にはご自身にあったメッセージを探してみてください。 みなさんの祝福の気持ちがこもったメッセージのヒントにしていただけたら嬉しいです。 親しい友達からのメッセージ(女性から) <一般的なメッセージ文> 一般的な傾向としては、 赤ちゃんの成長を願うもの と ママの体調を気遣うもの 、また 家族の幸せを願うもの が多くみられます。付け加える内容としては、贈り物について触れたり、会いたい気持ちを伝えるメッセージもあります。 出産おめでとう! 新しい家族が増えて賑やかになるね!可愛いベビーに会えるのを楽しみにしています。 体調には気をつけて子育て頑張ってね! 近々みんなで集まろう!!!! 出産おめでとう! 待ちに待った赤ちゃん、やっと会えて良かったね。 本当にお疲れさま☆ 可愛い◯◯ちゃんと会えるのを楽しみにしてるよ。 よかったらバスローブ使ってくださいな。 ご出産おめでとう!! よく頑張ったね、本当にお疲れ様! 自分の事ようにとっても嬉しいです。 これからも家族3人で笑顔でいっぱいの毎日を過ごしてね。 ◯◯くんのご誕生おめでとう☆ ママもお疲れさまでした。 これからすくすく元気に成長していくことを心から願っています。 無理をせず、ゆったりと過ごしてください。 ◯◯くんご誕生おめでとうございます。 なかなか会いに行けるタイミングがないので、ささやかですが先にお祝い送らせてもらいます。 近々ぜひ会いに行かせてね。 家族が増えて賑やかだと思いますが、充実した楽しい日々をお過ごし下さい。 <ちょっと個性的なメッセージ> 母子共に健康なご出産、本当におめでとうございます! 子供の成長を願う言葉. 今年一番の大吉報でした。 ◯◯君の健やかな成長と、ママとパパの更なる大活躍を心より祈念しています。 生まれてきてくれてありがとう。 これからの長い時間が、○○ちゃんにとって幸せなものであるように心から願っています。 ◯◯ちゃん、誕生おめでとう!
元気な赤ちゃんが生まれてきてくれて、こちらも幸せな気持ちになりました。 元気にすくすくと成長してくれるよう心から願ってます。 本当におめでとう!!! !おばさんおじさんより ◯◯くんのお誕生、本当におめでとうございます。 末永くご健康に過ごされますようお祈り申し上げます。 先輩からの出産祝いメッセージ 子育ての先輩や職場の先輩など様々な先輩からのメッセージ例です。先輩ママの場合は子育てについてのアドバイスをさらっと柔らかく加えたり、出産祝いの贈り物についての使い方などを書く人が多くいらっしゃいます。あまり上からの意見になり過ぎず、新米ママに寄り添った内容にするのが理想です。 ご出産おめでとうございます 待ちに待った◯◯君のご誕生、心より嬉しく思います のんびりできる今だからこそ、◯◯君、旦那様との時間をどうぞ大切にお過ごしください ご出産おめでとうございます。 ささやかですが、お祝いの品をお贈りします。 私たちもお祝いでいただいたのですが、長く使えて助かっているものです。 ◯◯さんはゆっくり休んでね。落ち着いた頃にでも、お会い出来る日を楽しみにしています。 赤ちゃんのご誕生おめでとうございます! 子育ては大変かと思いますが、毎日が変化と発見で楽しい日々となっている事と思います。 ご両親の愛情のもと、健やかに成長されるようお祈りしております。 出産おめでとうございます! 育児は何かと大変かと思うけど、気を楽にしてあまり無理はしないようにね。 早く赤ちゃんに会えるのを楽しみにしてます~ ご出産おめでとうございます! 子供の成長を願う言葉 英語. 毎日いろいろと大変かと思いますが、何かお手伝いできることがあったらいつでも言ってね。 ◯◯ちゃんに会える日を楽しみにしています。 二人目、三人目のメッセージ 二人目、三人目の出産に送るメッセージは倍増する喜びを伝える内容が中心となります。また、ママやパパの苦労についても労う言葉を多く目にします。 実際に育児や家事が大変な時なので励ましの言葉はママの心にも響きますよ。2人目、3人目と増えたことで大変さばかりのマイナスな表現ではなく、明るくプラスな表現にしましょう。 出産おめでとう! 二児のママになってますます忙しいと思うけど、体調には気を付けて過ごしてね。 これからも兄妹の成長を楽しみにしているよ! この度は、二人目のお子様のお誕生おめでとうございます。 心ばかりのお祝いのお品を贈らせていただきます。 お子様の健やかなご成長とご家族のご健康を心よりお祈り申し上げます。 ご出産おめでとうございます!
届け先の近くのお花屋さんが 直接手渡しでお届け。 当日配達もOK その2. 子どもの日のイベントあてに送る祝電の文例 ●自治体などで、児童福祉や子育て支援(親子の交流)の一環として子ども祭り、子供の日ふれあい祭りなどのイベントが催されることがあります。子どもの日を迎える子ども自身、または主催者、事務局にあてた祝電の例文です。 ●オープニングセレモニーなどで披露されることがあるほか、事務局スタッフや主催者への感謝や慰労の意味で送られることもあります。 ●送り主は、教育委員会や、自治体の担当部署、協賛企業などです。 みなさん。 子どもの日おめでとうございます。 この催しは子どもたちがお父さん、お母さんといっしょにさまざまな遊びを通 して体験することを目的としています。今日はぜひ子供たちと一緒に楽しんで下さい。 楽しい一日を過ごされますようお祈りしています。 (118文字) スタッフのみなさんへ。 つつがなくこの日を迎えられましたことを心よりお祝い申し上げます。 忙しい中、準備に奔走してこられた皆様のご尽力に敬意を表し、 本日のこの子どもの日祭りが盛会でありますようお祈り申し上げます。 (104文字) 皆さん。こどもの日おめでとうございます。 ◯◯◯を代表いたしまして、皆さんにお祝いの言葉を贈ります。 今日はお父さん、お母さんと一緒に、楽しいひとときを過ごしてください。 子どもたちのお健やかな成長をお祈り申し上げます。 (108文字) その3. 端午の節句のお祝い電報の文例・例文 ●男の子にあてた祝電の例文です。 ●贈り主は祖父母から孫へ、親戚・親族(おじ・おば)から甥・姪へなどのように、家族・友人・知人などによるプライベートなお祝いメッセージです。 ●祝電だけでなくお祝いのご祝儀や贈り物に添えてメッセージカードにも使えます。 ◯◯◯ちゃん、 こどもの日おめでとう。 なんでもたべて、いっぱいあそんで、 おとうさんのようにつよくおおきくそだってください。 (60文字) ◯◯◯ちゃん、 こどものひおめでとう。 こいのぼりのようにのびのびと、 きんたろうのようにたくましくそだってください。 (55文字) ◯◯◯くんへ。 子どもの日おめでとう。 早く大きくなって、一緒にキャッチボールができる日を楽しみにしています。男らしく強く元気な子に育って下さい。 (71文字) ◯◯◯くんへ。 大空を泳ぐ鯉のぼりのように、 男の子らしく、のびのびと 元気で健やかに育って下さい。 (47文字) ◯◯◯ちゃんへ。 こどものひのおいわいをおくります。 ようちえんでおともだちはたくさんできましたか。 なつやすみにはおじいちゃんとおばあちゃんにおはなししてください。 げんきであいましょう。 (91文字) その4.
元気に育っているかな? お父さんとお母さんの言うことをよく聞いて、元気で良い子に育ってね。 また、お休みの日はこっちに遊びに来てくれると嬉しいな。 お父さんとお母さんに、よろしくって言っておいてね。 2.○○くん、○○くんのお父さんとお母さん。 ○○くんが健やかに成長するよう、お祈りしています。 お父さんとお母さんも、本当におめでとう。 家族みんなで幸せに、○○くんを見守ってあげてね。 など、両親と子供が一緒に読める内容がおすすめです。 両親のみに宛てた手紙だと子供が読みづらい上に、こどもの日のお祝いなのに自分が祝ってもらえない、仲間外れになった気分をしてしまうことがあります。 両親への手紙を書く場合は、できるだけ別で用意してあげてください。 こどもの日のお祝いの言葉まとめ いかがでしたか? こどもの日は男の子の健康と成長を願う大切な日ですから、キチンとお祝いの言葉を贈りたいですよね。 それでは、今回のおさらいです。 ・こどもの日のお祝いメッセージは、子供に分かりやすいものがおすすめ ・直接子供にお祝いを伝える時は、短い言葉で分かりやすくしよう ・メッセージカードや手紙を贈る場合は、子供が読めるよう難しい字を避けると良い ・両親に宛てた手紙だけでなく、子供も読める内容にしてあげよう の4つです。 お祝いの言葉は自分が思う通りに書けば良いものですが、子供に宛てる場合は内容が伝わるかどうかが大事です。 大人に宛てるキチッとしたものとは違うので、読みやすくて親しみやすさが感じられるような文章がおすすめです。
渡すと喜ばれるものとは 親族や知人の子が、成人式を迎えて大人の仲間入りをしたら、お祝いをしたいと考える方もいるかと思います。 では、成人のお祝いは、いつ渡せば良いのでしょうか... 成人式のお祝いで喜ばれる贈り物は? 子どもや親族が人生の一大イベントである成人式を迎えた際は、盛大にお祝いしてあげたいですよね。 しかし、具体的にどのようにお祝いすればいいのか分からない... 孫のお宮参りの記念にプレゼントを贈ろう! 赤ちゃん誕生から1カ月が無事に経過したことをお祝いするお宮参り。神社へのお参りや写真撮影、食事会などが行われる中、お孫さんへのお祝いはどのようにすれば良いの... 親族の赤ちゃんの百日祝いのメッセージを贈ろう! 赤ちゃんの生後100日目または120日目までに「一生食べ物に困らないように」という願いを込めて行われる「百日祝い(ももかいわい)」。別名「お食い初め」とも呼... もっと読む