Ինչպե՞ս թույլատրել բացառիկ արժեքները միայն Excel- ում:
Եթե ցանկանում եք պահպանել միայն եզակի արժեքները, որոնք մուտքագրվում են աշխատաթերթի սյունակում և կանխում են կրկնօրինակները, այս հոդվածը ձեզ կներկայացնի մի քանի արագ հնարքներ `այս խնդրի լուծման համար:
Տվյալների վավերացումով աշխատաթերթում թույլատրեք միայն եզակի արժեքներ
Թույլատրել բացառիկ արժեքները միայն VBA կոդով աշխատաթերթում
Excel- ի համար Kutools- ի հետ աշխատաթերթում թույլ տվեք բացառիկ արժեքներ
Տվյալների վավերացումով աշխատաթերթում թույլատրեք միայն եզակի արժեքներ
Փաստորեն, այն Տվյալների վավերացում Excel- ի գործառույթը կարող է օգնել ձեզ լուծել այս խնդիրը, խնդրում ենք վարվել հետևյալ կերպ.
1, Ընտրեք այն բջիջները կամ սյունակը, որոնք ցանկանում եք մուտքագրել միայն եզակի արժեքներ, ապա կտտացրեք Ամսաթիվ > Տվյալների վավերացում > Տվյալների վավերացում, տես նկարի նկարը.
2, Մեջ Տվյալների վավերացում երկխոսության տուփ, խնդրում ենք կատարել հետևյալ գործողությունները.
(1.) Կտտացրեք այն Կարգավորումներ էջանիշ;
(2.) Համաձայն Թույլ տալ բացվող ցուցակ, ընտրիր Սովորություն;
(3.) Եվ մուտքագրեք այս բանաձևը. = COUNTIF ($ E: $ E, E1) <2 (E այն սյունն է, որը ցանկանում եք թույլ տալ միայն եզակի արժեքներ, E1 սյունակի առաջին բջիջն է, որը ցանկանում եք օգտագործել) մեջ Ֆորմուլա տեքստային վանդակում:
3. Եվ այնուհետեւ կտտացրեք OK կոճակը, այսուհետ, երբ դուք կրկնօրինակի արժեք եք մուտքագրում ձեր կողմից դրված հատուկ սյունակը, ձեզ հիշեցնելու է նախազգուշական հաղորդագրություն, տես նկարի նկարը.
Թույլատրել բացառիկ արժեքները միայն VBA կոդով աշխատաթերթում
Եթե դուք հետաքրքրված եք VBA կոդով, ապա հետևյալ կոդը նույնպես կարող է ձեզ լավություն բերել:
1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք թույլ տալ միայն բացասական թվեր, և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ:
VBA կոդ. Աշխատաթերթում թույլատրեք միայն եզակի արժեքներ.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
Dim xRg As Range, iLong, fLong As Long
If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
Application.EnableEvents = False
For Each xRg In Target
With xRg
If (.Value <> "") Then
If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
iLong = .Interior.ColorIndex
fLong = .Font.ColorIndex
.Interior.ColorIndex = 3
.Font.ColorIndex = 6
MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
.ClearContents
.Interior.ColorIndex = iLong
.Font.ColorIndex = fLong
End If
End If
End With
Next
Application.EnableEvents = True
End If
End Sub
ՆշումՎերոնշյալ ծածկագրում, A1: A1000 սյունակի բջիջներն են, որոնք ցանկանում եք կանխել կրկնօրինակումը:
2, Ապա պահեք և փակեք այս կոդը, այժմ, երբ A1 բջիջում կրկնօրինակ արժեքներ եք մուտքագրում, A1000 է դուրս գալիս նախազգուշական հաղորդագրություն ՝ հիշեցնելու համար, որ կրկնօրինակ մուտքը չի թույլատրվում, տես նկարի նկարը.
3. Այնուհետեւ կտտացրեք OK կոճակը, կրկնօրինակ արժեքը կջնջվի:
Excel- ի համար Kutools- ի հետ աշխատաթերթում թույլ տվեք բացառիկ արժեքներ
Վերոնշյալ երկու մեթոդները կարող են կանխել միայն մեկ սյունակում կրկնօրինակ գրառումները, եթե ունեք Excel- ի համար նախատեսված գործիքներ, նրա Կանխել կրկնօրինակումը օգտակար ծրագիրը կարող է օգնել արագ կանխել կրկնօրինակումը մի շարք բջիջներում և միայն մեկ սյունակում կամ շարքում:
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք բջիջների սյունը կամ շարքը, որոնք ցանկանում եք կանխել կրկնօրինակ արժեքները, բայց թույլ են տալիս միայն եզակի տվյալներ:
2. Այնուհետեւ կտտացրեք Կուտոլս > Կանխել մուտքագրումը > Կանխել կրկնօրինակումը, տես նկարի նկարը.
3, Եվ ահազանգող հաղորդագրություն դուրս կգա ՝ ձեզ հիշեցնելու համար Տվյալների վավերացում այս հատկությունը կիրառելու դեպքում կհեռացվի, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք այո շարունակելու կոճակը, և մեկ այլ արագ տուփ է դուրս գալիս ՝ հիշեցնելու համար, թե որ բջիջներն են կիրառել այս հատկությունը: Տեսեք,
5. Եվ այնուհետեւ կտտացրեք OK կոճակը, հիմա, երբ A1: D15 տիրույթում մի քանի կրկնօրինակ տվյալներ եք մուտքագրում, ցուցադրվում է հուշման տուփ ՝ կրկնօրինակ տվյալները անվավեր հիշեցնելու համար, անհրաժեշտ է մուտքագրել միայն եզակի արժեքը: Տեսեք,
Ավելի քան 200 գործառույթներ կարող են ձեր աշխատանքը արդյունավետ դարձնել, կարող եք ներբեռնեք Kutools Excel- ի համար անվճար հետք:
Դեմո. Excel- ի համար Kutools- ի հետ աշխատաթերթում թույլատրեք բացառիկ արժեքներ
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: