Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako preprečiti prazne ali manjkajoče vnose v celice v Excelu?

Če menite, da ustvarite tabelo v območju A1: B10 delovnega lista in morate preprečiti prazno celico, ki se pojavlja v tej tabeli, kako jo doseči? V tem članku je predstavljena metoda za samodejno pojavljanje, če se med urejanjem pojavlja prazen vnos, ki se pojavlja v določeni razpredelnici tabele. Prosimo, upoštevajte metodo korak za korakom v članku.

Preprečevanje praznih ali manjkajočih vnosov v celicah z uporabo kode VBA


puščica modra desno mehurčekPreprečevanje praznih ali manjkajočih vnosov v celicah z uporabo kode VBA


A1: B10 je obseg, kjer morate ustvariti tabelo v notranjosti, A1, B1 pa vsebuje glave tabele, kot je prikazano spodaj. Za preprečitev praznih ali manjkajočih vnosov, ki se pojavljajo v območju A2, naredite naslednje: B10 pri ustvarjanju tabele.

1. Na delovnem listu, v katerem ne boste dovolili praznih vnosov v določenem obsegu, z desno miškino tipko kliknite zavihek stanja in kliknite Ogled kode iz menija z desnim klikom.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code. Prikaz slike:

VBA koda: preprečite prazne ali manjkajoče vnose v različnih celicah

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

Opombe: V kodi VBA je A2: B10 obseg celic, ki jih ne želite zapustiti nobene prazne celice znotraj. Prosimo, spremenite obseg, kot ga potrebujete.

Od zdaj naprej, ko preskočite prazno celico in napolnite naslednjo celico v določenem obsegu neposredno, boste dobili Kutools za Excel pogovorno okno kot spodaj prikazano sliko.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.