Hogyan lehet megakadályozni az Excel legördülő listájával történő másolást és beillesztést a cellába?
Adatellenőrzéssel rendelkező legördülő lista esetén a cellák másolásakor és a beillesztéskor a legördülő lista eltűnik, és az új beillesztési tartalommal helyettesíthető. Bizonyos esetekben meg szeretné akadályozni, hogy más tartalmat másoljon és illesszen be a legördülő listával ellátott cellára. Mit tenne annak érdekében? Ebben a cikkben egy VBA módszert kap a probléma kezelésére.
Az Excel legördülő listájával megakadályozhatja a cellák másolását és beillesztését
Az Excel legördülő listájával megakadályozhatja a cellák másolását és beillesztését
1. Nyissa meg a munkalapot azzal a legördülő lista cellával, amely megakadályozza a másolást és beillesztést.
2. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazások ablak.
3. Ban,-ben Microsoft Visual Basic alkalmazások ablakban kattintson duplán az aktuális munkalap nevére a bal oldali ablaktáblán, majd másolja és illessze be az alábbi VBA kódot a Code editorba. Lásd a képernyőképet:
VBA kód: A legördülő listával megakadályozhatja a másolást és beillesztést a cellára
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 Sub4. nyomja meg más + Q gombokkal lépjen ki a Microsoft Visual Basic alkalmazások ablak.
5. Ha tartalmat illeszt be egy cellába egy legördülő listával, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy a beillesztés nem megengedett. Lásd a képernyőképet:
Megjegyzések: Ez a VBA csak egysejtű beillesztésben működik. Ha több cellába másol és beilleszt, nem fog működni.
Könnyen létrehozhat legördülő listát az Excel jelölőnégyzeteivel:
A Legördülő lista jelölőnégyzetekkel hasznossága Kutools az Excel számára segítségével könnyedén létrehozhat egy legördülő listát egy meghatározott tartományba tartozó jelölőnégyzetekkel, az aktuális munkalap, az aktuális munkafüzet vagy az összes megnyitott munkafüzettel az Ön igényei szerint.
Töltse le a Kutools for Excel teljes 30 napos ingyenes nyomvonalát most!
Kapcsolódó cikkek:
Hogyan hozható létre legördülő lista több jelölőnégyzettel az Excelben?
Sok Excel felhasználó hajlamos többszörös jelölőnégyzetekkel rendelkező legördülő listát létrehozni annak érdekében, hogy egyszerre több elemet jelöljön ki a listából. Valójában nem hozhat létre több jelölőnégyzetet tartalmazó listát az adatellenőrzéssel. Ebben az oktatóanyagban két módszert mutatunk be az Excel több jelölőnégyzettel rendelkező legördülő lista létrehozására. Ez az oktatóanyag bemutatja a probléma megoldásának módszerét.
Hozzon létre legördülő listát az Excel másik munkafüzetéből
Nagyon egyszerű létrehozni egy adatellenőrzési legördülő listát a munkafüzetek munkalapjai között. De ha az adatellenőrzéshez szükséges listaadatokat egy másik munkafüzetben találja meg, mit tenne? Ebben az oktatóanyagban megtudhatja, hogyan hozhat létre részletesen egy legördülő listát az Excel másik munkafüzetéből.
Hozzon létre egy kereshető legördülő listát az Excelben
A sok értéket tartalmazó legördülő lista számára nem könnyű megtalálni a megfelelőt. Korábban bevezettük a legördülő lista automatikus kitöltésének módszerét, amikor az első betűt beírjuk a legördülő mezőbe. Az automatikus kiegészítés funkció mellett kereshetővé is teheti a legördülő listát a munka hatékonyságának növelése érdekében a megfelelő értékek megtalálásához a legördülő listában. A legördülő lista kereshetővé tételéhez próbálkozzon az oktatóanyag módszerével.
Automatikusan kitölti a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában
Tegyük fel, hogy létrehozott egy legördülő listát a B8: B14 cellatartomány értékei alapján. Bármelyik értéket választva a legördülő listából, azt szeretné, hogy a C8: C14 cellatartomány megfelelő értékei automatikusan feltöltődjenek egy kiválasztott cellában. A probléma megoldásához az oktatóanyagban szereplő módszerek kedveznek.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
