Sut i feiddio testun rhannol wrth gyd-fynd â dwy golofn yn Excel?
Yn nhaflen waith Excel, ar ôl cyd-fynd â dau werth cell â fformwlâu, efallai y gwelwch na fydd yn beiddgar rhan o'r testun yn y gell fformiwla gyfun. Gall hyn fod yn annifyr weithiau, sut allech chi feiddgar rhan-destun wrth gyd-fynd â dwy golofn yn Excel?
Rhan-destun trwm wrth gyd-fynd â dwy golofn â chod VBA
Rhan-destun trwm wrth gyd-fynd â dwy golofn â chod VBA
Er enghraifft, mae gen i ddata dwy golofn, nawr, rydw i eisiau cyfuno'r ddwy golofn hon yn un golofn a fformatio gwerth cyntaf beiddgar fel y dangosir y screenshot canlynol:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Rhan-destun trwm wrth gyd-fynd â dwy golofn:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa rhag dewis yr ystod ddata rydych chi am ei chyfuno a'i beiddgar, gweler y screenshot:
4. Ac yna cliciwch OK botwm, ac mae'r ddau air yn y rhesi wedi'u cyfuno gyda'i gilydd i'r celloedd wrth ymyl yr ystod ddata ac mae'r gair cyntaf wedi'i feiddio hefyd, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
