İ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ı nüsxə və Excel-də avtomatik olaraq adlandırmaq necədir?

Excel-də, bir iş səhifəsini kopyalayıb adını yazmadan avtomatik olaraq adını dəyişə bilərsinizmi? Bu yazıda, hesabatı bir dəfə və ya bir neçə dəfə kopyalamaq və bir anda onlara xüsusi adlar vermək barədə danışacağam.

Bir səhifəni bir neçə dəfə kopyalayın və VBA kodunu istifadə edərək, onlara artım sekmesindeki adları dəyişin

Bir iş səhifəsini bir neçə dəfə kopyalayın və Excel üçün Kutools istifadə edərək onları xüsusi adlarla yenidən adlandırın



Bir iş səhifəsini bir neçə dəfə kopyalamaq və onlara KTE-1, KTE-2, KTE-3, KTE-4 kimi seriyaların adlarını vermək istəyirsinizsə, aşağıdakı VBA kodu sizə bir xeyir verə bilər.

1. 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şi bir neçə dəfə kopyalayın və bir dəfə yenidən adlandırın:

Sub Create()
'Updateby Extendoffice 20160704
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və bir əmr qutusuna kopyalamaq istədiyiniz mövcud iş səhifəsinin neçə surətini xatırlatmaq, ekran görüntüsünü görə bilərsiniz:

doc kopyalanan sheets 1 adını dəyişin

4. Çıxarılan informasiya qutusuna ədədlərin sayını daxil edin və sonra basın OK düyməsi, mövcud iş səhifənizi 5 nüsxə ilə təkrarlandı və aşağıdakı ekran görüntüsü kimi sıralama adıyla dəyişdirildi:

doc kopyalanan sheets 2 adını dəyişin

Qeyd: Yuxarıda göstərilən kodda, iş adının mətnini dəyişə bilərsiniz "KTE-"Ehtiyacınız var.


Bəlkə, yuxarıda göstərilən VBA kodları tətbiq etmək çətindir, burada asan bir vasitə- Excel üçün KutoolsOnun ilə Sekans işlərini yaradın kommunal, bu vəzifəni heç bir səy olmadan əldə edə bilərsiniz.

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ü:

doc kopyalanan sheets 3 adını dəyişin

2. İçində Sekans işlərini yaradın dialoq qutusu:

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

(2.) Sonra kopyalamaq istədiyiniz iş sayını müəyyən edin Yaratmaq sayı mətn qutusu;

(3.) Və sonra yoxlayın Serial nömrələri Altında Əsas səhifəyə əsaslanan adlar bölmə;

(4.) Son olaraq, sağ paneldeki sekans işi adlarını yaradın, ekran görüntüsüne baxın:

doc kopyalanan sheets 4 adını dəyişin

3. Ayarları bitirdikdən sonra, klikləyin Ok düyməsini basın və xüsusi iş səhifəsi bir neçə dəfə kopyalandı və yeni bir iş kitabında yaradılan sıraya əsasən yenidən adlandırıldı, ekran görünüşünə baxın:

doc kopyalanan sheets 5 adını dəyişin

Excel İndi Free Download Kutools üçün tıklayın!


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.
    Ales · 1 years ago
    Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
  • To post as a guest, your comment is unpublished.
    Anonymous · 2 years ago
    Wow this saved a lot of time for me! Thank you!