Note: The other languages of the website are Google-translated. Back to English

Excel'deki hücre değerine sayfa sekmesi adı nasıl eşitlenir?

Bazı durumlarda, çalışma sayfasını belirli bir hücre değerine göre yeniden adlandırmanız gerekebilir. Bu makalede, sayfa sekmesi adını Excel'deki hücre değerine eşit yapma yöntemlerini göstereceğiz.

VBA kodu ile sayfa sekmesi adını hücre değerine eşit yapın
Kutools for Excel ile sayfa sekmesi adını hücre değerine eşit yapın


VBA kodu ile sayfa sekmesi adını hücre değerine eşit yapın

Aşağıdaki VBA kodu ile, sayfa sekmesi adını otomatik olarak hücre değerine eşit yapabilirsiniz.

1. Sayfa adını hücre değerine eşitlemek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:

2. Aşağıdaki kodu kopyalayıp Kod penceresine yapıştırın ve ardından Ara Toplam + Q Microsoft Visual Basic for Applications penceresini kapatmak için aynı anda tuşlarına basın.

VBA kodu: Sayfa sekmesini hücre değerine eşit yapın

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

not: Kodda A1, sayfa adı olarak kullanmanız gereken değeri içeren hücredir. İhtiyacınız olduğu gibi değiştirebilirsiniz.

Şu andan itibaren, A1 hücresindeki değer değiştiğinde, sayfa sekmesi adı da eşit olarak değişecektir.


Kutools for Excel ile sayfa sekmesi adını hücre değerine eşit yapın

Bu bölümde size Birden Çok Çalışma Sayfasını Yeniden Adlandırma yarar Kutools for Excel. Bu yardımcı programla, Excel'deki belirli bir hücrenin değeriyle çalışma sayfalarını kolayca yeniden adlandırabilirsiniz.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. tık Kutools Artı > Çalışma Sayfası > Birden Çok Çalışma Sayfasını Yeniden Adlandırma. Ekran görüntüsüne bakın:

2. içinde Birden Çok Çalışma Sayfasını Yeniden Adlandırma iletişim kutusunda aşağıdaki işlemleri yapmanız gerekir.

1). Yeniden adlandırmak istediğiniz çalışma sayfası adlarını kontrol edin. Çalışma Sayfaları kutu (bir veya birden çok sayfa seçebilirsiniz).
2). Seçiniz Orijinal sayfa adını değiştirin kutusu Yeniden Adlandırma Seçenekleri Bölüm.
3). Bir çalışma sayfasını veya birden çok çalışma sayfasını belirtilen hücrenin değeriyle yeniden adlandırmak isterseniz, lütfen Belirli aralıktan seçeneğini seçin ve sayfaları temel alarak yeniden adlandırmak istediğiniz hücre aralığını seçin.
4). Tıkla OK buton. Ekran görüntüsüne bakın:

Aşağıda gösterilen ekran görüntüsü gibi, seçilen çalışma sayfalarının belirtilen aralık değeri ile yeniden adlandırıldığını görebilirsiniz.

notlar:

1. Kullanabilirsiniz filtre Çok sayıda çalışma sayfası varsa, gerekli çalışma sayfasını kolayca filtreleme işlevi.
2. Her sayfada belirli bir hücre değerine sahip birden çok çalışma sayfasını yeniden adlandırmak istiyorsanız. Örneğin, sayfa1 hücresinin A1 değerine, sayfa2 de A1 hücresinin değerine eşit olacaktır. Lütfen aşağıdaki çalışma sayfalarını seçin Çalışma Sayfaları kutusunu seçin ve ardından Çalışma sayfalarını belirli bir hücreyle yeniden adlandırın seçeneği ve kutuda A1 hücresini belirtin.

3. Hücre değeri değiştikçe sayfa adı otomatik olarak değişmeyecektir.

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Kutools for Excel ile sayfa sekmesi adını hücre değerine eşit yapın


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (28)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu talimat verildiği şekilde yapıştırdım ancak mevcut Makrolar listemde görünmedi. Makro adını girerek manuel olarak çalıştırmayı denedim. Makroyu çalıştırmayı denediğinde, "İsteğe bağlı bağımsız değişken yok" hata mesajı çıktı.

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("A1")) O Zaman Hiçbir Şey Değildir
ActiveSheet.Name = ActiveSheet.Range("A1")
Eğer son
End Sub

Bu kodu çalıştıran ve aynı sorunu yaşayan başka biri var mı?

Bir test olarak daha temel kod çalıştırdım ve iyi çalıştı, bu nedenle "A1" deki değer soruna neden olmuyor. Aşağıdaki kodu çalıştırdığımda Makro listesinde "myTabName" Makro adını görebiliyorum. Yukarıdaki kod görünmüyor ve bunun hata/eksik argümanı nedeniyle olduğunu varsayıyorum.

Alt myTabName()
ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub

Bir hücre değerine dayalı olarak sekme adı değişikliklerini otomatikleştirmek için kodu kullanmayı çok istediğim için yardımınız için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Jason,
Kod benim durumumda iyi çalışıyor. Lütfen Office sürümünüzü sağlar mısınız? Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,

Bende işe yaramadı, bahsettiğim hücre bir formül olduğu için olabilir mi?

Cevabın için teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mei,

Geri bildiriminiz için teşekkür ederiz. Sorun formülden kaynaklandı. Kod değiştirildi. Lütfen bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodun çalışmasını alıyorum, ancak başka bir hücreye atıfta bulunuyorsa (ve bu hücre değişirse) hücre adını aldığında sekme adını otomatik olarak güncellemiyor.


