İçindekiler:

Anonim

Excel elektronik tabloları, birden çok klasör oluşturma görevini otomatikleştirmenize yardımcı olabilir. Klasörleri oluşturmanın bir yolu, veri aralıklarını ve toplu iş komutunu "md" kullanarak bir komut dosyası oluşturmaktır. Başka bir yöntem, bir makroyu Microsoft Excel VBA'nın bir bileşeni olan MkDir işlevi aracılığıyla kullanmaktır. Bu esneklik sunar ve daha az zaman alır. Bu tekniklerin çalışması için e-tablonuza yalnızca uygun klasör adlarını ekleyin. Klasör adları tırnak işaretleri içinde veya "," "/," ":," "*," "?," "<," ">" Ve "|." Karakterlerinden olmamalıdır.

Hızlı bir şekilde birden fazla klasör oluşturmak için Microsoft Excel'i kullanın.

Toplu İş Dosyası Kullanma

Aşama 1

Klasör adlarınızı tek bir sütunda düzenleyin. Sütunun başlığına tıklayın ve formül çubuğunun yanındaki ad alanına "FOLDERNAMES" yazın.

Adım 2

Sütun başlığını sağ tıklayıp "Ekle" yi seçerek "FOLDERNAMES" sütununun soluna boş bir sütun ekleyin.

Aşama 3

Boş sütundaki ilk hücreyi vurgulayın. Aşağıdaki metni formül çubuğuna girin ve diğer boş hücrelere kopyalayın.

= "md" & FOLDERNAMES

4. adım

Düz metin düzenleyicinizi açın ve boş bir belge oluşturun. Dosyanın başında aşağıdaki kodu kopyalayıp yapıştırın. Klasörleri eklemek istediğiniz dizinin tam yolunu "C: Temp" ile değiştirin. Örneğin, "D" sürücünüzdeki "Şarkılar" a klasör eklemek için "D: Songs" yolunu kullanın.

@ echo kapalı cd "C: Temp"

Adım 5

Excel çalışma kitabınıza dönün. "Md" formüllerini içeren sütun başlığını sağ tıklayın ve "Kopyala" yı seçin. Metin düzenleyicinize geri dönün ve değerleri dosyanın sonuna yapıştırın. Dosyanız şimdi şöyle görünmelidir:

@ echo off cd "c: Temp" md katlayıcı adı1 md katlayıcı2 ..

6. adım

Dosyayı Masaüstünüzde "CreateFolders.bat." Olarak kaydedin. Masaüstüne gidin ve toplu iş dosyasını, simgesine çift tıklayarak çalıştırın. Klasörleriniz artık kullanıma hazır.

Bir Makro Kullanımı

Aşama 1

Excel çalışma kitabını açın. Makro penceresini açmak için "Alt" tuşunu basılı tutun ve "F8" tuşuna basın.

Adım 2

"Makro Adı" altında "MakeFolders" girin ve "Oluştur" düğmesini tıklayın. Bu VBA editörünü açar.

Aşama 3

Aşağıdaki makroyu düzenleyicide kopyalayıp yapıştırın:

Alt MakeFolders ()

Dim Rng Aralık Olarak Dim maxRows, maxCols, r, c Tamsayı Olarak

Ayarla Rng = Seçim

maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count

C = 1 için maxCols için r = 1 R = r = = Eğer Len ise (Dir (ActiveWorkbook.Path & "" & Rng (r, c), vbDirectory)) = 0 Sonra MkDir (ActiveWorkbook.Path & "" & Rng (r, c)) Açık Hata İleri Son Devam Etme r = r + 1 Döngü Sonraki c

Son Alt

4. adım

Dosyanızı "Dosya" menüsünü açıp "Farklı Kaydet" i seçerek makro etkin bir çalışma kitabı olarak kaydedin. Tercih ettiğiniz dosya adını girin ve "Dosya Türü Olarak Kaydet" in yanındaki "Excel Makro Etkin Çalışma Kitabı" nı seçin. "Kaydet" düğmesini tıklayın.

Adım 5

Klasör adlarını içeren hücreleri vurgulayın. Makro penceresini açmak için "Alt" tuşunu basılı tutun ve "F8" tuşuna basın. "MakeFolders" üzerine çift tıklayın. Klasörler şimdi kullanıma hazır.

Excel elektronik tablosundan klasörler nasıl yapılır