Conas trácht a chur isteach go tapa ar ilchealla in Excel?
I mbileog oibre, tá sé an-éasca trácht a chur isteach i gcill, ach nuair is mian leat an trácht céanna a chur isteach i ilchealla ag an am céanna, conas a d’fhéadfá a dhéanamh?
Cuir trácht isteach ar ilchealla a bhfuil gné Greamaigh Speisialta acu
Cuir trácht isteach i gcealla iolracha le cód VBA
Cuir trácht isteach ar ilchealla a bhfuil gné Greamaigh Speisialta acu
In Excel, níl aon bhealach ann tráchtanna iolracha a chur isteach ag an am céanna. Is féidir leat, áfach, trácht a chóipeáil chuig ilchealla mar seo a leanas:
1. Cuir isteach do thrácht i gcill.
2. Roghnaigh an chill tráchta agus brúigh an Ctrl + C eochracha chun é a chóipeáil.
3. Ansin roghnaigh agus cliceáil ar dheis ar an raon ar mhaith leat trácht a chur isteach, roghnaigh Greamaigh Speisialta > Greamaigh Speisialta ón roghchlár cliceáil ar dheis. Féach an pictiúr:
4. Sa Greamaigh Speisialta bosca dialóige, seiceáil an Comments rogha, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
Ansin cuirtear na tuairimí céanna isteach sna cealla roghnaithe go léir láithreach.
nótaí: Cuirfidh an modh seo na tuairimí céanna isteach sna cealla roghnaithe go léir. Más mian leat na tráchtanna céanna a chur isteach i gcealla infheicthe ach ar liosta scagtha, bain triail as an modh VBA thíos le do thoil.
Cuir trácht isteach i gcealla iolracha le cód VBA
Má cheaptar go bhfuil liosta scagtha agat mar atá thíos an pictiúr a thaispeántar. Agus níl uait ach baisc tuairimí a chur le gach cealla infheicthe. Déan mar a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha le chéile chun an Microsoft Visual Basic d’iarratais fhuinneog.
2. Sa Mocrosoft Visual Basic d’Iarratais fuinneog, cliceáil le do thoil Ionsáigh > Modúil, agus an cód seo a leanas a ionchur sa Mhodúl:
VBA: Trácht támh baisc ar ilchealla (cealla infheicthe ar an liosta scagtha amháin)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub3. Brúigh an F5 eochair chun an cód a rith. Sa chéad popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon scagtha ar mhaith leat tráchtanna a chur leis, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
4. Ansin ceann eile Kutools le haghaidh Excel tagann bosca dialóige aníos, cuir do thrácht isteach sa bhosca téacs, agus ansin cliceáil ar an OK cnaipe.
Anois ní chuirtear trácht isteach ar gach cealla infheicthe ach ar liosta scagtha roghnaithe mar a thaispeántar thíos an scáileán:
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á!
