Skip to main content

Conas teaghráin téacs a chur le ilchealla in Excel?

Más gá dúinn téacs nó teaghráin shonracha téacs a chur leis in iliomad cealla, beidh sé deacair agus tógfaidh sé an téacs seo a chóipeáil agus a ghreamú ar gach cill ceann ar cheann. Is féidir leis na modhanna seo a leanas cabhrú linn téacs sonrach a chur i go leor cealla go caothúil agus go tapa.

mboilgeog cheart gorm saighead Cuir téacs sonrach le ilchealla in Excel le VBA

Féadann VBA a úsáid ár gcuid oibre a éascú agus téacs sonrach a chur i go leor cealla gan é a chóipeáil agus a ghreamú.

Céim 1: Roghnaigh na cealla ina gcuirfidh tú an téacs sonrach leis.

Céim 2: Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an fhuinneog Microsoft Visual Basic for Applications.

Céim 3: Cliceáil Ionsáigh >> Modúil, agus greamaigh an macra seo a leanas i bhFuinneog an Mhodúil.

Fo Add2Formula ()
'Cuir téacs leis

Do gach c Sa Roghnú
c.Gníomhachtaigh
ActiveCell.FormulaR1C1 = "tástáil -" & ActiveCell.Formula
Ar Aghaidh c

Fo Deireadh

Céim 4: Brúigh an F5 eochair chun an macra seo a rith.

nótaí: Níl an macra seo in ann ach an téacs - os comhair gach téacschill. Más mian leat téacs nó teaghráin eile a chur leis, cuir an téacs - leis an téacs sonrach ba mhaith leat a chur leis.

mboilgeog cheart gorm saighead Cuir téacs sonrach le ilchealla in Excel le Kutools le haghaidh Excel

Maidir le húsáideoirí coitianta Microsoft Excel, b’fhéidir nach mbeadh cur amach againn ar VBA. Re seach, an Kutools le haghaidh ExcelIs féidir leis an uirlis Cuir Téacs leis cabhrú linn an téacs nó na teaghráin shonracha in iliomad cealla a chur leis go tapa agus go héasca.

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Faigh é anois

Céim 1: Roghnaigh na cealla ina gcuirfidh tú an téacs sonrach leis.

Céim 2: Cliceáil ar an Kutools > Uirlisí Téacs > Cuir Téacs leis…. Féach an pictiúr:

Céim 3: Sa Cuir Téacs bosca dialóige, cuir isteach an téacs agus na carachtair shonracha sa rannán Téacs.

Céim 4: seiceáil suíomh ina gcuirfidh tú an téacs sonrach leis sa Post alt. (Nóta: más mian leat an téacs a chur isteach i suíomh sonraithe, seiceáil le do thoil Sonraigh agus sonraigh an seasamh.) Féach an pictiúr:

Céim 5: Cliceáil OK or Cuir iarratas isteach.

An Cuir Téacs Tacaíonn uirlis Kutools for Excel linn aon téacs agus carachtair shonracha a chur leis roimh an téacs cealla bunaidh nó dá éis. Céard atá níos mó, is féidir linn téacs sonrach a chur idir bunthéacsanna cille. Is cuma cé na socruithe a shocraíonn tú, is féidir leat réamhamharc a dhéanamh ar na hathruithe cille sa chuid Réamhamhairc.

Airteagal 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 (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations