Excel'de birden çok çalışma sayfasındaki açılır listeler nasıl senkronize edilir?
Tam olarak aynı açılır öğeleri içeren bir çalışma kitabındaki birkaç çalışma sayfasında açılan listeleriniz olduğunu varsayalım. Şimdi, bir çalışma sayfasındaki açılır listeden bir öğe seçtiğinizde, diğer çalışma sayfalarındaki açılır listeler aynı seçimle otomatik olarak eşitlenecek şekilde, çalışma sayfaları arasında açılır listeleri senkronize etmek istiyorsunuz. Bu makale, bu sorunu çözmenize yardımcı olacak bir VBA kodu sağlar.
Birden çok çalışma sayfasındaki açılır listeleri VBA koduyla senkronize edin
Birden çok çalışma sayfasındaki açılır listeleri VBA koduyla senkronize edin
Örneğin, açılır listeler şu adlarla adlandırılan beş çalışma sayfasındadır: Sayfa1, Sayfa2, ..., Sayfa5, Sayfa1'deki açılır seçime göre diğer çalışma sayfalarındaki açılır listeleri senkronize etmek için lütfen aşağıdaki VBA kodunu uygulayarak bunu yapın.
1. Sayfa1'i açın, sayfa sekmesine sağ tıklayın ve Kodu Görüntüle sağ tıklama menüsünden.
2. içinde Uygulamalar için Microsoft Visual Basic penceresinde aşağıdaki VBA kodunu yapıştırın. Sayfa1 (Kod) pencere.
VBA kodu: Birden çok çalışma sayfasındaki açılır listeyi senkronize edin
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Notlar:
3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, içindeki açılır listeden bir öğe seçtiğinizde Sayfa1, belirtilen çalışma sayfalarındaki açılır listeler, aynı seçime sahip olacak şekilde otomatik olarak senkronize edilecektir. Aşağıdaki demoya bakın.
Demo: Excel'de Birden Çok Çalışma Sayfasındaki Açılır Listeleri Senkronize Etme
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!