ایجاد 1000پوشه‌ در اکسل فقط با یک کلیک

- بانک کد VBA در اکسل
- آموزش رایگان اکسل
آخرین بروزرسانی: 28 شهریور 1402

آموزش حرفه ای اکسل با کد نویسی vba توی این آموزش رایگان اکسل برای شما کاربران همیشگی سایت آکادمی روح الله نحوه ایجاد 1000پوشه‌ در اکسل فقط با یک کلیک را آماده کردم یک آموزش جذاب و کاربردی است ادامه آموزش را با من همراه باشید

ایجاد پوشه‌ها با استفاده از کد VBA در اکسل

استفاده از نرم‌افزار اکسل برای مدیریت و ذخیره اطلاعات از مهمترین وظایف در محیط کاری ما است. گاهی اوقات نیاز داریم تا اطلاعاتی را بر اساس مقادیر در ورکشیت‌های اکسل به صورت سازمان‌یافته در پوشه‌ها ذخیره کنیم. در این مقاله، به شما نشان خواهیم داد چگونه با استفاده از کد VBA (Visual Basic for Applications) در اکسل، به صورت خودکار پوشه‌ها را بر اساس مقادیر سلول‌ها ایجاد کنید.

مفهوم ایجاد پوشه با VBA

وقتی کار با داده‌های بزرگ در اکسل دارید، گاهی اوقات نیاز دارید تا این داده‌ها را در پوشه‌های مخصوص به خود ذخیره کنید تا سازمان‌یافته‌تر باشند. به عنوان مثال، فرض کنید دارید یک لیست از نام‌ها در ستون A اکسل دارید و می‌خواهید برای هر نام یک پوشه با نام متناظر ایجاد کنید. اینجاست که کد VBA به کمک می‌آید.

ایجاد کد VBA

برای ایجاد پوشه‌ها با استفاده از کد VBA در اکسل، ابتدا باید به ویرایشگر VBA دسترسی داشته باشید. این کار را با کلیک بر روی “توسعه‌دهنده” در منوی “ابزارها” انجام دهید. سپس یک ماژول جدید ایجاد کرده و کد زیر را در آن قرار دهید:

ایجاد ۱۰۰۰پوشه‌ در اکسل فقط با یک کلیک

ایجاد 1000پوشه‌ در اکسل فقط با یک کلیک

'-------------------------------------------------------
' نويسنده: روح الله وکيل زاده
'-------------------------------------------------------
' از سايت آکادمي روح الله به آدرس
'-------------------------------------------------------
' https://academyruhollah.com/
'-------------------------------------------------------
' توضيحات: (اين کد براي ايجاد پوشه ها استفاده مي شود)
'-------------------------------------------------------
' براي مشاهده آموزش مربوط اين کد لينک زير را کپي کنيددر مرورگر خود
'-------------------------------------------------------
' https://academyruhollah.com/?p=2321
'-------------------------------------------------------
Sub academyruhollah1()
    Dim FolderPath As String
    Dim Cell As Range
    Dim TargetColumn As Range
<div style="clear:both; margin-top:0em; margin-bottom:1em;"><a href="https://academyruhollah.com/%d8%b3%d8%a7%d8%ae%d8%aa-%d8%ac%d8%af%d9%88%d9%84-%d8%b6%d8%b1%d8%a8-%d8%af%d8%b1-%d8%a7%da%a9%d8%b3%d9%84-%d8%a8%d8%a7-2-%d8%b1%d9%88%d8%b4-%d8%b9%d8%a7%d9%84%db%8c/" target="_blank" rel="nofollow" class="IRPP_ruby"><!-- INLINE RELATED POSTS 1/3 //--><style> .IRPP_ruby , .IRPP_ruby .postImageUrl , .IRPP_ruby .centered-text-area { height: 130px; position: relative; } .IRPP_ruby , .IRPP_ruby:hover , .IRPP_ruby:visited , .IRPP_ruby:active { border:0!important; } .IRPP_ruby .clearfix:after { content: ""; display: table; clear: both; } .IRPP_ruby { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #8E44AD; box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -moz-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -o-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -webkit-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); } .IRPP_ruby:active , .IRPP_ruby:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #9B59B6; } .IRPP_ruby .postImageUrl { background-position: center; background-size: cover; float: right; margin: 0; padding: 0; width: 31.59%; } .IRPP_ruby .centered-text-area { float: left; width: 65.65%; padding:0; margin:0; } .IRPP_ruby .centered-text { display: table; height: 130px; right: 0; top: 0; padding:0; margin:0;float: left;width: 100%; } .IRPP_ruby .IRPP_ruby-content { display: table-cell; margin: 0; padding: 0 0px 0 74px; position: relative; vertical-align: middle; width: 100%; } .IRPP_ruby .ctaText { border-bottom: 0 solid #fff; color: #000000; font-size: 13px; font-weight: bold; margin: 0; padding: 0; } .IRPP_ruby .postTitle { color: #ECF0F1; font-size: 16px; font-weight: 600; margin: 0; padding: 0; } .IRPP_ruby .ctaButton { background: url(https://academyruhollah.com/wp-content/plugins/intelly-related-posts-pro/assets/images/next-arrow.png)no-repeat; display: inline-block; height: 130px; width: 54px; } .IRPP_ruby .ctaButton { background-color: inherit; margin-left: 10px; position: absolute; left: 0; top: 0; } .IRPP_ruby:after { content: ""; display: block; clear: both; } </style><div data-bg="https://academyruhollah.com/wp-content/uploads/2023/05/ساخت-جدول-ضرب-در-اکسل-با-2-روش-عالی.jpg" class="postImageUrl rocket-lazyload" style=""></div><div class="centered-text-area"><div class="centered-text"><div class="IRPP_ruby-content"><div class="ctaText">پیش نهاد آکادمی روح الله برای شما :</div><div style="clear:both"></div><div class="postTitle">ساخت جدول ضرب در اکسل با 2 روش عالی</div></div></div><div class="ctaButton"></div></div></a></div>    
    ' تعيين مسير پوشه مبدأ (معمولاً پوشه اکسل کنوني)
    FolderPath = ThisWorkbook.Path
    
    ' تعيين ستون مورد نظر که شامل نام‌ها است (در اينجا مثالاً ستون A را در نظر مي‌گيريم)
    Set TargetColumn = ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' پيمايش تمام سلول‌ها در ستون مورد نظر و ايجاد پوشه‌ها
    For Each Cell In TargetColumn
        ' خواندن مقدار سلول
        CellValue = Cell.Value
        
        ' ايجاد پوشه با نام مقدار سلول
        MkDir FolderPath & "\" & CellValue
    Next Cell
    
    ' نمايش پيام تأييدي
    MsgBox "پوشه‌ها براي تمام نام‌ها ايجاد شدند.", vbInformation
