Poker online Indonesia コミュニティの成長により、プレイヤー同士が情報を共有し、おすすめのプラットフォームを見つけやすくなっています。SNSグループ、フォーラム、オンラインコミュニティは、ユーザーの選択や好みに大きな影響を与える重要な存在です。こうした議論の中では、インタラクティブな機能や競争性の高いゲームプレイで知られるプラットフォームを紹介する際に、login Nirwanapoker が頻繁に取り上げられています。

Toto Macau コミュニティでは、さまざまな形式や結果について活発な情報交換が行われています。こうした議論の中で、live draw macau は詳細なデータや最新情報を確認するための重要な話題として取り上げられています。これらの情報は、利用者が最新の動向を把握しながら、整理されたデータをより効率的に活用するのに役立っています。

成功するゲーミングプラットフォームは、信頼性、優れたユーザー体験、そして豊富なゲームラインナップによって支えられています。idnslot は、直感的で使いやすいインターフェースを提供し、プレイヤーがスムーズにコンテンツへアクセスできる環境を実現しています。また、slot online プラットフォームはさまざまなデバイス向けに最適化されており、スマートフォン、タブレット、デスクトップパソコンのいずれを利用する場合でも、いつでも安定した快適なゲーム体験を楽しむことができます。

Bagi penggemar permainan kartu online, idn poker menjadi salah satu istilah yang cukup dikenal dan banyak dicari ketika ingin memperoleh informasi mengenai permainan poker. Pemain dapat mempelajari berbagai aspek dasar, seperti aturan permainan, kombinasi kartu, posisi pemain, serta istilah yang umum digunakan agar lebih memahami mekanisme permainan secara menyeluruh.

situs slot online menjadi salah satu istilah yang banyak digunakan ketika mencari informasi mengenai permainan slot melalui internet. Sebelum memilih sebuah platform, pengguna sebaiknya memahami terlebih dahulu cara kerja permainan, informasi layanan, keamanan situs, serta ketentuan yang berlaku di wilayah masing-masing.

VBA コピペで使える！好きな場所にフォルダを一括で作成するコード

2021.03.27
この記事は約3分で読めます。

どうもマサヤです！

「このフォルダ配下に一括でフォルダを作成したい！」

そんな、あなたと私のためにコピペで使えるコードを紹介します！※結構、使うので手間を減らすためにコピペして使えるようにしました。

 

VBA コピペで使える！階層別で全フォルダ・ファイルを取得・リンク化するコード
コピペすれば階層別でフォルダやファイルを出力できるコードを紹介！数時間かかる作業を数秒で完了できますよ。
mmm-program.com
2022.03.18
VBA コピペで使える！特定フォルダのファイル一覧を一括取得するコード
「特定フォルダのファイル一覧を一括で取得したい！」 「フォルダの場所を指定したら、配下のファイル名を一括で取得してくれるコードがあればなぁ～」 そんな、あなたと私のためにコピペで使えるコードを紹介します！
mmm-program.com
2021.04.12
スポンサーリンク

任意フォルダにフォルダを一括で作成するコード

取得したファイル一覧をセルに出力しています。

Sub createFolder()

Set fso = CreateObject("Scripting.FileSystemObject")

baseUrl = Cells(2, 2)

i = 4
'空白になるまでフォルダ作成を実行
Do Until Cells(i, 2) = ""
    'すでに同じ名前のフォルダがあれば作成せずに、次のフォルダ作成へ
    If Not fso.FolderExists(baseUrl & "\" & Cells(i, 2)) Then
        fso.createFolder baseUrl & "\" & Cells(i, 2)
    End If
    i = i + 1
Loop

MsgBox "フォルダ作成完了"

End Sub

実行結果イメージ【動画】

実行結果は下記の動画のようになります。

フォルダ作成手順

手順といっても、5ステップで簡単です。

  1. フォルダを作成したい場所を「B2セル」に入力
  2. 一括で作成したいフォルダ名をB列4行目以降に入力
  3. Alt+F11でVBEを開く
  4. 標準モジュールを作成
  5. 上記コードをコピーして、貼り付ける
  6. F5 or ▶ を押して、コードを実行

※VBE起動からコードコピーの流れこちらで確認できます。（別コードをコピーしていますが操作は一緒です）

まとめ

この前、仕事で200個ほどフォルダを作成するシーンがありました。200個のフォルダを作業で作ろうとしたら、右クリック⇒新規作成⇒フォルダ⇒フォルダ名を入力 or コピーしてようやく一つ作れます。

1つ作るのに5秒として、5 秒× 200個 = 1000秒、なんと約16分。最速で機械のようにアイドルタイムなしで16分、実際はミスの可能性もあるのでもっと時間が掛かります。

ただ、既にこの方法を知っていたので、着手からフォルダ作成まで3分もかかりませんでした。その度、手作業でフォルダを作成していた時代を思い出し、本当に「VBAを知って良かった！」と実感しています。

あたなもフォルダ作成といった単純作業に苦しんでいるなら、ぜひこの方法をお試しください！

コメント