Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս կանխել Excel- ի բջիջներում դատարկ կամ բացակայող գրառումները:

Ենթադրելով, որ դուք ստեղծում եք աշխատաթերթ A1: B10 տիրույթի աղյուսակ և անհրաժեշտ է կանխել, որ դատարկ բջիջը հայտնվի այս աղյուսակի տիրույթում, ինչպե՞ս հասնել դրան: Այս հոդվածը ներկայացնում է մի եղանակ ՝ ավտոմատ կերպով պատուհանի տուփը բացելու համար, եթե խմբագրման ժամանակ դատարկ գրառումը հայտնվում է որոշակի աղյուսակի տիրույթում: Խնդրում ենք հոդվածում քայլ առ քայլ հետևել մեթոդին:

Կանխել դատարկ կամ բացակայող գրառումները բջիջներում ՝ օգտագործելով VBA կոդ


Կանխել դատարկ կամ բացակայող գրառումները բջիջներում ՝ օգտագործելով VBA կոդ

A1: B10- ը այն տիրույթն է, որտեղ դուք պետք է ներս ստեղծեք աղյուսակ, իսկ A1, B1- ը պարունակում է սեղանի վերնագրերը, ինչպես ցույց է տրված նկարում: Խնդրում ենք արեք հետևյալը `աղյուսակը կազմելու ընթացքում A2: B10 տիրույթում դատարկ կամ բացակայող գրառումները չհայտնաբերելու համար:

1. Այն աշխատաթերթում, որը դուք թույլ չեք տա դատարկ գրառումներ որոշակի տիրույթում, աջով կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում: Տեսեք,

VBA կոդ. Կանխել դատարկ կամ բացակայող գրառումները մի շարք բջիջներում

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

ՆշումVBA կոդում A2: B10- ը բջիջների շարք է, որը դուք չեք ցանկանում ներսում թողնել դատարկ բջիջ: Խնդրում ենք փոխել ընդգրկույթը, որքան ձեզ հարկավոր է:

Այսուհետ, երբ բաց եք թողնում դատարկ բջիջը և անմիջապես լրացնում նշված բջիջի հաջորդ բջիջը, կստանաք a Kutools for Excel երկխոսության տուփ, ինչպես ցույց է տրված նկարում


Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations