大量のファイルの名前を書き換えないといけない。ひとつひとつ手作業でやっていたら日が暮れそうだ。 この記事では、こんな悩みをエクセル(VBA)を使って一瞬で解決します。 さっそくやっていきましょう!
プロローグ( とばしてください ) あなたは、「ネ申エクセル」という言葉を聞いたことがあるだろうか。 本来は計算に使うエクセルを、文字と罫線を配置するためだけに使うことを揶揄する言葉だ。※1 理系出身の方なら、「こんな酷いエクセルを見た」という笑い話で盛り上がった経験があるだろう。情報系の学科を卒業した私も、一度や二度ではなくそのような場に居合わせてきた。しかし告白しよう。そのような場に渦巻く哄笑の中でひとり、冷たい汗が背中をつたう私がいたことを! 印刷会社の営業職を続けて10年余。私は日々「ネ申エクセル」と戯れ、そして慣れきってしまった…… いや、それだけではない。 見た目を整えるという「表のネ申エクセル」から遠く離れ、計算するでもなく書類を作るのでもない「裏のネ申エクセル」。 いわば、「 闇のエクセル術――エクセル黒魔術 」とでも言うべきものに、私は取り憑かれてしまっているのだ。 ※1 情報を再利用しにくくなったり、データ分析やRPAツールなどの機械的な処理が難しくなるので、良くないとされています。 こんにちは。営業部の斎藤です。今回は印刷会社(弊社だけ? )での、ちょっと変わったエクセルの使い方を紹介します。決して正道ではありませんが、あなたの業務にも役に立つかもしれませんよ。 エクセル黒魔術とは エクセル黒魔術は、私一人が名付けているだけの、時短テクニックです。簡単にいうと、 「エクセル」 と 「正規表現(テキストエディタ)」 と 「コマンドプロンプト(闇、黒き画面)」 を活用して、作業の効率アップをはかります。いろいろな事に応用できますが、今回はその便利さを紹介するために一例を紹介しましょう。 ※ 呪文である正規表現は、追加の道具が必要なため今回は扱いません。 テストケース:卒業アルバムの顔写真データに、出席番号と氏名のファイル名をつける。 想定ケース: ある学校の卒業アルバム制作が進行中。生徒の顔写真は、出席順にカメラマンが撮影済。 納品の直前に、写真データも納品することになり、 すべての写真に【出席番号と生徒名】のファイル名をつけることに! 【Excel】ファイル名一括変更・ファイル一括移動ツール – 微風 on the web…. さぁ手作業だと大変です…… 左の写真データに、右のようなファイル名を付けます。 材料: 出席順に撮影された写真データ、 出席名簿のエクセルファイル 道具:(Windowsの想定です) エクセルと メモ帳 ダミーデータは こちら からダウンロードできます。 step1 出席番号から、納品ファイル名を作る 左側の客先支給の名簿から、納品ファイル名を作ります。 エクセルに慣れた方なら、文字列を結合する関数や、"&"演算子を使って処理すると思いますが、ここでは「邪道」としてテキストエディタを使います(今回はメモ帳でどうぞ)。 手順はこうです。 1.列を追加して、"組"、"番 _ "、"" でフィルする。 2.エクセルからメモ帳にコピペ。 3.タブを、置換して削除。ついでに、姓名の間のスペースも削除 4.エクセルに戻す。 メモ帳でタブを置換するには、タブをコピーして、置換メニューに貼り付けます。 ちょっと不便ですね。 エクセルデータをメモ帳にコピペすると、 列の境目はタブ、行の境目は改行 になります。これを利用して、メモ帳に貼り付けてからタブを置換することで、 簡単に結合 ができます。 (関数を使わないので、エクセルの再利用ができませんが、良いのです。エクセル黒魔術は一度きりの作業をいかに早く済ませるかがキモなのです!)
オススメ記事
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. 【VBA】大量のファイル名変更！指定したフォルダ内を一括操作！ - ヒガサラblog. 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に関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
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").
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.
キスはカップルにとって重要なコミュニケーション。今回はキスが止まらなくなる男性の心理や、キスが盛り上がる方法を知ることで、より情熱的なキスを実現する方法を紹介します。 キスはカップルにとっての大切なコミュニケーションのひとつ。 日常的なスキンシップとして有効な軽いキスから、セックスの入り口になる濃厚なキスまで、そのシーンはさまざまです。 ときには、キスが止まらなくなってしまう場面もあることでしょう。 止まらなくなるキスと、そうでないキスとは何が違うのでしょうか。 今回は、キスが止まらないときの男性の心理を解説。 さらに、情熱的なキスをするための方法を紹介していきます。 【男性心理】キスが止まらないときの彼の気持ちって?
何度もキスをしてくる男性心理の色んなパターンをご紹介しましたが、あなたの彼と当てはまるものはあったでしょうか? 何度もキスをしてくる、キスが止まらないという状況は、あなたを愛しているからこその行動です。愛されているということを認識しつつ、彼との仲を深められれると良いですね。
キスの仕方を工夫するだけで、男性を刺激できることを知っているでしょうか。今回はそんな『男性が感じる女子からのキステク』について紹介していきます。誰でもすぐにできる簡単なものから、マンネリを刺激するキステクまでを紹介していくので、彼との関係性によってチョイスしてみてくださいね! 1. 上目遣いでキス キスをするときには、目を瞑る人が多いですよね。しかし、キスが上手な人は、視覚でもキスを楽しませることができます。例えば相手の目を上目遣いで見つめながら、キスすること。 特にフレンチキスなど軽いキスを行っているときはこのテクニックを使うチャンス。ただ上目遣いで見つめるだけでもイチャつく雰囲気が出せるので、男性を胸キュンさせることができます。 また少し上級のテクニックとして、ディープキスを求めるように上目遣いを意識すると、男性の興奮が煽られるので、彼ががっついて求めてくる可能性が高くなります。男性の興奮度を高めた上でディープキスできれば、いつもよりも激しめのキスになるかも♡ 2. 最中にお尻を触る キステクに重要なのはキスの仕方だけだと思っていませんか? キスのテクニックには、唇だけでなく手や身体の動きも重要なポイントになります。例えばフレンチキスやディープキスの最中に、男性のお尻を触るのも効果的なテクニック。 お尻を触ると大抵の男性は少し驚くので、そのままエロティックな気分に陥り、興奮度が高まっていきます。 このときポイントとなるのは、お尻の触り方です。ただお尻に手を置くだけでは男性の興奮は煽れません。すぐにチャレンジするのはハードルが高いかもしれませんが、お尻を撫でるように触るのが効果的。 特に長く付き合ってきたカップルやマンネリ化してきたカップルには、刺激を与えるおすすめの方法です。 3. キスの仕方で、本命かどうか判断できる！ | 恋学[Koi-Gaku]. キス音に集中させる 彼とのキスによる興奮度を高めたいのであれば、音で楽しませるのもひとつの方法です。この場合は、男性の意識を音に持っていかせるため、相手の両耳を手で隠しながらキスしてみてください。手で男性の両耳を覆い隠すと、耳は雑音を拾いにくくなり、キスの音だけが聞こえるような状態になります。 この状態で音を立てるようにディープキスを行うことで、男性はキス音によるムラムラが止まらなくなるのです。このときのキスは、とにかく音を立てることが重要です。舌を絡ませるだけでなく唾液を送り込むような意識でキスをしてみるといいかも。 キステクで彼を刺激しちゃおう♡ 彼氏をムラムラさせたいのであれば、キステクを向上させるのが近道。キステクは唇や舌の使い方を意識する傾向が強いですが、視覚や聴覚でキスを楽しませることでも彼氏をムラムラさせることは可能です。また、相手の身体に触れることでもキスの気持ちよさをアップさせることができるので、ぜひ試してみてくださいね。 【この記事も読まれています】
『娚の一生』【予告編】"足キス"シーン解禁! 榮倉奈々もドキドキが止まらない お相手は豊川悦司 nのためにに続き榮倉奈々話題作出演 - YouTube
※ 商品にかかわる価格表記はすべて税込みです。
キスする夢を見てドキドキが止まらないということはありませんか。好きな人とキスをする夢なら嬉しいけれど、意外な人物で焦ってしまうことも。今回は、夢占いでキスをする夢の意味と、相手によって異なるキスの夢の意味を紹介します。キスした相手についてのあなたの深層心理がわかるかもしれません。 キスをする夢の意味とは?