プロローグ( とばしてください ) あなたは、「ネ申エクセル」という言葉を聞いたことがあるだろうか。 本来は計算に使うエクセルを、文字と罫線を配置するためだけに使うことを揶揄する言葉だ。※1 理系出身の方なら、「こんな酷いエクセルを見た」という笑い話で盛り上がった経験があるだろう。情報系の学科を卒業した私も、一度や二度ではなくそのような場に居合わせてきた。しかし告白しよう。そのような場に渦巻く哄笑の中でひとり、冷たい汗が背中をつたう私がいたことを! 【VBA】大量のファイル名変更！指定したフォルダ内を一括操作！ - ヒガサラblog. 印刷会社の営業職を続けて10年余。私は日々「ネ申エクセル」と戯れ、そして慣れきってしまった…… いや、それだけではない。 見た目を整えるという「表のネ申エクセル」から遠く離れ、計算するでもなく書類を作るのでもない「裏のネ申エクセル」。 いわば、「 闇のエクセル術――エクセル黒魔術 」とでも言うべきものに、私は取り憑かれてしまっているのだ。 ※1 情報を再利用しにくくなったり、データ分析やRPAツールなどの機械的な処理が難しくなるので、良くないとされています。 こんにちは。営業部の斎藤です。今回は印刷会社(弊社だけ? )での、ちょっと変わったエクセルの使い方を紹介します。決して正道ではありませんが、あなたの業務にも役に立つかもしれませんよ。 エクセル黒魔術とは エクセル黒魔術は、私一人が名付けているだけの、時短テクニックです。簡単にいうと、 「エクセル」 と 「正規表現(テキストエディタ)」 と 「コマンドプロンプト(闇、黒き画面)」 を活用して、作業の効率アップをはかります。いろいろな事に応用できますが、今回はその便利さを紹介するために一例を紹介しましょう。 ※ 呪文である正規表現は、追加の道具が必要なため今回は扱いません。 テストケース:卒業アルバムの顔写真データに、出席番号と氏名のファイル名をつける。 想定ケース: ある学校の卒業アルバム制作が進行中。生徒の顔写真は、出席順にカメラマンが撮影済。 納品の直前に、写真データも納品することになり、 すべての写真に【出席番号と生徒名】のファイル名をつけることに! さぁ手作業だと大変です…… 左の写真データに、右のようなファイル名を付けます。 材料: 出席順に撮影された写真データ、 出席名簿のエクセルファイル 道具:(Windowsの想定です) エクセルと メモ帳 ダミーデータは こちら からダウンロードできます。 step1 出席番号から、納品ファイル名を作る 左側の客先支給の名簿から、納品ファイル名を作ります。 エクセルに慣れた方なら、文字列を結合する関数や、"&"演算子を使って処理すると思いますが、ここでは「邪道」としてテキストエディタを使います(今回はメモ帳でどうぞ)。 手順はこうです。 1.列を追加して、"組"、"番 _ "、"" でフィルする。 2.エクセルからメモ帳にコピペ。 3.タブを、置換して削除。ついでに、姓名の間のスペースも削除 4.エクセルに戻す。 メモ帳でタブを置換するには、タブをコピーして、置換メニューに貼り付けます。 ちょっと不便ですね。 エクセルデータをメモ帳にコピペすると、 列の境目はタブ、行の境目は改行 になります。これを利用して、メモ帳に貼り付けてからタブを置換することで、 簡単に結合 ができます。 (関数を使わないので、エクセルの再利用ができませんが、良いのです。エクセル黒魔術は一度きりの作業をいかに早く済ませるかがキモなのです!)
オススメ記事
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").
マルチ商法の会社が東証1部とかに上場しているのも、わらける。 日本って風俗合法なの?と聞きたくなる。 もう在日社会にメディア、芸能界まで占領されタレントや女優は風俗娘と同じではないか?いまどきなにが枕営業じゃ?在日の女優なら裏があるかもしれないが日本人ならもうまな板の上の鯉状態である。 こんな腐った国は隣の韓国や中国と同じではないか? なにが先進国の日本だ。 医者や歯医者の不正点数は市からの指示か?もう日本国ぐるみやんけ?! 生活保護はどうなんじゃ?在日、ヤクザ、部落、田舎なんて市役所の社員の身内全員やんけ?! 闇カジノはどうなのじゃ?警察までグルではないか?! 大阪の部落地域に歩いていると、植木鉢が落ちてくるってか?怖い国やね~、え??ここに住んでいたら家賃2000円ってか?え?光熱費無料??え?公務員になれるの? Amazon.co.jp: 日本を賤しめる「日本嫌い」の日本人―いま恐れるべきはジパノフォビア : 渡部 昇一: Japanese Books. こんな日本に未来はあるのだろうか? すべて環境のせいにします。 この現実を知らないのは庶民だけである、それは、喋ってはいけない ヤクザ社会に依存しているからだ。 日本は事実の発言をしてはいけない国家なんですよ。 日本人よ 今立ち上がれ! などなど 適当にトピックを立ち上げてください。 どうしても許せないことだけを書いて見る。 ココだけの話。パチンコは遠隔と書きましたが、パチンコのほぼ全店がコンピューター管理で確率は存在しません、大当り回数は全回転数÷大当り確率で1ヶ月単位でぴっちり合わしてありますがこのシステムがでて大当り出玉なしというシステムが生まれた。 次の大問題は、宝くじにアタリが存在しないという問題、関係者しか当たらないという説もありますが、 複数の政府関係者に聞くと、事実のようです。 次の問題はちょっと考えればわかることですが、ボランティアや寄付の団体は寄付したところで、会社の運営費や役員のボーナスになります。震災時、コンビニなどに置かれている募金箱の副収入が100万円を超えた月もあるようです。もちろん経営者の小遣いになるとは言いませんがその可能性がもっとも高いです。
「あなたが思う日本の嫌いなところを教えてください。その理由もお願いします。」というアンケートを50人の20代〜50代の方にしました。 さまざまな意見を頂きましたので、ぜひ参考にしてみてください。 10代の男性、10代の女性が答える日本の嫌いなところとは? 男性 10代 仕事に対する意識。会社のために、人のためにと働きすぎる環境ができてしまっていると感じます。休暇制度を整えるべきだと思います。 女性 10代 ハロウィンなど、ハメを外しすぎて頭がおかしくなってしまうところです。世界的に見ても恥ずかしいのでやめてほしいです。 仕事がブラックなのが嫌いです。ブラックでな仕事に疲れ、自殺する人だって後を絶たないのにそれでも対処がされず、亡くなる人がいるため残念に思います。 20代の男性、20代の女性が答える日本の嫌いなところとは?
教えて!住まいの先生とは Q 日本が嫌になって海外に移り住んだ方に質問します 隣の芝生が青いだけかもしれませんが、私は、日本がすごく住みづらく感じます 私は日本人の国民性が個人的に苦手です。 村社会みたいな感じに窮屈に感じてしまいます。 日本に嫌気がさして、海外に移り住んだ方にお聞きします。 ・現在、どちらの国にお住まいですか? ・そこであったハッピーなこと、また自分にとって日本によかったなーという出来事 ・やっぱり日本じゃなくてこの国に決めてよかったと思った事 を教えて下さい。 できるだけ詳しく教えて下さるとうれしいです(*^_^*) ※今回は、ネガティブな意見(やっぱり日本が一番いい、外国をしらないからそう思うんだ)等は一切募集しておりません。ご了承ください。 補足 皆さん、詳しい解答をどうもありがとうございました! ・現在の現地でやっている、ご趣味 ・現地での職業 ・現地の気候(日本は島国なので、湿度は高いと聞きますが、現地はどうですか?乾燥してますか?) をまた、お聞かせください! 質問日時: 2011/7/11 02:19:09 解決済み 解決日時: 2011/7/16 13:00:59 回答数: 6 | 閲覧数: 1501 お礼: 25枚 共感した: 6 この質問が不快なら ベストアンサーに選ばれた回答 A 回答日時: 2011/7/11 06:54:33 サ〜皆さん、、ご一緒に〜! みたいな感覚が大嫌いでした。 学歴競争社会のわりには女性の社会地位は低かったし、 努力をしても終身雇用、年功序列的な組織も嫌いでした。 もちろん! 海外に移住した30年近く前の日本社会。 今は事情も違うのかも知れない。。 同じ大学の学部を卒業した同じ業界の友人との40歳での収入差は0ひとつ!私が多かった。 私の場合は当時、珍しい私生児で母子家庭。 それだけで一部上場企業や国家公務員上級は無理!でした。 「女の大学院卒は生意気だっ!」って言われていた時代....... 。 有る意味、差別社会からの脱出でした。 20代、30代 頑張ったから43歳で念願のセミリタイア。一生分を稼いでしまった。 収入を持った専業主婦生活を送っています。あのまま日本で暮していたら 今でもアクセク働いて 小さな家の大きなローンに子供の教育費、老後の資金なんかで 「優雅」にはほど遠い生活だったと思う。 アメリカに移住して良かった事。勉強や仕事、資格は頑張れば頑張る程 収入額での評価をされる。出来高年収。もちろん、評価されなければクビだけどね。 住宅事情も良い。環境と安全はお金で買える。家族と言えども自立した関係が築けるのは 住宅の広さにも関係していると思う。赤ちゃんの時から自分の部屋。 「将来、親と同居して介護」も無い。親子関係は愛情だけ。 「苦労して育てたんだから親に恩返し.... うんぬん.... 。」は 無い!