Note: The other languages of the website are Google-translated. Back to English

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

Տվյալների վավերացման բացվող ցուցակով բջջի համար, երբ այլ բջիջից բովանդակություն պատճենեք և տեղադրեք դրան, բացվող ցուցակը կվերանա և կփոխարինվի նոր տեղադրման բովանդակությամբ: Որոշ դեպքերում դուք ցանկանում եք կանխել այլ բովանդակության պատճենումը և տեղադրումը բջիջի վրա բացվող ցուցակով, ի՞նչ կանեիք դրանով զբաղվելու համար: Այս հոդվածում դուք կստանաք այս խնդրի լուծման VBA մեթոդ:

Կանխեք պատճենեք և տեղադրեք բջիջը Excel- ում բացվող ցուցակով


Կանխեք պատճենեք և տեղադրեք բջիջը Excel- ում բացվող ցուցակով

1. Բացեք աշխատաթերթը բացվող ցուցակի բջիջով, որը ցանկանում եք կանխել պատճենումը և տեղադրումը:

2. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic ծրագրեր պատուհան.

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

VBA կոդ. Կանխել պատճենումը և տեղադրումը բջիջի վրա բացվող ցուցակով

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
    Dim xValue As String
    Dim xCheck1 As String
    Dim xCheck2 As String
    Dim xRg As Range
    Dim xArrCheck1() As String
    Dim xArrCheck2() As String
    Dim xArrValue()
    Dim xCount, xJ As Integer
    Dim xBol As Boolean
