Conas cóip agus greamaigh thar chill a chosc le liosta anuas in Excel?
Maidir le cill a bhfuil liosta anuas bailíochtaithe sonraí aici, nuair a dhéanfar ábhar ó chill eile a chóipeáil agus a ghreamú di, beidh an liosta anuas imithe agus cuirfear an t-ábhar pasting nua ina áit. I roinnt cásanna, ba mhaith leat ábhar eile a chóipeáil agus a ghreamú thar an gcill le liosta anuas, cad a dhéanfá chun déileáil leis? San Airteagal seo, gheobhaidh tú modh VBA chun déileáil leis an bhfadhb seo.
Cosc a chur ar chóipeáil agus greamaigh thar an gcill le liosta anuas in Excel
Cosc a chur ar chóipeáil agus greamaigh thar an gcill le liosta anuas in Excel
1. Oscail an bhileog oibre leis an gcill liosta anuas a theastaíonn uait cóip agus greamaigh a chosc.
2. Brúigh Eile + F11 eochracha ag an am céanna chun an Feidhmchláir Bhunúsacha Amharc Microsoft fhuinneog.
3. Sa Feidhmchláir Bhunúsacha Amharc Microsoft fuinneog, cliceáil faoi dhó ainm an bhileog oibre reatha sa phána ar chlé, ansin cóipeáil agus greamaigh an cód VBA thíos san eagarthóir Cód. Féach an pictiúr:
Cód VBA: Cosc a chur ar chóipeáil agus greamaigh thar an gcill le liosta anuas
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. Brúigh Eile + Q eochracha chun imeacht as an Feidhmchláir Bhunúsacha Amharc Microsoft fhuinneog.
5. Nuair a ghreamaíonn tú ábhar i gcill le liosta anuas, popfaidh bosca dialóige chun a mheabhrú duit nach gceadaítear an pasting. Féach an pictiúr:
nótaí: Ní oibríonn an VBA seo ach i ngreamú cille aonair. Má dhéanann tú ilchealla a chóipeáil agus a ghreamú, ní oibreoidh sé.
Cruthaigh liosta anuas go héasca le ticbhoscaí in Excel:
An Liosta anuas le Boscaí Seiceála fóntais de Kutools le haghaidh Excel is féidir leis cabhrú leat liosta anuas a chruthú go héasca le boscaí seiceála i raon sonraithe, bileog oibre reatha, leabhar oibre reatha nó gach leabhar oibre oscailte bunaithe ar do chuid riachtanas.
Íoslódáil rian iomlán saor in aisce 30 lá de Kutools le haghaidh Excel anois!
Earraí gaolmhara:
Conas liosta anuas a chruthú le ticbhoscaí iolracha in Excel?
Is iondúil go gcruthóidh a lán úsáideoirí Excel liosta anuas le ilbhoscaí seiceála d’fhonn míreanna éagsúla a roghnú ón liosta in aghaidh na huaire. I ndáiríre, ní féidir leat liosta a chruthú le ilbhoscaí seiceála le Bailíochtú Sonraí. Sa rang teagaisc seo, táimid chun dhá mhodh a thaispeáint duit chun liosta anuas a chruthú le ticbhoscaí iolracha in Excel. Soláthraíonn an teagaisc seo an modh chun an fhadhb a réiteach.
Cruthaigh liosta anuas ó leabhar oibre eile in Excel
Tá sé furasta go leor liosta anuas bailíochtaithe sonraí a chruthú i measc bileoga oibre i leabhar oibre. Ach má aimsíonn na sonraí liosta atá uait le haghaidh bailíochtú na sonraí i leabhar oibre eile, cad a dhéanfá? Sa rang teagaisc seo, foghlaimeoidh tú conas liosta titim anuas a chruthú ó leabhar oibre eile in Excel go mion.
Cruthaigh liosta anuas inchuardaithe in Excel
Maidir le liosta anuas le go leor luachanna, ní obair éasca é ceann ceart a aimsiú. Roimhe seo thugamar isteach modh chun an liosta anuas a chomhlánú go huathoibríoch nuair a chuireann tú an chéad litir isteach sa bhosca anuas. Chomh maith leis an bhfeidhm uathchomhiomlán, is féidir leat an liosta anuas a chuardach chun an éifeachtúlacht oibre a fheabhsú chun luachanna cearta a fháil ar an liosta anuas. Chun an liosta anuas a chuardach inchuardaithe, bain triail as an modh sa rang teagaisc seo.
Déan cealla eile a uathoibriú nuair a bhíonn luachanna á roghnú agat ar liosta anuas Excel
Ligean le rá gur chruthaigh tú liosta anuas bunaithe ar na luachanna i raon cille B8: B14. Nuair a roghnaíonn tú luach ar bith ar an liosta anuas, ba mhaith leat go ndéanfaí na luachanna comhfhreagracha i raon cille C8: C14 a dhaonra go huathoibríoch i gcill roghnaithe. Chun an fhadhb a réiteach, is fearr leat na modhanna sa rang teagaisc seo.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
