با سلام خدمت شما دوست عزیزم
فرض کنید فهرستی از اسامی کارکنان در محدوده یک شیت دارید، و حالا میخواهید برای هر کدام از آنها یک پوشه ایجاد کنید تا اطلاعات آنها را ثبت کنید .
اگر این پوشهها را یکی یکی بسازید ، زمان زیادی را هدر میدهد . اما چطور میتوانید به سرعت این پوشهها را ایجاد کنید ؟
ایجاد پوشه براساس مقادیر سلول با کد VBA
برای مثال :
من یک سری اسامی در یک شیت دارم ، میخواهم برای هر یک از آنها یک پوشه ایجاد کنم ، و آنها را در یک مسیر مشخص ذخیره کنم
با کد VBA من میتوانم این کار را انجام دهم .
۱. فایل اکسل را در مسیر مورد نظر ذخیره کنید و محدوده نام ها را ذخیره کنید.
۲. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .
۳. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قرار دهید .
کد PHP:
Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r= 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub
۴. بعد از قرار دادن متن ، کلید F5 را فشار دهید تا آن را اجرا کنید .
توجه: به ازای سلول های محدوده انتخاب شده در مسیر فایل اکسل پویشه ایجاد می شود.
علاقه مندی ها (Bookmarks)