Excel'de hücre referanslarıyla aralık adlarını nasıl değiştirebilirim?
Excel'de adlandırılmış aralıklarla çalışırken, bunların okunabilirlik ve formül yönetimi için faydalı olduğunu görebilirsiniz. Ancak, özellikle dosyaları paylaşırken, sorun giderirken veya şablonları standartlaştırırken, aralık adlarını kaldırmak ve gerçek hücre referanslarını geri yüklemek isteyebileceğiniz durumlar olacaktır. Bu makalede, Excel'de adlandırılmış aralıkları karşılık gelen hücre referanslarıyla değiştirmenin farklı yollarını adım adım inceleyeceğiz.
VBA kodu ile hücre referanslarıyla aralık adlarını değiştirme
Kutools for Excel ile hızlı ve kolayca aralık adlarını hücre referanslarıyla değiştirme
Örneğin, bu çalışma sayfasında A2:A6 aralığına saleprice adını vereceğim ve B2'ye discount adını vereceğim, ardından hem aralık adını bir formülde kullanarak yeni fiyatı hesaplayacağım. Ekran görüntülerine bakın:
Hızlı ipuçlarını takip ettikten sonra, aralık adı aşağıdaki gibi hücre referansıyla değiştirilecektir:
VBA kodu ile hücre referanslarıyla aralık adlarını değiştirme
Formüllerdeki aralık adlarını hücre referanslarıyla değiştirmek için VBA kullanarak, işlemi aşağıdaki adımları izleyerek gerçekleştirebilirsiniz:
1. Adlarını hücre referanslarıyla değiştirmek istediğiniz formülleri içeren aralığı seçin.
2. Alt + F11 tuşlarına basarak yeni bir Microsoft Visual Basic for Applications penceresi açılır, ardından Insert > Module'a tıklayın ve aşağıdaki kodları modüle kopyalayıp yapıştırın:
VBA kodu: Mutlak referanslarla aralık adlarını değiştirme
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End Sub
VBA kodu: Göreceli referanslarla aralık adlarını değiştirme
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub
3. Ardından F5 tuşuna basarak kodu çalıştırın, bir iletişim kutusu görüntülenir ve değiştirmek için bir aralık seçmenizi ister. Ekran görüntüsüne bakın:
4. Ardından Tamam'a tıklayın. Seçilen tüm formül aralık adları değiştirilmiş olacaktır.
Kutools for Excel ile hızlı ve kolayca aralık adlarını hücre referanslarıyla değiştirme
Bu işlemi manuel olarak veya VBA ile yapmak zaman alıcı ve hata yapmaya açık olabilirken, Kutools for Excel tüm süreci basitleştiren tek tıklamalı bir çözüm sunar. Convert Name to Reference Range aracı, aralık adlarını hızlı ve kolay bir şekilde hücre referanslarıyla değiştirmenize yardımcı olacaktır.
1. Lütfen bu aracı Kutools > İsim Araçları > Convert Name to Reference Range yolunu izleyerek uygulayın.
2. Bir iletişim kutusu görüntülenecek, Range sekmesine tıklayın ve Base Range'den hücre referanslarıyla değiştirmek istediğiniz aralığı seçin. Ardından Replace düğmesine tıklayın. Ekran görüntüsüne bakın:
3. Değiştirilen formüllerin ve değiştirilmemiş formüllerin sayısını size bildiren başka bir uyarı kutusu görüntülenecektir, OK tuşuna tıklayın ve ardından seçili aralıktaki aralık adları hücre referanslarıyla değiştirilmiş olacaktır.
🔚 Sonuç
Birkaç formülle veya tüm çalışma kitabıyla uğraşırken, adlandırılmış aralıkları gerçek hücre referanslarıyla değiştirmek, şeffaflığı, uyumluluğu ve işbirliğini kolaylaştırmak için harika bir yöntemdir.
- Gelişmiş kullanıcılar için, VBA değiştirme işlemini otomatikleştirmek için esnek ve programlanabilir bir çözüm sunar.
- Diğer herkes için, Kutools for Excel görevi birkaç tıklamayla tamamlamanın en hızlı ve kullanıcı dostu yolunu sunar — kodlama veya formül düzenleme gerektirmez.
İş akışınıza en uygun yöntemi seçerek formüllerinizi verimli bir şekilde temizleyebilir ve elektronik tablolarınızın anlaşılması ve sürdürülmesi kolay kalmasını sağlayabilirsiniz. Daha fazla Excel ipucu ve hilesini keşfetmek istiyorsanız, web sitemiz binlerce öğretici sunarak Excel'i ustalaşmanız için size yardımcı olur.
İlgili Makale:
Excel'de formüllerdeki hücre referanslarını aralık adlarıyla değiştirme
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin, daha önce hiç yaşamadığınız bir verimlilik deneyimini yaşayın. Kutools for Excel, üretkenliğinizi artıracak ve zamanı kaydetmenizi sağlayacak300’den fazla gelişmiş özellik sunar. En çok ihtiyaç duyduğunuz özelliği almak için buraya tıklayın...
Office Tab, Office’e sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint’te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Aynı pencere içerisinde yeni sekmelerde birden fazla belge açın veya oluşturun, yeni pencerelerde açmak yerine.
- Verimliliğinizi %50 artırın, her gün yüzlerce fare tıklamasını sizin için azaltın!