End Sub

'-------------------------------------------------------

' نويسنده: روح الله وکيل زاده

'-------------------------------------------------------

' از سايت آکادمي روح الله به آدرس

'-------------------------------------------------------

' https://academyruhollah.com/

'-------------------------------------------------------

' توضيحات: (اين کد براي ايجاد پوشه ها استفاده مي شود)

'-------------------------------------------------------

' براي مشاهده آموزش مربوط اين کد لينک زير را کپي کنيددر مرورگر خود

'-------------------------------------------------------

' https://academyruhollah.com/?p=2321

'-------------------------------------------------------

Sub academyruhollah1()

Dim FolderPath As String

Dim Cell As Range

Dim TargetColumn As Range

' تعيين مسير پوشه مبدأ (معمولاً پوشه اکسل کنوني)

FolderPath = ThisWorkbook.Path

' تعيين ستون مورد نظر که شامل نام‌ها است (در اينجا مثالاً ستون A را در نظر مي‌گيريم)

Set TargetColumn = ActiveSheet.Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)

' پيمايش تمام سلول‌ها در ستون مورد نظر و ايجاد پوشه‌ها

For Each Cell In TargetColumn

' خواندن مقدار سلول

CellValue = Cell.Value

' ايجاد پوشه با نام مقدار سلول

MkDir FolderPath & "\" & CellValue

Next Cell

' نمايش پيام تأييدي

MsgBox "پوشه‌ها براي تمام نام‌ها ايجاد شدند.", vbInformation

End Sub

پیش نهاد آکادمی روح الله برای شما :

انتقال اطلاعات از سایت بورس به اکسل Excel

نحوه استفاده

ابتدا ویرایشگر VBA را باز کنید.
یک ماژول جدید ایجاد کنید.
کد VBA را در ماژول قرار دهید.
ستونی را که حاوی نام‌هایی است که می‌خواهید برای هر نام یک پوشه ایجاد شود، تعیین کنید.
کد را اجرا کنید.

با اجرای کد، اکسل به صورت خودکار پوشه‌ها را با نام مقادیر سلول‌ها ایجاد خواهد کرد.

نتیجه

با استفاده از کد VBA در اکسل، شما می‌توانید به سادگی پوشه‌ها را بر اساس مقادیر شیت پوشه های خود ایجاد کنید. این عملیات به شما کمک می‌کند داده‌های خود را سازمان‌دهی کرده و به ترتیب اطلاعات خود را ذخیره کنید.

از این کد می‌توانید برای موارد مختلفی مانند سازماندهی فایل‌ها بر اساس مقادیر موجود در اکسل یا ایجاد پوشه‌های مخصوصی برای پروژه‌ها و کارهای مختلف استفاده کنید.

امیدوارم که برای شما کاربردی باشد

Excel VBA
پوشه‌سازی خودکار
سازماندهی داده
کد برنامه‌نویسی اکسل
ایجاد پوشه‌ها بر اساس مقادیر سلول‌ها

میانگین رتبه 3.7/5 تعداد رای : 3

روح الله وکیل زاده

ایجاد پوشه‌ها با استفاده از کد VBA در اکسل

مفهوم ایجاد پوشه با VBA

ایجاد کد VBA

ایجاد 1000پوشه‌ در اکسل فقط با یک کلیک

نحوه استفاده

نتیجه

نظر یا سوال شما در این مورد چیست؟ انصراف