İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Hesabatı sekme adını Excel-də cell dəyərinə bərabərləşdirmək üçün necə?

Bəzi hallarda müəyyən bir hüceyrə dəyərinə əsasən bir iş səhifəsinin adını dəyişmək tələb oluna bilər. Bu yazıda, Excel'deki cell dəyərinə bərabər hesabatı sekme adı yaratma metodlarını göstərəcəyik.

VBA kodu ilə mobil qiymətə bərabərdir

Excel üçün Kutools ilə hesabat sekmesi adı hüceyrə dəyərinə bərabər olun


Asanlıqla Excel-də bütün hesabat adlarını qeyd edərək bir hesabat indeksi yaradın:

Basın Kutools Plus> İş > Sehife adlarının siyahısı yaradın Excel-də yeni bir iş yerində bütün iş səhifələri adlarını asanlıqla siyahıya salmaq. Və hesabatın adını tıklayarak müvafiq iş səhifəsinə keçə bilərsiniz.

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi pulsuz sınaq yükləyin!


arrow mavi sağ bubble VBA kodu ilə mobil qiymətə bərabərdir


Aşağıdakı VBA kodu ilə, hesabatı sekme adı avtomatik olaraq hüceyrə dəyərinə bərabər edə bilərsiniz.

1. Sehife adını mobil dəyərə bərabər etmək istədiyiniz hesabat sekmesini sağa basın və sonra basın Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

2. Kodu aşağıda kodu kopyalayıp yapıştırın və sonra basın Dayandırmaq + Q Microsoft Visual Basic for Applications penceresini açmaq üçün eyni zamanda düymələri.

VBA kodu: Seksiyanın sekmesini mobil dəyərə bərabər olun

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

QeydKod: A1, hesabat adı kimi istifadə etmək üçün lazım olan dəyəri olan hüceyrədir. Lazım olduğu kimi dəyişə bilərsiniz.

Bundan sonra, A1 hücresindeki dəyər dəyişdikdə, hesabat sekmesi adı eyni şəkildə dəyişəcəkdir.


arrow mavi sağ bubble Excel üçün Kutools ilə hesabat sekmesi adı hüceyrə dəyərinə bərabər olun

Bu bölmədə sizə təqdim edirik Çoxlu iş yerlərinin adını dəyişin faydası Excel üçün Kutools. Bu yardım proqramı ilə asanlıqla Excel-də müəyyən hüceyrənin dəyəri ilə iş səhifələrini dəyişə bilərsiniz.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. klik Kutools Plus > İş > Çoxlu iş yerlərinin adını dəyişin. Ekran görüntüsünə baxın:

2. İçində Çoxlu iş yerlərinin adını dəyişin informasiya qutusunu aşağıdakı kimi etməlisiniz.

1). Yenidən adlandırmaq istədiyiniz iş səhifəsinin adlarını yoxlayın İş yerləri qutu (bir hesabatı və ya bir neçə təbəqəni seçə bilərsiniz).

2). Seçin Orijinal hesabatı adını dəyişdirin qutusunda Yeniləmə Seçimləri bölmə.

3). Bir iş səhifəsini və ya bir neçə iş səhifəsinin müəyyən edilmiş hüceyrənin dəyəri ilə yenidən adlandırmaq istəyirsinizsə, xahiş olunur seçin Xüsusi üçündür seçeneğine basın və tabanların adını dəyişmək istədiyiniz hüceyrələrin aralığını seçin.

3). Tıklayınız OK düyməsini basın. Ekran görüntüsünə baxın:

Seçilmiş iş səhifələrinin göstərilən ekran dəyərinin dərhal aşağıda göstərildiyi kimi dəyişdirildiyini görə bilərsiniz.

Qeydlər:

1. Siz istifadə edə bilərsiniz Süzgəc bir çox iş var olduqda, lazımi iş səhifəsini asanlıqla silmək üçün funksiyası.

2. Hər bir hesabatda müəyyən bir hüceyrə dəyəri ilə bir neçə iş səhifəsinin adını dəyişmək istəyirsən. Məsələn, sheet1 hüceyrə A1-in dəyərinə bərabər olacaq və sheet2 də onun A1 hücresinin dəyərinə bərabər olacaq. Lütfən, iş kitabçalarını seçin İş yerləri qutusu seçin və sonra seçin Xüsusi cədvəl ilə iş yerlərinin adını dəyişin seçimi seçin və qutuda A1 hücresini təyin edin.

3. Sehife adı mobil dəyər dəyişikliyi ilə avtomatik olaraq dəyişdirilməyəcəkdir.


arrow mavi sağ bubble Excel üçün Kutools ilə hesabat sekmesi adı hüceyrə dəyərinə bərabər olun

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nilanjan Pal · 1 years ago
    You can rather use simple macro



    Sub Macro3()
    Dim index As Integer
    For index = 1 To 18

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

    Next index



    End Sub
  • To post as a guest, your comment is unpublished.
    JAS · 1 years ago
    I got the whole code, and it worked. Thank you so much for your help!
  • To post as a guest, your comment is unpublished.
    jJJ · 1 years ago
    I am getting this code to work, but it does not automatically update the tab name when the cell it pulls the name from if referencing another cell (and that cell changes).


    I.e. I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      The following VBA code can solve your problem. Thank you for your comment1

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg As Range, xCell As Range
      On Error Resume Next
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      ActiveSheet.Name = ActiveSheet.Range("A1")
      End If
      Application.EnableEvents = False
      Set xRg = ActiveSheet.Range("A1").Precedents
      If Not xRg Is Nothing Then
      For Each xCell In xRg
      ActiveSheet.Name = ActiveSheet.Range("A1")
      Next
      End If
      Application.EnableEvents = True
      End Sub
      • To post as a guest, your comment is unpublished.
        NOOR · 1 months ago
        I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.

        ---- it's not work
      • To post as a guest, your comment is unpublished.
        John Hammonds · 2 months ago
        I need to use this code but I've never entered vba code before. Any guidance would be appreciated.
      • To post as a guest, your comment is unpublished.
        JAS · 1 years ago
        Still doesn't work. I'm having the same issue as jJJ. crystal: Is the whole code shown in your reply?
        The last line shown in your comment is "Set xRg = ActiveSheet.Range("A1").Precedents"
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Dear JAS,
          Please click the Read more button on the right side of the comment to display the whole comment.
          • To post as a guest, your comment is unpublished.
            Alex · 1 years ago
            Still have the same issue.

            I have A1 of the new sheet point to another cell in a different tab. It updates the first time (when you execute) but then no change when editing the master cell
  • To post as a guest, your comment is unpublished.
    Jason · 1 years ago
    I pasted this in as instructed but it didn't show up in my list of available Macros. I tried to manually run it by keying in the Macro name. When it attempted to run the Macro, an error message came up "Argument no optional".

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
    End Sub

    Has anyone else run this code and had the same issue?

    As a test I ran more basic code and it worked fine so the value in "A1" isn't causing the problem. When I run the code below I can see the Macro name "myTabName" in the Macro list. The code above doesn't appear and I'm assuming this is because of the bug/missing argument.

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

    Thanks for your help as I'd very much like to use the code as intended for automating tab name changes based on a cell value..
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Jason,
      The code works well in my case. Would you please provide your Office version? Thank you for your comment.