Skip to main content

Conas roghnúcháin raonta roghnaithe in Excel a aisiompú go héasca?

Má ghlactar leis gur roghnaigh tú roinnt cealla ar leith de raon, agus anois ní mór duit an roghnú a inbhéartú: na cealla roghnaithe a dhí-roghnú agus na cealla eile a roghnú. Féach an pictiúr seo a leanas:

Ar ndóigh, is féidir leat an roghnú a aisiompú de láimh. Ach tabharfaidh an t-alt seo roinnt cleasanna gleoite duit chun roghnúcháin a aisiompú go tapa:

Roghanna droim ar ais in Excel le VBA

Roghnú droim ar ais in Excel le Kutools le haghaidh Excel


mboilgeog cheart gorm saighead Roghanna droim ar ais in Excel le VBA

Trí úsáid a bhaint as macra VBA, beidh sé éasca duit roghnúcháin a aisiompú i réimse oibre na bileoige gníomhaí.

Step1: Roghnaigh na cealla a theastaíonn uait iad a aisiompú.

Step2: Coinnigh síos an Eile + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Step3Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

VBA le haghaidh roghnúcháin inbhéartaithe

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Brúigh an F5 eochair chun an macra seo a rith. Ansin taispeánann dialóg duit roinnt cealla nach gá duit a roghnú sa toradh. Féach an pictiúr:




5 CéimCliceáil OK, agus roghnaigh raon ar mhaith leat an roghnú a aisiompú i dialóg aníos eile. Féach an pictiúr:




6 CéimCliceáil OK. feiceann tú go bhfuil an roghnú droim ar ais.


Nótaí: Tá an VBA seo ag obair i mbileog oibre bán freisin.


mboilgeog cheart gorm saighead Roghanna droim ar ais in Excel le Kutools le haghaidh Excel

B’fhéidir gur mhaith leat aon roghnú in Excel, an Roghnaigh Raon Cúntóir uirlisí de Kutools le haghaidh Excel in ann cabhrú leat roghnú in Excel a aisiompú go tapa. Déanann an cleas seo éasca duit aon roghnúcháin sa leabhar oibre iomlán a aisiompú.

Cuimsíonn Kutools for Excel níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.

Step1: Roghnaigh na cealla a theastaíonn uait iad a aisiompú.

Step2: Cliceáil ar an Kutools > Roghnaigh Uirlisí > Roghnaigh Raon Cúntóir ....

Step3: I Roghnaigh Raon Cúntóir bosca dialóige, seiceáil an Roghnú inbhéartach rogha.

Step4: Ansin tarraing luch chun an raon a theastaíonn uait na roghnúcháin a aisiompú a roghnú. Nuair a scaoilfidh tú an luch, rinneadh na cealla roghnaithe a dhí-roghnú agus roghnaíodh na cealla neamhroghnaithe den raon ag an am céanna.

Step5: Agus ansin dún an Roghnaigh Raon Cúntóir dialóg.

Chun tuilleadh eolais a fháil faoi Roghnaigh Raon Cúntóir, Tabhair cuairt ar Roghnaigh Cur síos ar ghné Helper Raon.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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 ...

Tuairisc


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á!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations