Sut i feiddio dim ond y llinell gyntaf neu'r gair cyntaf yn y gell yn Excel?
Mewn taflen waith Excel, gall fod llawer o gelloedd sy'n cynnwys llinellau lluosog a gafodd eu paragrapio gan allweddi Alt + Enter. Mewn rhai achosion, efallai y bydd angen i chi feiddio'r llinell gyntaf yn y celloedd hyn yn unig. Neu dim ond beiddgar y gair cyntaf am ei wneud yn rhagorol mewn celloedd. Mae'r erthygl hon yn dangos dau ddull i chi ei gyflawni mewn manylion.
Yn drwm y llinell gyntaf yn y gell gyda chod VBA yn unig Beiddgar yn unig y gair cyntaf yn y gell gyda chod VBA
Yn drwm y llinell gyntaf yn y gell gyda chod VBA yn unig
Gall y cod VBA canlynol eich helpu i feiddgar yn gyflym dim ond y llinell gyntaf mewn celloedd dethol. Gwnewch fel a ganlyn.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Yn drwm yn unig y llinell gyntaf mewn celloedd
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod gyda'r llinell gyntaf sydd ei hangen arnoch i'w gwneud yn feiddgar, ac yna cliciwch ar y OK botwm.
Yna gallwch weld bod pob llinell gyntaf o gelloedd dethol yn feiddgar ar unwaith fel y dangosir isod y screenshot.
Beiddgar yn unig y gair cyntaf yn y gell gyda chod VBA
Fel islaw'r screenshot a ddangosir, weithiau, mae angen i chi feiddio'r gair cyntaf yn unig yn ystod A2: A4 yn Excel. Gallwch ei gyflawni fel a ganlyn gam wrth gam.
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Yn drwm yn unig y gair cyntaf mewn celloedd
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod rydych chi am wneud y gair cyntaf yn feiddgar, ac yna pwyswch y OK botwm. Gweler y screenshot:
Yna gallwch weld bod holl eiriau cyntaf celloedd dethol yn feiddgar ar unwaith fel y dangosir isod y screenshot.
Erthygl gysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!