İ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

Exceldə qorunan bir işdə masa satırını əlavə etməklə masanın genişləndirilməsini necə təmin etmək olar?

Masanın avtomatik genişləndirilməsi funksiyası Excel-də iş səhifəsini qorumaqdan sonra itirəcəkdir. Məsələn, son sıradakı bir şey yazdığınızda, qorunan iş səhifənizdə Table1 adlı bir masa var, masa avtomatik olaraq yeni satırı daxil etmək üçün genişlənməyəcəkdir. Qorunan bir işə yeni bir satır əlavə edərək masanın genişləndirilməsi üçün metod varmı? Bu yazıda yer alan metod onu əldə etməyə kömək edə bilər.

VBA kodu ilə qorunan bir işdə masa satırını əlavə edərək masa genişləndirin


arrow mavi sağ bubble VBA kodu ilə qorunan bir işdə masa satırını əlavə edərək masa genişləndirin


Aşağıda göstərilən ekran göründüyü kimi, tabloınızda table1 adlı bir masa və masanın son sütunu bir formula sütunudur. İndi formulu sütunun dəyişməsini qarşısını almaq üçün iş səhifəsini qorumaq lazımdır, ancaq yeni satır əlavə edərək yeni hüceyrələrə yeni məlumatlar verərək tabloyu genişləndirməyə imkan verir. Xahiş edirik bunu edin.

1. klik Developer > Taxmaq > Düymə (Forma nəzarət) əlavə etmək Forma nəzarət iş səhifəsinə daxil et.

2. Popping up Makroyu təyin edin informasiya qutusuna basın yeni düyməsini basın.

3. İçində Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı VBA kodunu kopyalayıb yapıştırın SubEnd Sub in ci maddələrdə Kodu pəncərə.

VBA kodu: Masa sırasını qorunan bir işə yerləşdirərək masa genişləndirin

Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "123"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
       ActiveSheet.Range("A1").Select
        Range("Table1[[#Headers],[Total]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "new"
        ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                        Contents:=True, Scenarios:=False, _
                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        AllowUsingPivotTables:=True
    Selection.ClearContents
    Application.ScreenUpdating = True

Qeydlər:

1). Kodu daxilində "123" iş səhifəsini qorumaq üçün istifadə edəcəyi şifrədir.

2). Lütfən, cədvəlin adını və qorunacaq formulun tərkibindəki sütunun adını dəyişdirin.

3). Seçki kodunu Selection.Offset (1, -4) kodunda dəyişdirin. Cədvəlin ilk hədəf sütununu seçin. Məsələn, cədvəldə altı sütun varsa, xassəni (1, -5) dəyişin.

4. Basın Dayandırmaq + Q düymələri Microsoft Visual Basic for Applications penceresini bağlamaq üçün.

5. Formadakı sütun xaricində yeni məlumatlar təyin etmək üçün lazım olan cədvəldə hüceyrələri seçin və sonra basın Ctrl + 1 düymələri açmaq üçün Format Cells dialoq qutusu. İçində Format Cells dialoq qutusundan silin Bağlıdır qutusuna basın və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

6. İş yerinizi VBA kodunda göstərdiyiniz şifrə ilə qoruyun.

İndi, qorunan iş səhifənizdə Form Control düyməsinə basdıqdan sonra, masa göstərilən ekran görüntüsünün altında yeni bir satır əlavə edilərək genişləndirilə bilər.

Qeyd: qorunan iş yerindəki formula sütunu istisna olmaqla, masa dəyişə bilərsiniz.


arrow mavi sağ bubbleƏlaqəli məqalələr:



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.
    Mac · 1 months ago
    Try this Vba code for add new line in you table

    Sub Tab_Line_Add()
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    ActiveSheet.Range("D8").Select
    'D8 is tabel header
    Range("Table1[[#Headers],[Total]]").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect Password:=pswStr

    End Sub
    .
  • To post as a guest, your comment is unpublished.
    Brandi · 6 months ago
    So I tried this however it adds a new row at the bottom of the workbook on line 1048576 however my table only has about 800 records. I have no idea why it's doing this!
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Brindi,
      The code has been updated with the problem solved, please have a try and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Ali · 3 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.
      • To post as a guest, your comment is unpublished.
        Ali · 3 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.