Conas líon na mbuaic a chomhaireamh i gcolún sonraí in Excel?

---

Líon na mbuaic i gcolún sonraí in Excel

Is féidir leis an bhfoirmle seo a leanas cabhrú leat roinnt beanna a chomhaireamh i gcolún sonraí go díreach in Excel.

1. Roghnaigh cill bhán chun an toradh a chur, cuir isteach an fhoirmle =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) isteach sa Bar Foirmle, ansin brúigh an Iontráil eochair. Féach an pictiúr:

nótaí: San fhoirmle, is é B3: B17 an raon ón tríú cill (lena n-áirítear ceanntásc) go dtí an dara ceann deireanach den liosta, B2: Is é B16 an raon ón dara cill (lena n-áirítear ceanntásc) go dtí an ceann réamhtheachtach den liosta, agus ar deireadh B4: Is é B18 raon feidhme an cheathrú cille (lena n-áirítear ceanntásc) go dtí an ceann deireanach den liosta. Athraigh iad de réir mar is gá duit.

---

Marcáil na beanna go léir i scaipchairt

Ina theannta sin, is féidir leat beanna colúin a dhéanamh amach go héasca trí scaipchairt a chruthú agus na beanna go léir a mharcáil sa chairt. Déan mar a leanas le do thoil.

1. Roghnaigh an chill - C3 atá cóngarach do chill B3 (an dara luach cille ar do liosta gan an ceanntásc a áireamh), iontráil an fhoirmle = IF (AGUS (B3> B2, B3> B4), "Buaic", "") isteach sa Bar Foirmle agus brúigh an Iontráil eochair. Ansin tarraing an Láimhseáil Líon isteach chun na beanna go léir a mharcáil mar atá thíos an pictiúr a thaispeántar.

2. Roghnaigh an colún x agus y, agus cliceáil Ionsáigh > Cuir isteach Scatter (X, Y) nó Cairt Mboilgeog > Scatter le Línte Díreach agus Marcóirí chun scaipchairt a chur isteach sa bhileog oibre. Féach an pictiúr:

3. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

4. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid.

Cód VBA: Marcáil na beanna go léir i scaipchairt

Sub CustomLabels()
    Dim xCount As Long, I As Long
    Dim xRg As Range, xCell As Range
    Dim xChar As ChartObject
    Dim xCharPoint As Point
    On Error Resume Next
    Set xRg = Range("C1")
    Set xChar = ActiveSheet.ChartObjects("Chart 1")
    If xChar Is Nothing Then Exit Sub
    xChar.Activate
    xCount = ActiveChart.SeriesCollection(1).Points.Count
    For I = 1 To xCount
        Set xCell = xRg(1).Offset(I, 0)
        If xCell.Value <> "" Then
            Set xCharPoint = ActiveChart.SeriesCollection(1).Points(I)
            xCharPoint.ApplyDataLabels
            xCharPoint.DataLabel.Text = xCell.Value
            xCharPoint.DataLabel.Left = xCharPoint.DataLabel.Left - 15
            xCharPoint.DataLabel.Top = xCharPoint.DataLabel.Top - 7
        End If
    Next
End Sub

nótaí: Sa chód, Cairt 1 is ainm don scaipchairt chruthaithe, agus is é “C1” an chéad chill den cholún cabhrach ina bhfuil na torthaí foirmle a chuir tú i bhfeidhm i gcéim 1. Athraigh iad le do thoil bunaithe ar do chuid riachtanas.

5. Brúigh an F5 eochair chun an cód a rith. Ansin tá na beanna go léir marcáilte ar an scaipchairt mar atá thíos ar an scáileán: