Conas téacs i mbosca téacs a thiontú go hábhar cille in Excel?
Má tá roinnt boscaí téacs i mbileog, agus gur mhaith leat an t-ábhar sna boscaí téacs a thiontú ina gcealla ar leithligh mar atá thíos an pictiúr a thaispeántar, an bhfuil aon bhealaí gasta ann chun an post seo a réiteach ach dul isteach ceann ar cheann in Excel? San Airteagal seo, tugaim isteach macra chun fabhar a thabhairt duit ar an bhfadhb seo.
Tiontaigh ábhar an bhosca téacs go cill le VBA
Tiontaigh ábhar an bhosca téacs go cill le VBA
Seachas macra-chód, níl aon chleas ann a fhéadann boscaí téacs a thiontú go hábhar cille go tapa.
1. Brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh thíos an cód leis an Modúil script.
VBA: Tiontaigh boscaí téacs go cill
Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
Dim xRg As Range
Dim xRow As Long
Dim xCol As Long
Dim xTxtBox As TextBox
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xRg.Row
xCol = xRg.Column
For Each xTxtBox In ActiveSheet.TextBoxes
Cells(xRow, xCol).Value = xTxtBox.Text
xTxtBox.Delete
xRow = xRow + 1
Next
End Sub
3. Brúigh F5 eochair chun an cód a rith, tagann dialóg amach le cur i gcuimhne duit cill a roghnú chun ábhar an bhosca téacs a easpórtáil. Féach an pictiúr:
4. cliceáil OK. Anois tá gach bosca téacs tiontaithe go hábhar cille.
Leid: Os cionn VBA bainfidh na boscaí téacs tar éis iad a rith, más mian leat na boscaí téacs a choinneáil, athraigh an cód le do thoil xTxtBox.Scrios chun 'xTxtBox.Scrios.
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
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á!