'    If Target.Count > 1 Then
'        Exit Sub
'        End If
    xCount = Target.Count
    ReDim xArrCheck1(1 To xCount)
    ReDim xArrCheck2(1 To xCount)
    ReDim xArrValue(1 To xCount)
    Application.EnableEvents = False
    On Error Resume Next
    xJ = 1
    For Each xRg In Target
        xArrValue(xJ) = xRg.Value
         xArrCheck1(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    Application.Undo

    xJ = 1
    For Each xRg In Target
        xArrCheck2(xJ) = xRg.Validation.InCellDropdown
        xJ = xJ + 1
    Next

    xBol = False
    For xJ = 1 To xCount
        If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
            xBol = True
            Exit For
        End If
    Next

    If xBol Then
       MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
    Else
        xJ = 1
        For Each xRg In Target
            xRg.Value = xArrValue(xJ)
            xJ = xJ + 1
        Next

    End If

    Application.EnableEvents = True
End Sub

4. Մամուլ ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic ծրագրեր պատուհան.

5. Երբ բովանդակությունը տեղադրեք բացվող ցուցակով բջիջին, կհայտնվի երկխոսության տուփ ՝ հիշեցնելու համար, որ կպցնելն անթույլատրելի է: Տեսեք,

ՆշումԱյս VBA- ն ուղղակի աշխատում է մեկ բջիջների տեղադրման մեջ: Եթե ​​պատճենեք և տեղադրեք բազմաթիվ բջիջներում, դա չի գործի:

Excel- ում հեշտությամբ ստեղծեք բացվող ցուցակ վանդակում:

The Բացվող ցուցակ ՝ տուփերով օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հեշտությամբ ստեղծել բացվող ցուցակ նշած տուփերով ՝ նշված տիրույթում, ընթացիկ աշխատաթերթում, ընթացիկ աշխատանքային գրքում կամ բացված աշխատանքային գրքույկներում ՝ ելնելով ձեր կարիքներից:
Ներբեռնեք ամբողջական հնարավորությունը 30- Kutools-ի օրական անվճար հետք Excel-ի համար հիմա:


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

Ինչպե՞ս ստեղծել բացվող ցուցակ Excel- ում բազմաթիվ վանդակում:
Excel- ի շատ օգտվողներ հակված են բացման ցուցակ ստեղծել բազմաթիվ վանդակում, որպեսզի ամեն անգամ ցուցակից ընտրեն բազմաթիվ իրեր: Իրականում, Դուք չեք կարող ստեղծել տվյալների վավերացումով բազմաթիվ ցուցանակներով ցուցակ: Այս ձեռնարկում մենք ցույց կտանք ձեզ Excel- ում բազմաթիվ ցուցանակներով բացվող ցուցակ ստեղծելու երկու եղանակ: Այս ձեռնարկը տրամադրում է խնդիրը լուծելու մեթոդը:

Excel- ում ստեղծեք մեկ այլ աշխատանքային գրքից բացվող ցուցակ
Տվյալների վավերացման բացվող ցուցակը աշխատանքային գրքում ստեղծելը բավականին հեշտ է: Բայց եթե տվյալների վավերացման համար անհրաժեշտ ցուցակի տվյալները տեղակայվեն մեկ այլ աշխատանքային գրքում, ի՞նչ կանեիք: Այս ձեռնարկում դուք կսովորեք, թե ինչպես մանրամասնորեն ստեղծել Excel- ի մեկ այլ աշխատանքային գրքից թողարկված ցանկի ցուցակ:

Excel- ում ստեղծեք որոնելի բացվող ցուցակ
Բազմաթիվ արժեքներով բացվող ցուցակի համար պատշաճ գտնելը հեշտ գործ չէ: Նախկինում մենք ներմուծել ենք բացվող ցուցակը ավտոմատ կերպով լրացնելու մեթոդ, երբ առաջին տառը մուտքագրեք բացվող վանդակում: Ինքնալրացման գործառույթից բացի, դուք կարող եք նաև բաց թողնել ցանկը որոնելի դարձնել `բացվող ցուցակում պատշաճ արժեքներ գտնելու գործում աշխատանքային արդյունավետությունը բարձրացնելու համար: Բացվող ցուցակը որոնելի դարձնելու համար փորձեք այս ձեռնարկի մեթոդը:

Excel- ի բացվող ցուցակում արժեքներ ընտրելիս ավտոմատ կերպով լրացրեք այլ բջիջներ
Ասենք, որ դուք ստեղծել եք բացվող ցուցակ `հիմնվելով B8: B14 բջիջների տիրույթի արժեքների վրա: Բացվող ցուցակում ցանկացած արժեք ընտրելիս ցանկանում եք, որ համապատասխան արժեքները C8: C14 բջիջների տիրույթում ավտոմատ կերպով լրացվեն ընտրված խցում: Խնդրի լուծման համար, այս ձեռնարկի մեթոդները կօգնեն ձեզ:

Բացվող ցուցակի այլ ձեռնարկներ ...


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (12)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա աշխատում է, բայց երբ ես տեղադրում եմ արժեքը, սա թույլ է տալիս տվյալներ, որոնք բացվող ցանկից չեն: Ցանկից չգտնվող արժեքները սահմանափակելու ցանկացած եղանակ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դիլիպ, Դուք կարողացա՞ք լուծել խնդիրը, ես նույնպես նման խնդիր ունեմ: Ես պետք է թույլատրեմ պատճենել, տեղադրել միայն տվյալների վավերացման բջիջում բացվող արժեքների համար, այլ ես պետք է սահմանափակեմ: Կարող եք կիսվել ձեր լուծումով: Շնորհակալություն Ռաո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, այս մակրոյով աշխատելիս ստացա վրիպազերծման այս սխալը՝ «Application.Undo»: Խնդրում ենք լուծել այս ASAP-ը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, վերը նշված vba կոդը գործարկված չէ: Խնդրում ենք լուծել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթամաս Worksheet_Change (ByVal թիրախը որպես միջակայք) Dim xValue որպես տող Dim xCheck1 Որպես տող Dim xCheck2 Որպես տող, եթե Target.Count > 1 Ապա Դուրս եկեք Sub End If Application.EnableEvents = False xValue = Target.Value On Error. Validation.InCellDropdown On Error GoTo 1 Application.Undo On Error Resume Next xCheck0 = Target.Validation.InCellDropdown On Error GoTo 2 Եթե xCheck0 = xCheck1 Ապա Target = xValue Else MsgBox «Կպցնելը չի ​​թույլատրվում»: End If Application.EnableEvents = True End Sub Այս մակրոն չի աշխատում, երբ պատճենվում է տարբեր աշխատանքային գրքույկից կամ աշխատաթերթից, ուստի խնդրում եմ, ասեք ինձ, թե ինչպես խուսափել այս բաներից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն !! լավ է աշխատում ինձ համար !!! մեկ բջիջի մեջ պատճենելը սահմանափակված է: բայց եթե ես պատճենեմ բջիջների ցանկը և տեղադրեմ..., ապա տեղադրումն ընդունվում է: թույլ տվեք տեսնել, թե արդյոք կարող եմ կարգավորել սա…, այնուամենայնիվ, շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ջեփսոն, հասցրե՞լ եք լուծել բազմակի բջիջներում պատճենելու և տեղադրելու հարցը: Նախապես շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Դիլիպ, կարո՞ղ եք շտկել մածուկի արժեքների միջոցով տվյալների թույլատրման խնդիրը: Ես նույնպես բախվում եմ նույն խնդրին: օգնեք ինձ այս հարցում, խնդրում եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Դիլիպ, կարո՞ղ եք շտկել մածուկի արժեքների միջոցով տվյալների թույլտվության խնդիրը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հասցրե՞լ եք լուծել բազմակի բջիջներում պատճենելու և տեղադրելու հարցը: Նախապես շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ, ես դա չհասկացա: Որոշ ժամանակ անց չփորձեցի լուծել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես աշխատում եմ, ԲԱՅՑ ծածկագիրը դնելուց հետո ոչինչ չես կարող ՀԵՏԱՑՆԵԼ: Ոչ մի քայլ հետ չի կարելի.
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից