Pasirinktinių duomenų žymų nustatymas diagramoje

Ši VBA ("Visual Basic for Applications") procedūra leis naudoti langelių reikšmes kaip duomenų žymas "Excel", skirtos "Mac", diagramose. Norėdami naudoti procedūrą, atlikite šiuos veiksmus:

1. Programoje "Excel" spustelėkite Įrankiai > Makrokomandos > Įrašyti naują makrokomandą.

2. Išplečiamajame lauke Išsaugoti makrokomandą: pasirinkite Asmeninė makrokomandų darbaknygė.

   Pastaba: Išsaugodami VBA procedūrą asmeninėje makrokomandų darbaknygėje, galite ją naudoti bet kuriame "Excel" egzemplioriuje. Tai reiškia, kad ją galima naudoti ne tik vienoje darbaknygėje.

3. Spustelėkite Gerai.

4. Eikite į Įrankiai > Makrokomandos > Baigti įrašymą.

5. Eikite į Įrankiai > Makrokomandos > "Visual Basic" rengyklę.

6. "Visual Basic" rengyklė (VBE) bus atidaryta virš "Excel". Kairėje naršymo srityje išplėskite VBA projektą (ASMENINIS. XLSB) aplanką, kad būtų rodomas Modulis1.

7. Dukart spustelėkite Modulis1 , kad būtų rodoma kodo sritis, kuri bus atidaryta dešinėje VBE lango pusėje.

8. VBA kodas, kuris buvo sukurtas įrašant naują makrokomandą, nėra būtinas, todėl pažymėkite jį visus, tada paspauskite "Delete". 

9. Tada žemiau esančiame teksto lauke pasirinkite VBA kodą, paspauskite CMD + C , kad jį nukopijuotumėte, tada vėl įklijuokite jį į sritį Kodas su CMD + V. Dabar galite išeiti iš "Visual Basic" rengyklės ir grįžti į "Excel".

10. Išbandykite makrokomandą sukurdami diagramą su duomenų žymomis. Tada pažymėkite bet kurią duomenų žymą diagramoje ir paleiskite makrokomandą spustelėdami Įrankiai > Makrokomandos > Makrokomandos. Pasirinkite SetCustomDataLabels, tada paspauskite Vykdyti. Būsite automatiškai paraginti pasirinkti duomenų žymų diapazoną, todėl tai atlikite, tada paspauskite Gerai.  

    Pastaba: VBA procedūrų anuliuoti negalima, todėl išbandykite tai darbaknygės kopijoje. Jei vykdote kodą ir nenorite išsaugoti rezultatų, turėsite uždaryti darbaknygę jos neįrašę.

11. Kai uždarote "Excel", įsitikinkite, kad pasirinkote įrašyti keitimus asmeniniame. XLSB, kad makrokomanda būtų pasiekiama ateityje.

12. Bet kada, kai norite įtraukti arba pašalinti duomenų žymas iš diagramos, pasirinkite duomenų žymas ir paleiskite makrokomandą.

13. Galite naudoti "Excel" > nuostatos > juostelę & įrankių juostą , kad įtrauktumėte mygtuką, kuris paleis makrokomandą iš juostelės arba įrankių juostos.

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub