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