いざ実行!! 実行すると、以下の画像のように変更したいファイルがA列に一覧表示されます。 手順③B列の情報を手動で記入する 変更後のファイル名はさすがに自動設定はできませんので、 変更したい名前をそれぞれ記入 してください。 私の場合は以下のように記入を行いました。 ※上の画像のように連番ファイルを作成する場合は基準となるセルの角をダブルクリックすると一瞬で記入することができます。 ここまでで下準備完了です。 手順④ファイル名変更を実行する 準備が整ったら、もう一度VBAの記述に戻ります。 次はファイル名変更コードを記入しましょう。 以下のコードを丸ごとコピーしてください。 Sub file_rename() Dim j As Integer j = 1 Do Until Cells(j + 3, 1) = "" Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2) j = j + 1 ※今回はマクロが2つあるので、ご注意ください。 file_renameの方を実行します。 再び、いざ実行!! (実行しても、エクセルシート上はなにも変化はおきません。) 実行が終わったら、ファイルが保存してあったフォルダを確認してみましょう。 ファイル名がエクセルシートのB列に記入した名前に変わっているはずです。 終わりに というわけで今回は、指定したフォルダ内のファイルの名前を一括変更する方法をご紹介しました。 一度作っておけば、いろいろな場面で活用できるはずです。ぜひ時間のあるときに作っておきましょう。 このブログでは、エクセル(VBA)を中心に、様々な業務効率化スキルを紹介しています。 ■生産性の低い作業ははるべくしたくない。 ■もっと業務を効率化したい。 こんな人はぜひ他の記事も読んでみてください。 また、VBAを使ってこんなことがしたいんだけど、やり方がわからない、という悩みを抱えているかたは、お気軽にコメント欄から質問してください。 私にわかる範囲であればご協力いたしますので。(もちろん無料です。) 最後に・・・ このブログを応援してあげても良いよ、という方は以下のボタンをポチっていただけると嬉しいです。 にほんブログ村 Twitterもやっていますので、興味があれば覗いてみてください。 Follow @HigashiSalary それではまた!!
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.
仕事でも趣味でも、PC上のファイル名を一括変更したい時、たまにありますよね?
最終面接で聞かれた質問と回答 PMDAを知ったきっかけを教えて下さい 11月に富山で開催された製剤設計シンポジウムに参加した際に,PMDA職員とお話しさせて頂いたのがきっかけです.職員の方が,富山の製薬企業の方に医薬品の申請について説明している姿をかっこいいと思いました.シンポジウムの後に懇親会があり,その席で職員から,「PMDA業務はPMDAでしかできない」,「製薬企業が頑張って創った医薬品をアウトプットとしてたくさん審査できるのが面白い」,「若い時分から色んな経験ができる」とPMDAのやりがいや面白さを教えて頂きました.その日から,PMDAに興味を持ち,改めてその職員にOB訪問をお願い致しました.OB訪問では,懇親会で聞いたこと以上に深くPMDAのことを教えてもらい,御機構を第一に志望しております. PMDAではどのような業務に挑戦したいですか? ジェネリック医薬品の審査業務に挑戦したいです.その理由として,現在少子高齢化に伴う医療費高騰の問題があり,ジェネリック医薬品の開発が求められているからです.ジェネリック医薬品の審査をいち早く進め患者さんに届けられることによって,多くの患者さんの医療ニーズを満たせると考えています.また,小児用ワーキンググループに入って,小児用ガイドラインの作成に携わりたいです.以前,小児用製剤の議論会に参加した際に,コストパフォーマンス的に企業では小児用製剤を創りにくいことを学びました.その際に,企業ではなくPMDAで小児用製剤の可能性を広げる業務に挑戦したいと思いました.もし入構した際には,ジェネリック医薬品と小児用製剤を国民に届け,多くの患者さんに健康に貢献したいです. 第一工業製薬（一工薬）【4461】株の基本情報｜株探（かぶたん）. 内定後の企業のスタンス 電話で内定を伝えてもらった際にどうするか返事を聞かれたが第一志望だったので即答してしまい,スタンスについては分からない.しかし,内定者懇親会に参加した他の内定者が,他の企業と迷っていると人事に相談していた時に,親身になってアドバイスしていた.そのため,満足いく就活をしてほしいと考えていると思う. 内定に必要なことは何だと思いますか? PMDAに自分がどのように貢献できるかを論理的に伝えることが大事である. どう貢献できるのかを考えるには,PMDA業務について知るべきである.インターネットであれば,中期計画表(IR情報)がオススメである.私も数年分の計画表を読み,PMDAが審査以外にもワーキンググループ等の活動をしていることを知った.一番はOB訪問で直接生の声を聞くことが重要である.PMDA職員は同じような選考を通過しているのだから,積極的に相談するべきである.PMDAのESは他の企業とは若干気色が違うので,書いていて不安になることがあった.OB訪問の前に自分なりに作成し,添削をお願いできれば是非やってもらうと安心だと思う.
圧迫面接する企業としない企業の特徴について理解が深まったでしょうか? そもそも圧迫面接をしないといけない企業って、離職率が高かったり、仕事を通して相当にストレスが溜まりやすい環境であることが予想されます。 よって僕は圧迫面接してくる企業に入社することはおすすめしません。 就活では「内定を獲得すること」がゴールではなく、いかに自分に合った企業に入社するかが重要だからです。 「この会社は入社してもすぐに辞めるだろうな」という企業に入社して、無駄にキャリアを傷つける必要はありません。 就活は3月のギリギリまで勝負することができます。 圧迫面接してくるような企業は無視しつつ、エントリー数を増やし、より自分に合った企業からの内定獲得を追求しましょう! それでは最後に、本記事の要点をまとめて終わりましょうか。 【本記事の要点】 圧迫面接をする意図は、ストレス耐性やトラブルへの対応力の有無を確かめるためである。 それゆえに圧迫面接する企業の特徴としては、ストレスがかかりやすい業界や職種、トラブルへの対応力が求められる職種(クレーム対応が多かったり)が挙げられる。 具体的に圧迫面接をする企業リストは存在しない。(名誉毀損で訴えられるリスクがあるので企業名を晒すのはおすすめしません) 反対に圧迫面接をしてこない企業としては「上場しているホワイト企業」が挙げられる。 今回の記事が少しでもあなたの就活の役に立ったのなら幸せです。 就活攻略論には他にも、僕が4年に渡って書き続けた800の記事があります。 ぜひ他の記事も読んでもらえると嬉しいです\(^o^)/
株式会社情報基盤開発が参考になるデータを公開していたので引用します。 下記のデータの、折れ線グラフが「高ストレス者」の割合となります。 青色が男性で、黄色が女性ですね。 引用:株式会社情報基盤開発「 AltPaperストレスチェック業界別レポート 」 このデータを元に、高ストレス者が多い業界をまとめると以下のとおりです。 (高ストレス者が15%以上の業界を今回はストレスがかかりやすい業界とします) 【ストレスがかかりやすい業界】 製造業 情報通信業 宿泊・飲食サービス業 介護事業 これらの業界はストレスがかかりやすい。 それゆえに離職率も高い傾向にあります。 企業側からすると、せっかく新卒を採用したのに離職されるのは、あまりにダメージが大きいので「圧迫面接をしても良いからストレス耐性が高い人を採用するぞ」となるわけですね。 これらの業界を志望する場合は、特に注意が必要です。 ②お客様からのクレームが入りやすい企業 続いて、圧迫面接をするのは「トラブルへの対応力」を測る目的もあります。 そう考えると、お客様からのクレームが入りやすい企業は、圧迫面接をする可能性が高いと考えられますよね。 では具体的にどんな企業がクレームが多いのか?