İ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ə satır və sütun əlavə etmək qabiliyyətini necə aradan qaldırmaq olar?

Normal olaraq, bir iş səhifəsində sütun və ya satır əlavə edənlərin qarşısını alsanız, əlavə məlumatlar arasında satır və sütunları tez və asanlıqla daxil edə bilərik. Əlavə satır və ya sütunların funksiyasını aradan qaldırmaq üçün hesabatı qoruya bilərsiniz. Ancaq, sətir və sütun funksiyasını qorumaqdan necə çıxardınız?

Digərləri satır və sütunları VBA kodu ilə yerləşdirin


arrow mavi sağ bubble Digərləri satır və sütunları VBA kodu ilə yerləşdirin

Aşağıdakı VBA kodu Excel iş kitabında əlavə satır və sütun funksiyasını aradan buraxmanıza kömək edə bilər, belə edin:

1. Basın Alt + F11 a açmaq Proqram üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules Modul pəncərəsini açmaq üçün aşağıdakı VBA-ni pəncərəyə kopyalayın.

VBA kodu: satır və sütunların yerləşdirilməsinin qarşısını almaq:

Sub NoInsert()
'Updateby Extendoffice 20161215
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = False
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. Basın F5 bu kodu çalıştırmak üçün düyməni basaraq, satır və ya sütunları əlavə etmək üçün sağ tıkladığınız zaman Taxmaq seçim kontekst menyusunda tətbiq edilə bilməz. Ekran görüntüsünə baxın:

doc funksiyası 1 funksiyasını aradan buraxın

Qeydlər:

1. Bu VBA satır və ya sütunları daxil etmək üçün sağ tıkladığınız zaman bütün iş kitablarında kontekst menyusundan Daxil funksiyasını əlil edəcək.

2. Kontekst menyusundan Insert əmrini bərpa etmək üçün aşağıdakı kodu tətbiq edin:

Sub NoInsert()
'Updateby Extendoffice 20161215
    Dim I As Integer
    Dim cbStr As String
    Dim cbCtrl As CommandBarControl
    Application.ScreenUpdating = True
    For I = 1 To 2
        If I = 1 Then
            cbStr = "row"
        Else
            cbStr = "column"
        End If
        For Each cbCtrl In Application.CommandBars(cbStr).Controls
            If cbCtrl.ID = 3183 Then
                cbCtrl.Enabled = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub


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.

Be the first to comment.