Note: The other languages of the website are Google-translated. Back to English

Sut i drosi testun mewn blwch testun i gynnwys celloedd yn Excel?

Os oes rhai blychau testun mewn dalen, a'ch bod am drosi'r cynnwys yn y blychau testun yn gelloedd ar wahân fel y dangosir isod, a oes unrhyw ffyrdd cyflym o ddatrys y swydd hon ac eithrio nodi fesul un yn Excel? Yn yr erthygl hon, rwy'n cyflwyno macro i wneud ffafr i chi ar y broblem hon.
doc trosi blwch testun i gell 1

Trosi cynnwys blwch testun yn gell gyda VBA


swigen dde glas saeth Trosi cynnwys blwch testun yn gell gyda VBA

Ac eithrio macro cod, nid oes tric a all drosi blychau testun yn gyflym i gynnwys celloedd.

1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch y cod isod i'r Modiwlau sgript.

VBA: Trosi blychau testun yn gell

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

doc trosi blwch testun i gell 2

3. Gwasgwch F5 yn allweddol i redeg y cod, mae deialog yn galw allan i'ch atgoffa i ddewis cell i allforio cynnwys y blwch testun. Gweler y screenshot:
doc trosi blwch testun i gell 3

4. Cliciwch OK. Nawr mae'r holl flychau testun wedi'u trosi'n gynnwys celloedd.
doc trosi blwch testun i gell 4

Tip: Uchod bydd VBA yn dileu'r blychau testun ar ôl rhedeg, os ydych chi am gadw'r blychau testun, newidiwch y cod xTxtBox.Dileu i ' xTxtBox.Dileu.

Estyniad:Os ydych chi am drosi'n gyflym rhwng rhif a thestun, ceisiwch ddefnyddio'r Kutools ar gyfer Excel's Trosi rhwng Testun a Rhif fel y dangosir yn y screenshot canlynol. Mae'n swyddogaeth lawn heb gyfyngiad yn

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 
dyddiau, lawrlwythwch a chael treial am ddim nawr.
doc trosi blwch testun i gell 5


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (14)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
VBA ddim yn gweithio?!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n berffaith yma. Beth sy'n digwydd tra byddwch chi'n rhedeg y cod? Mae'n newid dim byd? Os gallwch chi, disgrifiwch fwy am eich data a'ch problem. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio yma chwaith. Dewiswch gell cyrchfan, cliciwch OK, a does dim byd yn digwydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi rhoi cynnig arno yn Win10 Excel2016 a Win8 Excel2010, mae'n gweithio'r ddau. Pa amgylchedd gwaith rydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i lawer o Flychau mewn gwahanol ddalennau, Mae yna 4 tudalen sy'n cael digwyddiadau penodol ar ddiwrnod penodol a hoffwn fynd â'r blychau testun hwnnw o ddiwrnod penodol i ddalen newydd wedi'u cyfuno ar gyfer y diwrnod hwnnw, Sut mae'n gweithio does gen i ddim syniad sut i gael y data hwnnw o 4 dalen wahanol i un ddalen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Iawn, mae gen i Textbox y tu mewn i Textbox y mae angen ei echdynnu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr! Buen aporte. Fi ayudó mucho.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na fi funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios yn y rhaglenación y tampoco
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Juan, nid oes unrhyw allwedd Enter a grybwyllir yn y dull uchod, copïwch a gludwch y vba, yna pwyswch fysell F5 neu cliciwch ar y botwm Run i alluogi'r cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais yn Excel365 ac nid yw'n gweithio, rwy'n cael y popup ac yna rwy'n llenwi ond yna does dim byd yn digwydd, diolch am yr help, Michel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Michel, rwyf wedi profi'r cod yn Excel 365, mae'n gweithio'n gywir. A allech chi roi llun i mi am eich fersiwn Excel fel hyn (Ffeil> Cyfrif)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, a'r llun am gynnwys eich blychau testun?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, heulog. Rwyf am gael ateb yn excel. Rwyf wedi copïo a gludo tudalen we sy'n cynnwys data. yn hynny, mae pob blwch testun yn cynnwys rhai rhifau. Ni allaf ei drosi fel rhif rheolaidd mewn cell excel sy'n cynnwys colofn benodol. Rwy'n defnyddio excel 2007.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, heulog. Rwyf am gael ateb yn excel. Rwyf wedi copïo a gludo tudalen we sy'n cynnwys data. yn hynny, mae pob blwch testun yn cynnwys rhai rhifau. Ni allaf ei drosi fel rhif rheolaidd mewn cell excel sy'n cynnwys colofn benodol. Rwy'n defnyddio excel 2007.Eich testun i'r ddolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'r sgript hon (diolch gyda llaw), ond rwy'n ceisio ei gael fel ei fod yn llenwi cell benodol ac nid yn gofyn am fewnbwn cell bob tro. beth fyddwn i'n ei newid fel ei fod yn llenwi'n awtomatig er enghraifft cell B2.

Cheers
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL