Aralık adlarını Excel'deki hücre referanslarıyla nasıl değiştirebilirim?
Bazı insanlar formüllerinde çok sayıda aralık adı kullanmayı tercih ederler çünkü daha net ve okunması ve anlaşılması daha kolay olduğunu düşünürler. Ancak gerçek hücre referanslarını görmek istiyorsanız, nasıl yapmalısınız? Burada bu öğretici, bu sorunu çözmek için iki hızlı ipucu tanıtacaktır.
Aralık adlarını VBA kodu ile değiştirin;
Kutools for Excel ile aralık adlarını hızla ve kolayca değiştirin.
Örneğin, bu çalışma sayfasında A2: A6 aralığını şöyle adlandıracağım satış ücretive B2 olarak adlandırın indirimve ardından yeni fiyatı hesaplamak için bir formülde her iki aralık adını kullanarak. Ekran görüntüsüne bakın:
Hızlı hileleri izledikten sonra, aralık adı aşağıda gösterildiği gibi hücre referansı ile değiştirilecektir:
Aralık adlarını VBA kodu ile değiştirin
Formülün aralık adlarını hücre referanslarıyla değiştirmek için VBA'yı kullanarak, aşağıdaki gibi adım adım yapabilirsiniz:
1. Adlarını hücre referanslarıyla değiştirmek istediğiniz formülleri içeren aralığı seçin.
2. tık Geliştirici > Visual Basic or Alt + F11 yeni açmak Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle>modülve ardından modüle aşağıdaki kodları girin:
VBA kodu: Aralık adlarını Mutlak referansla değiştirin
Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
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: Aralık adlarını göreceli referansla değiştirin
Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
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. Sonra tıklayın düğmesine basıldığında, değiştirilecek aralığı seçmek için bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:
4. Sonra tıklayın OK. ve seçilen tüm formül aralığı adları değiştirildi. Ekran görüntüsüne bakın:
Aralık adlarını göreceli hücre referanslarıyla değiştirin |
Aralık adlarını mutlak hücre referanslarıyla değiştirin |
Kutools for Excel ile aralık adlarını hızla ve kolayca değiştirin
Eğer varsa Kutools for Excelonun Aralık Adlarını Değiştir yardımcı programı, aralık adlarını hızlı ve kolay bir şekilde hücre referanslarıyla değiştirmenize yardımcı olacaktır.
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Şimdi alın
Adım 1. Lütfen bu yardımcı programı tıklayarak uygulayın. Kutools > Diğer Araçlar > Aralık Adlarını Değiştir. Ekran görüntüsüne bakın:
Adım 2. adlı bir açılır iletişim kutusu Aralık Adlarını Değiştir görüntülenir ve tıklayın Aralık bölümünü seçin ve ardından hücre referanslarıyla değiştirmek istediğiniz aralığı seçin. Baz Aralığı. Ekran görüntüsüne bakın:
Adım 3. Click değiştirmekBaşka Aralık Adlarını Değiştir size değiştirilen formüllerin ve değiştirilmemiş formüllerin sayısını söylemek için açılır iletişim kutusu görüntülenecektir, Okve ardından seçilen çalmadaki aralık adları hücre referanslarıyla değiştirildi. Ekran görüntüsüne bakın:
Hakkında daha ayrıntılı bilgi için Aralık Adlarını DeğiştirZiyaret edin Aralık Adlarını Değiştir özellik açıklaması.
Göreli Makale:
Formüllerdeki hücre referansını Excel'deki aralık adlarıyla değiştirin
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!