İ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

Excel-də cell dəyəri əsasında hesabatı və adını dəyişmək necədir?

Normal olaraq, müraciət edə bilərsiniz Taşı və ya Kopyala bir iş səhifəsini kopyalamaq xüsusiyyətini və sonra nüsxə üçün yeni bir ad yazmaq lazımdır. Lakin, iş səhifəsini kopyaladıktan sonra hesabatı bir hüceyrə dəyərinə əsasən yenidən adlandırmağa çalışdınızmı? Bu məqalədə, bir fotoşəkil edərkən iş səhifəsini avtomatik olaraq hüceyrə dəyərinə əsasən necə dəyişmək barədə danışacağam.

VBA koduyla cell dəyərinə əsaslanan bir iş səhifəsini və adını dəyişin

Excel-də Kutools ilə iş nömrəsini bir neçə dəfə kopyalayın və hüceyrə dəyərlərinə əsasən yenidən adlandırın


VBA koduyla cell dəyərinə əsaslanan bir iş səhifəsini və adını dəyişin


Aşağıdakı VBA kodu bir iş səhifəsinin surətini və xüsusi bir hüceyrə dəyəri ilə avtomatik olaraq adını dəyişməyə kömək edə bilər, belə edin:

1. Kopyalamaq istədiyiniz işləri aktivləşdirin və sonra da basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Bir iş səhifəsini kopyalayın və bir cell dəyəri ilə yenidən adlandırın:

Sub Copyrenameworksheet()
'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. Və sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və mövcud iş səhifəniz bütün iş kitablarından sonra cari iş kitabına kopyalanır ve belirttiğiniz hücre değeriyle yeniden adlandırılır, ekran görüntüsüne baxın:

1 dəyərinə görə doc kopyalayın

Qeyd: Yuxarıdakı kodda, hüceyrə istinadları A1 yeni kopyalanan hesabat üçün yenidən adlandırmaq istədiyin hüceyrə dəyəri, onu sizin ehtiyacınıza dəyişə bilərsiniz.


Excel-də Kutools ilə iş nömrəsini bir neçə dəfə kopyalayın və hüceyrə dəyərlərinə əsasən yenidən adlandırın

Yuxarıdakı kod, bir neçə dəfə kopyalamanız və onları hüceyrə dəyərlər siyahısına əsasən yenidən adlandırmanız lazımdırsa, yalnız bir hüceyrə dəyəri ilə adını dəyişə bilər, Excel üçün Kutools'S Sekans işini yaradın Bu vəzifəni mümkün qədər tez başa çatdırmaq üçün sizə kömək edə bilər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutoolsxahiş edirəm:

1. Basın Müəssisə > İş > Sekans işlərini yaradın, bax ekran görüntüsü:

2 dəyərinə görə doc kopyalayın

3 dəyərinə görə doc kopyalayın

2. İçində Sekans işini yaradın informasiya qutusunda aşağıdakı əməliyyatları edin:

(1.) Kopyalamaq istədiyiniz iş səhifəsinin adını seçin Əsas iş açılan siyahı;

(2.) Data daxilində bir sıra seçimi seçin Əsas səhifəyə əsaslanan adlar bölməsinə basın və basın 5 dəyərinə görə doc kopyalayın düyməsinə basaraq köçürülmüş iş səhifələrini yenidən adlandırmaq istədiyiniz hüceyrə dəyərlərini seçin.

Excel İndi Download Kutools!

3. Sonra basın Ok düyməsini seçin və xüsusi iş səhifəsi bir neçə dəfə kopyalanır və yeni bir iş kitabında seçdiyiniz hüceyrə dəyərləri ilə yenidən adlandırılır, ekran görünüşünə baxın:

4 dəyərinə görə doc kopyalayın

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə bir iş hesabatını bir neçə dəfə kopyalayın və hüceyrə dəyərlərinə əsasən adını dəyişin

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



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.
    Phil · 1 years ago
    Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date.

    For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017.

    What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17".

    Is this possible?

    By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools.

    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    joe · 2 years ago
    The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template.




    Sub Copyrenameworksheet()
    'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
    End Sub