Cara Mudah Membuat Graviks dan Font TallyMark di Userform

Untuk front Tally Marks dan Sampel file xlsm
dapat di unduh >>>  DISINI

Silahkan  silahkan extrak fornt tally – mark  dan

pastekan pada widows Pilih front

Rumus Pecah angka setiap nilai 5

=REPT(5,INT(B3/5))&MOD(B3,5)

Rumus cell to kolom

=MID($C$3,COLUMNS($C3:C3),1)

=MID($C$3,COLUMNS($C3:D3),1)

=MID($C$3,COLUMNS($C3:E3),1)

=MID($C$3,COLUMNS($C3:F3),1)

Fungsi if :

=IF(D3="1","A",IF(D3="2","B",IF(D3="3","C",IF(D3="4","D",IF(D3="5","E","")))))

Demikian semoga bermanfaat !

Menampilkan graviks di User Form

Membuat gravik tampil di userform

Membuat gravik tampil di userform  cukup mudah caranya
Buatlah sebuah userform
Dan beberapa buah  option buton untuk memilih type gravik

Paastekan kode berikut pada sebuat userform

Private Sub UserForm_Initialize()
Private Sub OptionButton1_Click()
    Call UpdateChart(xlLineMarkers)
End Sub

Private Sub OptionButton2_Click()
    Call UpdateChart(xlAreaStacked)
End Sub

Private Sub OptionButton3_Click()
    Call UpdateChart(xlColumnClustered)
End Sub
Private Sub OptionButton4_Click()
    Call UpdateChart(xlPie)
End Sub

Private Sub UpdateChart(chtype)
    Dim currentChart As Chart
    Dim Fname As String
   
    Set currentChart = Sheets("Data").ChartObjects(1).Chart
    currentChart.ChartType = chtype

    Fname = Application.DefaultFilePath & Application.PathSeparator & "temp.gif"
    currentChart.Export Filename:=Fname, FilterName:="GIF"

    Image1.Picture = LoadPicture(Fname)
End Sub

Private Sub UserForm_Initialize()
    OptionButton3.Value = True
End Sub

Selamat mencoba
silakan download link contoh dibawah ini

Gravik Userform