İ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ə xüsusi adı olan yeni hesabatı necə əlavə etmək olar?

Bəzən yeni bir hesabat yaratmaq və avtomatik olaraq Excel-də xüsusi bir ad ilə adlandırmaq istəyir. Bu yazıda, mövcud iş kitabında xüsusi adı olan yeni bir hesabatı əlavə etməklə yanaşı, Excel-də yeni bir iş kitabında xüsusi adı olan bir iş yeri yaratmaq üçün iki üsul göstərəcəyik.

VBA kodu ilə hazırkı iş kitabında xüsusi adı olan yeni hesabatı əlavə edin

Excel üçün Kutools ilə yeni bir iş kitabında xüsusi adı olan yeni hesabatı əlavə edin


VBA kodu ilə hazırkı iş kitabında xüsusi adı olan yeni hesabatı əlavə edin


Aşağıdakı VBA kodu ilə mövcud iş kitabının sonunda müəyyən adı ilə yeni bir hesabat əlavə edə bilərsiniz.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules.

3. VBA kodunun altına kopyala və yapışdırın Modules pəncərə.

VBA kodu: mövcud iş kitabının sonunda xüsusi adı ilə yeni bir hesabat əlavə edin

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up Excel üçün Kutools informasiya qutusuna bu səhifənin adı daxil edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra yeni bir iş xüsusi adı ilə yaradılır və mövcud iş kitabının sonunda yerləşdirilir.


Excel üçün Kutools ilə yeni bir iş kitabında xüsusi adı olan yeni hesabatı əlavə edin

Bu bölmədə biz təqdim edəcəyik Sekans işlərini yaradın faydası Excel üçün Kutools. Bu yardım proqramı ilə asanlıqla yeni bir iş kitabında xüsusi adı olan yeni bir hesabatı əlavə edə bilərsiniz.

Excel üçün Kutools : 300 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur.

1. Müəyyən adı olan yeni hesabatı əlavə etmək üçün əvvəlcədən bir hüceyrəyə bu ad yazmalısınız. Və sonra basın Müəssisə > İş > Sekans işlərini yaradın. Ekran görüntüsünə baxın:

2. İçində Sekans işlərini yaradın informasiya qutusu seçin Boş iş ci Əsas iş açılan siyahıdan seçin Tarixbir sıra seçimi və müəyyən iş səhifəsi adını ehtiva edən hüceyrəni daxil edin və nəhayət basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sonra bir hüceyrədən bu xüsusi adı olan yeni bir iş dərhal yeni bir iş kitabında yaradılır.

Qeydlər:

1. Eyni zamanda xüsusi adları olan bir neçə yeni çarx yaratmaq istəyirsinizsə, bu adları bir-bir hüceyrələrdə bir-bir daxil edin və sonra bu hüceyrələri seçin. Bir sıra məlumatlar Qutu.

2. Ayrıca sıra nömrələrindən və ya bununla bir xüsusi siyahıdan sıra işi yarada bilərsiniz Sekans işlərini yaradın kommunal. Ekran görüntüsünə baxın:

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.



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.
    guest · 7 months ago
    Hi, this does not properly account for user clicking cancel. It still creates worksheet.
    • To post as a guest, your comment is unpublished.
      crystal · 6 months ago
      Hi
      The code has been updated with the problem solving. Please have a try and thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Lowri · 9 months ago
    Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Good day,
      Please try the below VBA code. Hope it can help. Thanks for your comment.

      Sub CreateSheet()
      Dim xName As String
      Dim xSht As Object
      Dim xNWS As Worksheet
      On Error Resume Next
      xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
      If xName = "" Then Exit Sub
      Set xSht = Sheets(xName)
      If Not xSht Is Nothing Then
      MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
      Exit Sub
      End If
      ActiveSheet.Copy after:=Sheets(Sheets.count)
      Set xNWS = Sheets(Sheets.count)
      xNWS.Name = xName
      End Sub
      • To post as a guest, your comment is unpublished.
        Lowri · 6 months ago
        Thank you for your reply crystal! I have it working now :)