Excel'de dosya adını tam yoldan hızlıca nasıl çıkarırsınız?
Bir çalışma sayfanız olduğunu ve bu sayfada Dosya Yolu listesi bulunduğunu varsayalım. Şimdi, aşağıdaki ekran görüntülerinde gösterildiği gibi her bir yoldan yalnızca dosya adını (son ters eğik çizginin sağındaki kısmı) çıkarmak istiyorsunuz. Bu görevi yerine getirmek için hızlı yöntemler var mıdır?
Excel'de formülle tam yoldan dosya adını çıkarın
Kullanıcı Tanımlı İşlev ile tam yoldan dosya adını çıkarın
VBA koduyla tam yoldan dosya adını çıkarın
Excel'de formülle tam yoldan dosya adını çıkarın
Excel'de, aşağıdaki formülü kullanarak tam dosya yolundan yalnızca dosya adını hızlıca çıkarabilirsiniz.
Boş bir hücre seçin, aşağıdaki formülü girin ve ardından Enter tuşuna basın.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
İpuçları: A1, dosya adını çıkarmak istediğiniz hücredir. Enter tuşuna bastıktan sonra, doldurma tutamacını hedef aralığa kadar sürükleyin—böylece her bir hücreden dosya adı otomatik olarak çıkarılır.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Kullanıcı Tanımlı İşlev ile tam yoldan dosya adını çıkarın
Aşağıdaki kullanıcı tanımlı işlevle dosya adını kolayca ve hızlı bir şekilde alabilirsiniz.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül öğesine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function
3. Microsoft Visual Basic for Applications penceresini kapatmak ve çalışma sayfasına dönmek için Alt+Q tuşlarına basın. Boş bir hücreye (örneğin B1 hücresine) aşağıdaki formülü girin ve Enter tuşuna basın.
=FunctionGetFileName(A1)
Ardından B1 hücresini tekrar seçin, bu formülü uygulamak istediğiniz aralığa kadar doldurma tutamacını sürükleyin. Böylece tüm dosya adları aşağıdaki sonuçta görüldüğü gibi tam yollardan çıkarılır:
VBA koduyla tam yoldan dosya adını çıkarın
Kullanıcı Tanımlı İşlev’in yanı sıra, dosya adlarını çıkarmak için bir VBA kodundan da yararlanabilirsiniz. İşte nasıl yapacağınız:
1. Açmak için ALT + F11tuşlarına basılı tutun Microsoft Visual Basic for Applications Penceresi.
2. Ekle > Modül öğesine tıklayın ve aşağıdaki kodu Modül Penceresi’ne yapıştırın.
Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
splitList = VBA.Split(Rng.Value, "\")
Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın ve dosya adını çıkarmak istediğiniz aralığı seçin; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; dosya adları aşağıdaki gibi seçimden çıkarılır:
NotBu VBA kodu orijinal verilerinizi silecektir; bu yüzden çalıştırmadan önce mutlaka bir yedek alın!
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar