Sut i newid maint ffont yn gyflym yn seiliedig ar werth celloedd yn Excel?
Newid maint ffont yn seiliedig ar werth colofn arall
Newid maint ffont yn seiliedig ar werth celloedd a hyd cymeriad
Newid maint ffont yn seiliedig ar werth colofn arall
I newid maint ffont yn seiliedig ar werth colofn arall, dyma god VBA a all eich helpu chi.
1. Ewch i'r ddalen rydych chi am newid maint ffont yn seiliedig ar golofn arall, a gwasgwch Alt + F11 allwedd ar yr un pryd i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw VBA i'r Modiwlau. Gweler y screenshot:
VBA: Newid maint ffont yn seiliedig ar werth colofn arall
Sub fontchange()
'UpdatebyExtendoffice20160614
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Font.Size = xCell.Offset(, 1).Value
Next
Application.ScreenUpdating = True
End Sub
3. Gwasgwch F5 allwedd, mae deialog yn popio allan, a dewiswch y celloedd rydych chi am newid maint eu ffont. Gweler y screenshot:
4. Cliciwch OK, ac yna mae'r celloedd yn y golofn a ddewiswyd wedi'u haddasu maint y ffont yn seiliedig ar werthoedd wrth ymyl y golofn.
Newid maint ffont yn seiliedig ar werth celloedd a hyd cymeriad
Mewn llaw arall, os ydych chi am newid maint y ffont yn seiliedig ar werth y gell ei hun neu hyd cymeriad, er enghraifft, pan fydd gwerth y gell yn fwy na 10, neu hyd y cymeriad yn fwy na 5, yna mae maint y ffont yn newid i 16, a newid ffont i Arial, fel arall, maint y ffont yw 11, a'r ffont yw Calibri fel y dangosir isod y screenshot.
1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan y cod i Modiwlau sgript. Gweler y screenshot:
VBA: Newid maint ffont yn seiliedig ar werth cell neu hyd cymeriad
Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
Dim xCell As Range
For Each xCell In Range("G2:H9")
With xCell
If Len(.Text) > 5 Or Val(.Value) > 10 Then
.Font.Name = "Arial"
.Font.Size = 16
Else
.Font.Name = "Calibri"
.Font.Size = 11
End If
End With
Next
End Sub
3. Gwasgwch F5 allwedd i redeg y cod, ac mae'r gwerthoedd sy'n fwy na 10 neu hyd cymeriad yn fwy na 5 wedi bod yn newid eu ffont i Arial a maint ffont i 16.
Tip: Yn y cod uchod, gallwch newid ystod G2: B9 i eraill fel y dymunwch.
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!