Tanya Pak ini, jika saya ingin memasukanya pada apikasi saya , cara memindahkan
scripnya bagaimana, lalu disini scrip yang di gunakan jika saya copykan di vba
modul sheet saya apaha semua scrip yang ada di contoh atau cukup ini saja
Function DeskripsiNilai(Nama As String, N1 As Integer, N2 As Integer, N3 As
Integer, N4 As Integer, N5 As Integer, N6 As Integer) As String 'deskripsi
nilai pengetahuanDim nil(6) ' nilaiDim ko(6) ' kodeDim kd(6) 'nama
aspekDim j(6)Dim mi As IntegerDim ma As IntegerDim o As IntegerDim jen As
StringDim has As StringDim rg As StringDim ba As Integer For o = 1 To 6
kd(o) = Sheets("Sheet1").Cells(6, 13 + o) & ", " Next ojen = "" For o = 1
To 6 If N1 = 0 Or N2 = 0 Or N3 = 0 Then Exit Function Next ohas = "Ananda
" & Nama & " baik dalam " For o = 1 To 6 ko(o) = 0 Next o
mi = 0 If N1 = Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 1 If N2 =
Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 2 If N3 =
Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 3 If N4 =
Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 4 If N5 =
Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 5 If N6 =
Application.Max(N1, N2, N3, N4, N5, N6) Then ma = 6
jen = has & kd(ma) If N1 = Application.Min(N1, N2, N3, N4, N5, N6) Then mi =
1 If N2 = Application.Min(N1, N2, N3, N4, N5, N6) Then mi = 2 If N3 =
Application.Min(N1, N2, N3, N4, N5, N6) Then mi = 3 If N4 =
Application.Min(N1, N2, N3, N4, N5, N6) Then mi = 4 If N5 =
Application.Min(N1, N2, N3, N4, N5, N6) Then mi = 5 If N6 =
Application.Min(N1, N2, N3, N4, N5, N6) Then mi = 6
jen = jen & " perlu pendampingan dalam " & kd(mi)DeskripsiNilai = jenEnd
Function terus disini kan hanya 2 no yg di contoh jika siswa saya banyak
bagian mana yang harus saya tambahkan tks
Pada Kamis, 19 Oktober 2017 21:15, "nangagus nanga...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
On 19/10/2017 11:56, Susilo Pratama pratama_sus...@yahoo.com [belajar-excel]
wrote:
ini pak, sya kirimkan contoh 1 mapel semua nya makimal paling banyak
ada 12 kd ,,kalu bisa saya di buatkan add in pak dan juga cara memindakaan
scrip UDF ke VBA yang ada di seet saya tks
Pada Kamis, 19 Oktober 2017 11:39, "nangagus nanga...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Susilo, COba kirim ulang filenya. Ingat peraturan milis: FIle
tidak boleh lebih dari 250KB. Salam
On 19/10/2017 07:29, Susilo Pratama pratama_sus...@yahoo.com [belajar-excel]
wrote:
Assalamualikum para master disini saya ingin ada kesulitan lagi, stelah
kemarin saya di kasih contoh skrip vba udf dan mavcro tentang deskripsi
kemudian saya coba masukan scrip pada aplilkasi saya namun belum bisa berjalan
saya belum tau apa masalahnya , disini saya kirmkan aplikasi saya untuk
penilaian k13 yang saya buat , saya mohon untuk di isikan scrip deskripsi pada
cek nilai, dimana nilai yang muncul pada deskripsi hanya nilai tertinggi dan
terendah saja , rentang nilai kurang 55 berarati D perlu pendampingan, 56-70
berarti C, 71-80 B 81-100 A, Jika berkenan para master bisa membuatkan add in
untuk di masukan permanen jadi bisa di pakai di semua sheet terima kasih.
Wassalamualikum
#yiv2712216056 #yiv2712216056 -- #yiv2712216056ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2712216056
#yiv2712216056ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2712216056
#yiv2712216056ygrp-mkp #yiv2712216056hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2712216056 #yiv2712216056ygrp-mkp #yiv2712216056ads
{margin-bottom:10px;}#yiv2712216056 #yiv2712216056ygrp-mkp .yiv2712216056ad
{padding:0 0;}#yiv2712216056 #yiv2712216056ygrp-mkp .yiv2712216056ad p
{margin:0;}#yiv2712216056 #yiv2712216056ygrp-mkp .yiv2712216056ad a
{color:#0000ff;text-decoration:none;}#yiv2712216056 #yiv2712216056ygrp-sponsor
#yiv2712216056ygrp-lc {font-family:Arial;}#yiv2712216056
#yiv2712216056ygrp-sponsor #yiv2712216056ygrp-lc #yiv2712216056hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2712216056
#yiv2712216056ygrp-sponsor #yiv2712216056ygrp-lc .yiv2712216056ad
{margin-bottom:10px;padding:0 0;}#yiv2712216056 #yiv2712216056actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2712216056
#yiv2712216056activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2712216056
#yiv2712216056activity span {font-weight:700;}#yiv2712216056
#yiv2712216056activity span:first-child
{text-transform:uppercase;}#yiv2712216056 #yiv2712216056activity span a
{color:#5085b6;text-decoration:none;}#yiv2712216056 #yiv2712216056activity span
span {color:#ff7900;}#yiv2712216056 #yiv2712216056activity span
.yiv2712216056underline {text-decoration:underline;}#yiv2712216056
.yiv2712216056attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2712216056 .yiv2712216056attach div a
{text-decoration:none;}#yiv2712216056 .yiv2712216056attach img
{border:none;padding-right:5px;}#yiv2712216056 .yiv2712216056attach label
{display:block;margin-bottom:5px;}#yiv2712216056 .yiv2712216056attach label a
{text-decoration:none;}#yiv2712216056 blockquote {margin:0 0 0
4px;}#yiv2712216056 .yiv2712216056bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2712216056
.yiv2712216056bold a {text-decoration:none;}#yiv2712216056 dd.yiv2712216056last
p a {font-family:Verdana;font-weight:700;}#yiv2712216056 dd.yiv2712216056last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2712216056
dd.yiv2712216056last p span.yiv2712216056yshortcuts
{margin-right:0;}#yiv2712216056 div.yiv2712216056attach-table div div a
{text-decoration:none;}#yiv2712216056 div.yiv2712216056attach-table
{width:400px;}#yiv2712216056 div.yiv2712216056file-title a, #yiv2712216056
div.yiv2712216056file-title a:active, #yiv2712216056
div.yiv2712216056file-title a:hover, #yiv2712216056 div.yiv2712216056file-title
a:visited {text-decoration:none;}#yiv2712216056 div.yiv2712216056photo-title a,
#yiv2712216056 div.yiv2712216056photo-title a:active, #yiv2712216056
div.yiv2712216056photo-title a:hover, #yiv2712216056
div.yiv2712216056photo-title a:visited {text-decoration:none;}#yiv2712216056
div#yiv2712216056ygrp-mlmsg #yiv2712216056ygrp-msg p a
span.yiv2712216056yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2712216056
.yiv2712216056green {color:#628c2a;}#yiv2712216056 .yiv2712216056MsoNormal
{margin:0 0 0 0;}#yiv2712216056 o {font-size:0;}#yiv2712216056
#yiv2712216056photos div {float:left;width:72px;}#yiv2712216056
#yiv2712216056photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv2712216056
#yiv2712216056photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2712216056
#yiv2712216056reco-category {font-size:77%;}#yiv2712216056
#yiv2712216056reco-desc {font-size:77%;}#yiv2712216056 .yiv2712216056replbq
{margin:4px;}#yiv2712216056 #yiv2712216056ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2712216056 #yiv2712216056ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2712216056
#yiv2712216056ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2712216056
#yiv2712216056ygrp-mlmsg select, #yiv2712216056 input, #yiv2712216056 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2712216056
#yiv2712216056ygrp-mlmsg pre, #yiv2712216056 code {font:115%
monospace;}#yiv2712216056 #yiv2712216056ygrp-mlmsg *
{line-height:1.22em;}#yiv2712216056 #yiv2712216056ygrp-mlmsg #yiv2712216056logo
{padding-bottom:10px;}#yiv2712216056 #yiv2712216056ygrp-msg p a
{font-family:Verdana;}#yiv2712216056 #yiv2712216056ygrp-msg
p#yiv2712216056attach-count span {color:#1E66AE;font-weight:700;}#yiv2712216056
#yiv2712216056ygrp-reco #yiv2712216056reco-head
{color:#ff7900;font-weight:700;}#yiv2712216056 #yiv2712216056ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2712216056 #yiv2712216056ygrp-sponsor
#yiv2712216056ov li a {font-size:130%;text-decoration:none;}#yiv2712216056
#yiv2712216056ygrp-sponsor #yiv2712216056ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2712216056
#yiv2712216056ygrp-sponsor #yiv2712216056ov ul {margin:0;padding:0 0 0
8px;}#yiv2712216056 #yiv2712216056ygrp-text
{font-family:Georgia;}#yiv2712216056 #yiv2712216056ygrp-text p {margin:0 0 1em
0;}#yiv2712216056 #yiv2712216056ygrp-text tt {font-size:120%;}#yiv2712216056
#yiv2712216056ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2712216056
