Conas míreanna a bhogadh go tapa idir dhá bhosca liosta in Excel?
An ndearna tú iarracht riamh na míreanna a bhogadh ó bhosca liosta amháin go boscaí liosta amháin eile mar a theastaíonn uait mar atá thíos an pictiúr a thaispeántar? Labhróidh mé anseo faoin oibríocht seo in Excel.
 |
 |
 |
Bog míreanna idir boscaí liosta
Bog míreanna idir boscaí liosta
Níl aon fheidhm ionsuite ann a chabhróidh leat an post a chríochnú, ach tá cód VBA agam ar féidir leis fabhar a dhéanamh.
1. Ar dtús, ní mór duit liosta sonraí a chruthú a thaispeánfar mar na míreanna i mboscaí liosta i mbileog nua ar a tugadh Riaracháin_Liostaí.
2. Ansin roghnaigh na sonraí seo agus téigh chuig an Ainm bosca chun ainm a thabhairt dóibh Liosta Mír. Féach an pictiúr:
3. Ansin i mbileog ina mbeidh an dá bhosca liosta, cliceáil Forbróir > Ionsáigh > Bosca Liosta (Rialú Gníomhach X), agus tarraing dhá bhosca liosta. Féach an pictiúr:
 |
|
 |
Má tá an Forbróir tá cluaisín i bhfolach do ribín, Conas cluaisín forbróra a thaispeáint / a thaispeáint i Ribbon Excel 2007/2010/2013? inseoidh an t-alt seo duit conas é a thaispeáint.
4. Ansin cliceáil Forbróir > Ionsáigh > Cnaipe Ordú (Rialú Gníomhach X), agus tarraing ceithre chnaipe idir dhá bhosca liosta. Féach an pictiúr:
 |
|
 |
Anois chun na ceithre cnaipí ordaithe a athainmniú le hainmneacha nua.
5. Roghnaigh an chéad chnaipe ordaithe, cliceáil Airíonna, agus sa Airíonna pána, tabhair ainm BTN_moveAllRight dó, agus clóscríobh >> isteach sa bhosca téacs in aice leis Fotheideal. Féach an pictiúr:
6. Déan céim 5 arís chun na trí chnaipe ordaithe deiridh le hainmneacha thíos a athainmniú, agus clóscríobh an tsaighead éagsúil sna ceannteidil freisin. Féach an pictiúr:
BTN_MoveRoghnaithe ar dheis
BTN_moveAllClé
BTN_MoveSelectedLeft
 |
 |
 |
7. Cliceáil ar dheis ar ainm na bileoige ina bhfuil na boscaí liosta agus na cnaipí ordaithe, agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:
8. Cóipeáil agus greamaigh thíos an macra-chód chuig an Modúil script ansin sábháil an cód agus dún an Microsoft Visual Basic d’Fheidhmchláir fuinneog. Féach an pictiúr
VBA: Bog míreanna idir dhá bhosca liosta
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
Dim xCell As Range
Dim xRg As Range
Set xRg = Sheets("Admin_Lists").Range("ItemList")
Me.ListBox1.Clear
Me.ListBox2.Clear
With Me.ListBox1
.LinkedCell = ""
.ListFillRange = ""
For Each xCell In xRg
If xCell <> "" Then
.AddItem xCell.Value
End If
Next xCell
End With
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub BTN_MoveSelectedLeft_Click()
Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_MoveSelectedRight_Click()
Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub
Private Sub BTN_moveAllLeft_Click()
Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub
Private Sub BTN_moveAllRight_Click()
Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub
Sub moveAll(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
xListBox2.AddItem xListBox1.List(I)
Next I
xListBox1.Clear
End Sub
Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
Dim I As Long
For I = 0 To xListBox1.ListCount - 1
If I = xListBox1.ListCount Then Exit Sub
If xListBox1.Selected(I) = True Then
xListBox2.AddItem xListBox1.List(I)
xListBox1.RemoveItem I
I = I - 1
End If
Next
End Sub 
9. Ansin téigh go bileog eile agus ansin téigh ar ais chuig an mbileog ina bhfuil na boscaí liosta, anois is féidir leat a fheiceáil go bhfuil sonraí an liosta liostaithe sa chéad bhosca liosta amháin. Agus cliceáil ar na cnaipí ordaithe chun na míreanna a bhogadh idir dhá bhosca liosta.
Bog roghnú
 |
|
 |
Bog go léir
 |
|
 |
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
