Sut i atal copi a gludo dros gell gyda'r gwymplen yn Excel?
Ar gyfer cell sydd â rhestr ostwng dilysu data, wrth gopïo cynnwys o gell arall a'i gludo iddi, bydd y gwymplen wedi diflannu a'i chynnwys pastio newydd. Mewn rhai achosion, rydych chi am atal copïo a gludo cynnwys arall dros y gell gyda'r gwymplen, beth fyddech chi'n ei wneud i ddelio ag ef? Yn yr erthygl hon, byddwch yn cael dull VBA o ddelio â'r broblem hon.
Atal copïo a gludo dros gell gyda gwymplen yn Excel
Atal copïo a gludo dros gell gyda gwymplen yn Excel
1. Agorwch y daflen waith gyda'r gwymplen rydych chi am atal copi a gludo.
2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.
3. Yn y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr, cliciwch ddwywaith enw'r daflen waith gyfredol yn y cwarel chwith, yna copïwch a gludwch y cod VBA isod i mewn i olygydd y Cod. Gweler y screenshot:
Cod VBA: Atal copi a gludo dros gell gyda'r gwymplen
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. Gwasgwch Alt + Q allweddi i adael y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.
5. Pan fyddwch yn pastio cynnwys i gell gyda rhestr ostwng, bydd blwch deialog yn ymddangos i'ch atgoffa na chaniateir y pastio. Gweler y screenshot:
Nodyn: Mae'r VBA hwn yn gweithio mewn pastio un gell yn unig. Os ydych chi'n copïo a gludo mewn sawl cell, ni fydd yn gweithio.
Yn hawdd creu rhestr ostwng gyda blychau gwirio yn Excel:
Mae adroddiadau Rhestr ostwng gyda Blychau Gwirio cyfleustodau Kutools ar gyfer Excel yn gallu'ch helpu chi i greu rhestr ostwng yn hawdd gyda blychau gwirio mewn ystod benodol, taflen waith gyfredol, llyfr gwaith cyfredol neu'r holl lyfrau gwaith sydd wedi'u hagor yn seiliedig ar eich anghenion.
Dadlwythwch y nodwedd lawn 30-diwrnod llwybr rhad ac am ddim o Kutools ar gyfer Excel nawr!
Erthyglau cysylltiedig:
Sut i greu gwymplen gyda blychau gwirio lluosog yn Excel?
Mae llawer o ddefnyddwyr Excel yn tueddu i greu gwymplen gyda blychau gwirio lluosog er mwyn dewis nifer o eitemau o'r rhestr bob tro. Mewn gwirionedd, ni allwch greu rhestr gyda blychau gwirio lluosog gyda Dilysu Data. Yn y tiwtorial hwn, rydyn ni'n mynd i ddangos dau ddull i chi greu gwymplen gyda blychau gwirio lluosog yn Excel. Mae'r tiwtorial hwn yn darparu'r dull i ddatrys y broblem.
Creu rhestr ostwng o lyfr gwaith arall yn Excel
Mae'n eithaf hawdd creu gwymplen dilysu data ymhlith taflenni gwaith mewn llyfr gwaith. Ond os yw'r data rhestr sydd ei angen arnoch ar gyfer dilysu'r data yn lleoli mewn llyfr gwaith arall, beth fyddech chi'n ei wneud? Yn y tiwtorial hwn, byddwch yn dysgu sut i greu rhestr gollwng o lyfr gwaith arall yn Excel yn fanwl.
Creu rhestr ostwng y gellir ei chwilio yn Excel
Ar gyfer rhestr ostwng sydd â nifer o werthoedd, nid yw dod o hyd i un iawn yn waith hawdd. Yn flaenorol rydym wedi cyflwyno dull o gwblhau rhestr ostwng yn awtomatig wrth nodi'r llythyr cyntaf yn y gwymplen. Heblaw am y swyddogaeth awtocomplete, gallwch hefyd wneud y rhestr ostwng yn chwiliadwy am wella'r effeithlonrwydd gweithio wrth ddod o hyd i werthoedd cywir yn y gwymplen. Ar gyfer chwilio rhestr ostwng, rhowch gynnig ar y dull yn y tiwtorial hwn.
Auto poblogi celloedd eraill wrth ddewis gwerthoedd yn rhestr ostwng Excel
Gadewch i ni ddweud eich bod wedi creu rhestr ostwng yn seiliedig ar y gwerthoedd yn ystod celloedd B8: B14. Pan ddewiswch unrhyw werth yn y gwymplen, rydych chi am i'r gwerthoedd cyfatebol yn ystod celloedd C8: C14 gael eu poblogi'n awtomatig mewn cell ddethol. Ar gyfer datrys y broblem, bydd y dulliau yn y tiwtorial hwn yn ffafrio chi.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