Yani, kodun sekme adı olarak atıfta bulunduğu, her sekmedeki belirli bir hücredeki hücre metnini değiştiren ana listedeki bir hücreyi değiştiriyorum, ANCAK sekme adını buna uygun olarak güncellemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Aşağıdaki VBA kodu sorununuzu çözebilir. yorumun için teşekkürler1

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
xRg'yi Aralık Olarak, xCell'i Aralık Olarak Kısın
On Error Resume Next
Kesişmiyorsa(Hedef, Aralık("A1")) O Zaman Hiçbir Şey Değildir
ActiveSheet.Name = ActiveSheet.Range("A1")
Eğer son
Application.EnableEvents = Yanlış
xRg = ActiveSheet.Range("A1") olarak ayarlayın.Öncelikler
Eğer xRg Hiçbir Şey Değilse
xRg'deki Her xCell için
ActiveSheet.Name = ActiveSheet.Range("A1")
Sonraki
Eğer son
Application.EnableEvents = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala çalışmıyor. JJJ ile aynı sorunu yaşıyorum. kristal: Cevabınızda kodun tamamı gösteriliyor mu?
Yorumunuzda gösterilen son satır "xRg = ActiveSheet.Range("A1").Öncekileri Ayarla" şeklindedir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili JAS,
Yorumun tamamını görüntülemek için lütfen yorumun sağ tarafındaki Daha fazla oku düğmesini tıklayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala aynı sorun var.

Yeni sayfanın A1'i farklı bir sekmede başka bir hücreye işaret ediyor. İlk seferde (yürüttüğünüzde) günceller, ancak ana hücreyi düzenlerken değişiklik olmaz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Özel Alt Worksheet_SelectionChange(Excel.Range Olarak Değer Hedefine Göre)
Hedef Ayarla = Aralık ("A1")
Hedef = "" ise, Sub'dan Çıkın
Hatalı GoTo Badname
ActiveSheet.Name = Sol(Hedef, 31)
Exit Sub
Kötü isim:
MsgBox "Lütfen A1'deki girişi gözden geçirin." & Chr(13) _
& "Bir veya daha fazla içeriyor gibi görünüyor" & Chr(13) _
& "yasadışı karakterler." & Chr(13)
Aralık ("A1"). Etkinleştir
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala sorun aynı, ilk seferde değişiyor. o hücreyi başka bir sayfaya bağladığımda ve değiştirdiğimde otomatik olarak değişmiyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu kullanmam gerekiyor ama daha önce hiç vba kodu girmedim. Herhangi bir rehberlik takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Her sekmedeki belirli bir hücredeki hücre metnini değiştiren, kodun sekme adı olarak atıfta bulunduğu ana listedeki bir hücreyi değiştiririm, ANCAK sekme adını buna uygun şekilde güncellemez.

---- iş değil
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bütün kodu aldım ve işe yaradı. Yardımın için çok teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili JAS,
Yardım edebildiğime sevindim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Basit makro kullanmayı tercih edebilirsiniz



Alt Macro3 ()
Tamsayı olarak loş indeks
İndeks için = 1'den 18'e

Sheets(index).Name = Sheets(index).Range("A2").Value

Sonraki dizin



End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Paylaşım için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tam olarak ihtiyacım olan şey bu, ancak bir tarihi yeniden oluşturmak için sekmeye ihtiyacım var ve çalışmıyor... Bunun, excel'in tarih ve saati belirleme şekliyle ilgili olduğunu varsayıyorum, herhangi biri bir geçici çözüm önerebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Selam Nick,
Excel, özel karakterler içeren sayfa adının yazılmasını desteklemez. Yazdığınız tarih / karakterini içeriyorsa, o tarihle sayfa adı oluşturmanıza izin vermez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İki hücreye nasıl başvurabilirim. örneğin isim ve kimlik numarası?
Bu yorum sitedeki moderatör tarafından en aza indirildi
İhtiyacım olan şey için mükemmel çalışan VBA kodu için yukarıdaki kodunuzu kullanıyorum. Ancak, her yeni iş için kopyalanan ve yeniden kullanılan İş Şablonu adlı bir sayfada bir sürü makrom var. Tüm makrolarımı, İş Şablonu (2) adlı yeni bir kopyalanmış sürüme göre tasarladım. Sayfa adı yeni iş adıyla değiştirildiğinde, makrolar artık çalışmaz ve bunu manuel olarak yapmaları gerekir. Makro düğmelerimden herhangi birini, sayfa adını değiştirmeden önce kullanmak yerine, herhangi bir noktada kullanabilmek istiyorum.

Kod işlevlerinin geri kalanını çalıştırmadan önce VBA kodunun her zaman sayfa adına başvurmasının bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kutools Plus ile isimleri değiştirilebilen en yüksek çalışma sayfası sayısı nedir? çünkü excel sadece 17 ismi değiştirmeme izin veriyor ve hepsi bu
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu, ilk çalışma sayfam için mükemmel çalıştı, ancak ikinci veya üçüncü vb. için değil (hepsi bu işleve ihtiyaç duyan yaklaşık 20 çalışma sayfam var). Bir şey mi kaçırıyorum?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Owen,
Bu kod, her seferinde yalnızca bir çalışma sayfası için çalışır. Rahatsızlıktan dolayı özür dileriz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba kristal,

Kodunuzu yapıştırdığımda "kullanıcı tanımlı tür tanımlanmadı" hatasıyla geri mi geliyor?

Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba TomJ,
Referanslar - VBAProject iletişim kutusunda bu üç seçeneğin işaretli olduğundan emin olun.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Bu yorum sitedeki moderatör tarafından en aza indirildi
güzel çalıştı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
, bonjour
Bu uygulama, toplama işleminden sonra vba kodunda başka+q uygulamasına neden olabilir.
J'ai simplement fermé la page apres avoir collé et ça ne Marche pas
sağol
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır