0
Undo
Vótaí
Dia dhuit.
seo ExtendOffice míníonn alt conas cód éigin a chur isteach i Modúl chun luachanna na n-uimhreacha a bhfuil embolden orthu a ríomh:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Mar sin féin, an cód neamhaird ar ionaid dheachúlacha agus torthaí míchruinn a thabhairt ar ais (go háirithe agus iad ag déileáil le luachanna beaga).
Chun é a thástáil, rinne mé líon áirithe de chealla emboldened le luach "0.5" nó níos lú. Dhéileáil an cód leo go léir mar "0" agus, dá bhrí sin, ríomh nialas mar thoradh air. Mar sin féin, nuair a d'iontráil mé luachanna "0.51" agus os a chionn, rinneadh iad go léir a shlánú suas go dtí "1", mar sin - arís - an toradh a ríomh go hiomlán mícheart.
An bhfuil réiteach ag éinne air seo? Cód seo a leanas.
seo ExtendOffice míníonn alt conas cód éigin a chur isteach i Modúl chun luachanna na n-uimhreacha a bhfuil embolden orthu a ríomh:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Mar sin féin, an cód neamhaird ar ionaid dheachúlacha agus torthaí míchruinn a thabhairt ar ais (go háirithe agus iad ag déileáil le luachanna beaga).
Chun é a thástáil, rinne mé líon áirithe de chealla emboldened le luach "0.5" nó níos lú. Dhéileáil an cód leo go léir mar "0" agus, dá bhrí sin, ríomh nialas mar thoradh air. Mar sin féin, nuair a d'iontráil mé luachanna "0.51" agus os a chionn, rinneadh iad go léir a shlánú suas go dtí "1", mar sin - arís - an toradh a ríomh go hiomlán mícheart.
An bhfuil réiteach ag éinne air seo? Cód seo a leanas.
Feidhm SumBold(WorkRng Mar Raon)
Nuashonrú 20131202
Dim Rng Mar Raon
Dim xSum Chomh fada
Do Gach Rng In WorkRng
Má Rng.Font.Bold Ansin
xSum = xSum + Rng.Value
Deireadh Má
Ar Aghaidh
SuimBold = xSum
Feidhm Deireadh
0
Undo
Vótaí
Dia duit ann,
Go raibh maith agat as an aiseolas, uasghrádaigh mé an cód san alt cheana féin.
Bain úsáid as an gcód thíos le do thoil:
Má tá aon cheist eile agat, ná bíodh drogall ort é a chur in iúl dom.
Amanda
Go raibh maith agat as an aiseolas, uasghrádaigh mé an cód san alt cheana féin.
Bain úsáid as an gcód thíos le do thoil:
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
Má tá aon cheist eile agat, ná bíodh drogall ort é a chur in iúl dom.
Amanda
- Page:
- 1
Níl aon fhreagraí déanta don phost seo go fóill.