Word Programında Herhangi Bir İle Ait Yerel Seçim Sonuçlarını Grafikle Gösteren Programı Yapınız

Yeni bir Paket Programlar dersi makalesi ile birlikteyiz.,

Bilindiği gibi, 31 Mart 2019 tarihinde yerel seçimler olacaktır. Özellikle programcılar seçim sonuçlarını grafiklerle göstermeyi çok severler. Seçimlerde televizyonların gösterdikleri grafikler bazen beğeni yarışmasına dönüşmektedir. Word programında da seçim sonuçlarını grafiklerle gösterebilir, görsellik katabilirsiniz.

Vakit kaybetmeden uygulamamıza geçelim. Yeni bir belge açalım. Belgemize aşağıdaki gibi bir tablo ekleyelim.

Burada boş olan satıra grafiğimiz gelecektir. Grafiğimiz tabloya ait olan Parti adları ve oy oranları ile oluşacaktır. Oy sayıları ise, kullanılan oyun partilerin aldığı oy onanına göre dağıtılması sonucu bulunacaktır. Kodlarımızı yazalım.

Private Sub CommandButton1_Click()

Dim nGrafik As Chart

Dim grafikExcel As Excel.Worksheet

ActiveDocument.Tables(1).Cell(5, 1).Select

Set nGrafik = ActiveDocument.InlineShapes.AddChart.Chart

Set grafikExcel = nGrafik.ChartData.Workbook.Worksheets(1)

grafikExcel.ListObjects(1).Resize grafikExcel.Range("A1:B6")

grafikExcel.Range("b1").FormulaR1C1 = "Partiler"

grafikExcel.Range("A2").FormulaR1C1 = "A Partisi"

grafikExcel.Range("A3").FormulaR1C1 = "B Partisi"

grafikExcel.Range("A4").FormulaR1C1 = "C Partisi"

grafikExcel.Range("A5").FormulaR1C1 = "D Partisi"

grafikExcel.Range("A6").FormulaR1C1 = "E Partisi"

grafikExcel.Range("B2").FormulaR1C1 = ActiveDocument.ContentControls(4).Range.Text

grafikExcel.Range("B3").FormulaR1C1 = ActiveDocument.ContentControls(6).Range.Text

grafikExcel.Range("B4").FormulaR1C1 = ActiveDocument.ContentControls(8).Range.Text

grafikExcel.Range("B5").FormulaR1C1 = ActiveDocument.ContentControls(10).Range.Text

grafikExcel.Range("B6").FormulaR1C1 = ActiveDocument.ContentControls(12).Range.Text

nGrafik.ChartData.Workbook.Application.Quit

nGrafik.Legend.Format.Line.Visible = msoCTrue

With nGrafik.ChartArea.Format.Fill

    .Visible = msoTrue

    .Solid

    .ForeColor.ObjectThemeColor = wdThemeColorAccent1

End With

nGrafik.HasTitle = True

With nGrafik.ChartTitle

    .Characters.Font.Italic = True

    .Characters.Font.Size = 18

    .Characters.Font.Color = RGB(0, 0, 100)

    .Text = "A İline Ait Yerel Seçim Sonuçları"

End With

End Sub

 

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)

Dim strTemp As String

Dim hata1 As Boolean, hata2 As Boolean, hata3 As Boolean

Dim hata4 As Boolean, hata5 As Boolean, Dogrula As Boolean

Dim i As Long

Dim oRng As Word.Range

  strTemp = CC.Range.Text

  Dogrula = False

  If Application.Version < "14.0" Then Main.SetDeveloperTabActive

  Select Case CC.Title

    Case "Secmen"

      If CC.ShowingPlaceholderText = True Or strTemp = "" Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        secmen = Val(ActiveDocument.ContentControls(1).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy <> "" Then

           koran = (oy / secmen) * 100

           ActiveDocument.ContentControls(3).Range.Text = Format(koran, "% ###")

        End If

      End If

    Case "Oy"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        secmen = Val(ActiveDocument.ContentControls(1).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If secmen <> "" Then

           koran = (oy / secmen) * 100

           ActiveDocument.ContentControls(3).Range.Text = Format(koran, "% ###")

        End If

      End If

    Case "Oy1"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        oy1 = Val(ActiveDocument.ContentControls(5).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy <> "" Then

           oran1 = (oy1 / oy) * 100

           ActiveDocument.ContentControls(4).Range.Text = Format(oran1, "% ###")

        End If

      End If

    Case "Oy2"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        oy2 = Val(ActiveDocument.ContentControls(7).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy <> "" Then

           oran2 = (oy2 / oy) * 100

           ActiveDocument.ContentControls(6).Range.Text = Format(oran2, "% ###")

        End If

      End If

    Case "Oy3"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        oy3 = Val(ActiveDocument.ContentControls(9).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy <> "" Then

           oran3 = (oy3 / oy) * 100

           ActiveDocument.ContentControls(8).Range.Text = Format(oran3, "% ###")

        End If

      End If

    Case "Oy4"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        oy4 = Val(ActiveDocument.ContentControls(11).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy4 <> "" Then

           oran4 = (oy4 / oy) * 100

           ActiveDocument.ContentControls(10).Range.Text = Format(oran4, "% ###")

        End If

      End If

    Case "Oy5"

      If CC.ShowingPlaceholderText = True Or Not IsNumeric(strTemp) Then

        MsgBox "Bu alan boş geçilemez"

        Cancel = True

      Else

        oy5 = Val(ActiveDocument.ContentControls(13).Range.Text)

        oy = Val(ActiveDocument.ContentControls(2).Range.Text)

        If oy5 <> "" Then

           oran5 = (oy5 / oy) * 100

           ActiveDocument.ContentControls(12).Range.Text = Format(oran5, "% ###")

        End If

      End If

  End Select

lbl_Exit:

  Exit Sub

End Sub

Formda yer alan bilgileri girelim. Tablomuzun sayısal sonuçları aşağıdaki gibi olacaktır.

Şimdi de Oluştur butonuna basarak A iline ait yerel seçim sonuçlarını grafikle gösterelim.

Görüldüğü gibi, Word programında hem girişleri hem bu girişlere ait matematiksel işlemleri ve en önemlisi de grafiği dinamik bir şekilde belgemizde oluşturmuş olduk.

Uygulamayı buradan indirebilirsiniz.