İ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-in hüceyrələrində boş və ya eksik girişləri necə önləmək olar?

A1 aralığında bir iş masası yaratdığınızı düşünürsünüz: bir iş səhifəsinin B10 və bu masa aralığında görünən boş hüceyrənin qarşısını almaq üçün necə nail olmaq lazımdır? Bu yazı, boş bir giriş, edərkən müəyyən bir masa aralığında göründüyü zaman, avtomatik olaraq istenilən qutuyu açmaq üçün bir üsul təqdim edir. Məqalədə addım-addım metodu edin.

VBA kodunu istifadə edərək hüceyrələrdə boş və ya eksik girişlərin qarşısını alın


arrow mavi sağ bubbleVBA kodunu istifadə edərək hüceyrələrdə boş və ya eksik girişlərin qarşısını alın


A1: B10 siz içərisində masa yaratmaq üçün lazım olan aralıkdır və A1, B1 masanın başlıqlarını aşağıda göstərilən ekran görüntüsünü ehtiva edir. A2 aralığında görünən boş və ya eksik girişlərin qarşısını almaq üçün aşağıdakıları yerinə yetirin: B10 masa yaradır.

1. Bəzi aralıklarda boş qeydlərə icazə verməyəcəyiniz iş yerində, hesabat sekmesini sağa vurun və sonra basın Kodları baxın sağ tıklayarak menyudan.

2. İçində Proqramlar üçün Microsoft Visual Basic Pəncərənin kodunu aşağıda VBA kodunu kopyalayıb yapışdırın. Ekran görüntüsünə baxın:

VBA kodu: Bir sıra hüceyrələrdə boş və ya eksik girişlərin qarşısını alın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

QeydVBA kodunda, A2: B10 içərisində boş bir hüceyrəni tərk etmək istəməyən hüceyrələr üçündür. Xahiş edirəm, lazım olanı dəyişdirin.

Bundan sonra, boş xanayı atlayaraq birbaşa müəyyən edilmiş aralığındakı növbəti hüceyrəni doldurduğunuzda bir əldə edəcəksiniz Excel üçün Kutools aşağıda göstərilən ekran görünüşü göstərilir.


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.

Be the first to comment.