boleh saya kirim file aplikasi saya ,ukuranya kurang lebih 4 mb karen sudah ada
sekitar 45 sheet dan macro macro buat contoh saja
Pada Selasa, 24 Oktober 2017 13:22, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Tinggal di link ke raport ?
Kenapa deskripsi tidak dibuat di raport saja ?
Kan jadi lebih mudah. Kalau deskripsi sudah dipaksakan dibuat di tabel data,
jadi tidak efisien, karena kalimat deskripsi itu bukan data tapi suatu report.
Report kok diletakkan di sheet data to..
atau.. oh, ada banyak sheet raport sebanyak jumlah siswa ya... dan di raport
itu tidak menampilkan nilai-nilainya lagi, tapi hanya satu kalimat desripsi
saja...
hmmm... beneran gak mudeng saya ini...
imho,Biarkan saja daftar nilai tanpa deskripsi.Di sheet raport lah tempat
dilakukan proses penyusunan deskripsi.Toh printout raportnya nanti satu per
satu nama murid bukan ?
Guru yang input nilai pun gak akan peduli dengan bunyi deskripsi di tabel data.
Yang dibutuhkan si guru cuma memastikan nilai-nilai sudah masuk di tabel
data.Setelah itu si guru mulai menyusun raport di sheet lain, satu per satu
untuk setiap muridnya si guru.
Proses menyusun raport di sheet lain ini yang kemudian dibantu dengan
menyusunkan deskripsi.Jadi, beban Excel jadi lebih rendah, proses lebih
efisien, dan mudah dikembangkan suatu saat nanti.
Setahu saya, tidak ada record transaksi perusahaan yang perlu di cetak kuitansi
dengan bunyi terbilang, sudah menyimpan hasil deskripsi terbilang dalam
datanya.Yang ada itu, semua data TANPA deskripsi terbilang, ada di suatu sheet
data terpisah.
Lalu ada sheet lain bernama FORM CETAK KUITANSI yang isinya mengambil nilai
data dari sheet data,
lalu di sheet form cetak kuitansi tersebut, dengan nilai data yang sudah
diambil tersebut, dilakukan penyusunan deskripsi terbilang.Kalau pakai UDF
terbilang, maka UDF terbilang dipakai di sheet FORM CETAK KUITANSI tok til,
bukan malah di sheet data.
btw, it's just my 2cents
---------
untuk UDF yang akan Anda pakai tersebut, hilangkan saja rujukan ke sheet
tertentu, agar merujuk ke sheet yang sama dengan lokasi sheet yang pakai UDF.
Regards,Kid
2017-10-24 12:27 GMT+07:00 Susilo Pratama pratama_sus...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
1. iya pak , nanti hasil deskripsi tinggal di link ke rapot2. kalau no dan
nama masuknya ananda , nama,baru nilai3. iya pak,saya pengin scrip deskripsi
ini bisa di pakai d semua sheet jika saya copykan scrip udf deskripsi ini ke
sheet lain apakah saya cukup merubah nama sheet misal di contohkan nama sheet
1, jika saya copy di sheet saya yg misal sheet 35 saya cukup rubah itu saja
atau ada coding lain yg di ganti tks? maaf banyak tanya heee
Function DeskripsiNile(Nama As String, N1 As Integer, N2 As Integer, N3 As
Integer, Optional N4 As Integer, Optional N5 As Integer, Optional n6 As
Integer, Optional N7 As Integer, Optional N8 As Integer, Optional N9 As
Integer, Optional N10 As Integer, Optional N11 As Integer, Optional N12 As
Integer) As String 'deskripsi nilai pengetahuanDim nil(12) ' nilaiDim ko(12)
' kodeDim kd(12) 'nama aspekDim j(12)Dim mi As IntegerDim ma As IntegerDim
maa As DoubleDim mii As DoubleDim o As IntegerDim jen As StringDim has As
StringDim rg As StringDim ba As IntegerDim en As Integernil(1) = N1nil(2) =
N2nil(3) = N3nil(4) = N4nil(5) = N5nil(6) = n6nil(7) = N7nil(8) = N8nil(9) =
N9nil(10) = N10nil(11) = N11nil(12) = N12
For o = 1 To 12If nil(o) > 0 Then en = oNext o For o = 1 To en kd(o) =
Sheets("Sheet1").Cells(6, 23 + o) & ", " Next ojen = "" If N1 = 0 Or N2 =
0 Or N3 = 0 Then Exit Functionhas = "Ananda " & Nama & " baik dalam KD " maa =
Application.Max(N1, N2, N3, N4, N5, n6, N7, N8, N9, N10, N11, N12) mii =
Application.Min(N1, N2, N3, N4, N5, n6, N7, N8, N9, N10, N11, N12) For o = 1
To en ko(o) = 0 If nil(o) = maa Then ma = o If nil(o) = mii Then mi =
o Next o'MsgBox mi
jen = has & kd(ma)
jen = jen & " perlu pendampingan dalam KD " & kd(mi)DeskripsiNile = jenEnd
Function
Function DeskripsiNilai(Nama As String, N1 As Double, N2 As Double, N3 As
Double, Optional N4 As Double, Optional N5 As Double, Optional n6 As Double) As
String 'deskripsi nilai pengetahuanDim nil(6) ' nilaiDim ko(6) ' kodeDim
kd(6) 'nama aspekDim j(6)Dim mi As IntegerDim ma As IntegerDim maa As
DoubleDim mii As DoubleDim o As IntegerDim jen As StringDim has As StringDim rg
As StringDim ba As IntegerDim en As Integernil(1) = N1nil(2) = N2nil(3) =
N3nil(4) = N4nil(5) = N5nil(6) = n6
For o = 1 To 6 kd(o) = Sheets("Sheet1").Cells(6, 13 + o) & ", " Next
ojen = "" If N1 = 0 Or N2 = 0 Or N3 = 0 Then Exit Functionhas = "Ananda " &
Nama & " baik dalam KD " maa = Application.Max(N1, N2, N3, N4, N5, n6) mii =
Application.Min(N1, N2, N3, N4, N5, n6) For o = 1 To 6 ko(o) = 0 If
nil(o) = maa Then ma = o If nil(o) = mii Then mi = o Next o'MsgBox mi
jen = has & kd(ma)
jen = jen & " perlu pendampingan dalam KD " & kd(mi)DeskripsiNilai = jenEnd
Function
Pada Selasa, 24 Oktober 2017 12:14, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
Oh begitu...
Sebegitu pentingnya si deskripsi langsung ada di sheet tersebut dan bukan di
hasil akhir saat mau print saja ?Kalau sheet daftar nama dan nilai itu tidak
pakai kolom deskripsi kenapa to ?
Bukankah UDF terbilang pun biasanya digunakan dihasil akhir untuk menulis
laporan yang akan di-print saja.
On Tue, Oct 24, 2017 at 7:10 AM, Susilo Pratama pratama_sus...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
iya pak, jadi nanti fungsi sheet cek nilai itu untuk menjumlahkan nilai
agar menjadi nilai rapot, Nilai harian setiap kd dari ,masing masing mapel
pertema semdiri sendiri, nilai pts(penilaian tengah semster), dan nilai pat (
penilaian akhir semster) di jumlahkan dengan rumus 2x nh + pts + pat, nah
nantinya nilai hasil dari itu menjadi nilai per kd yg sudah di tambah dengan
nilai pat dan pas , setiap kd ada deskripsinya jadi nanti yg muncul adalah
nilai akhir diambil dari rata-rata kd tsb dan deskripsi yg muncul diambil dari
kd terendah dan tetinggi saja. seperti yg saya contohkan pak itu untuk penilai
pengetahuan atau KI3 kalau KI 4 itu tanpa nilai pat dan pas, nah kalau bisa
saya dibuatkan add in contoh kaya rumus terbilang tks sebelumnya
Pada Senin, 23 Oktober 2017 12:00, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
Deskripsi juga diperiksa sudah masuk atau belum?
Sent from my smart enough phone
On Oct 23, 2017, at 09:43, Susilo Pratama pratama_sus...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
untuk mempermudah pengecekan nilai tiap kd setiap siswa saja pak , jika
langsung dimasukan hasil kahir atau nilai rapot nanti bapak.ibu guru yang input
nilai tidak bisa mengetahui sudah masuk apa belum. karena masing masing guru
sdm berbeda beda jadi saya buatkan yang mudah dipahami .
Pada Jumat, 20 Oktober 2017 19:12, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
Hai Susilo,
Boleh tahu kenapa kok deskripsi dibuat langsung disebuah kolom untuk setiap
siswa ?
Apakah kebutuhannya akan memeriksa nilai sampai deskripsi setiap siswa oleh
supervisornya ?
Ataukah maksudnya untuk mempermudah saat akan dicetak sebagai laporan per siswa
?
Regards,
Kid
On Fri, Oct 20, 2017 at 4:12 PM, Susilo Pratama pratama_sus...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Maaf pak untuk yang KI 4 belum ada rumusnya apa yah saya coba belum bisa
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
<image.png>
#yiv2826942927 #yiv2826942927 -- #yiv2826942927ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2826942927
#yiv2826942927ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2826942927
#yiv2826942927ygrp-mkp #yiv2826942927hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2826942927 #yiv2826942927ygrp-mkp #yiv2826942927ads
{margin-bottom:10px;}#yiv2826942927 #yiv2826942927ygrp-mkp .yiv2826942927ad
{padding:0 0;}#yiv2826942927 #yiv2826942927ygrp-mkp .yiv2826942927ad p
{margin:0;}#yiv2826942927 #yiv2826942927ygrp-mkp .yiv2826942927ad a
{color:#0000ff;text-decoration:none;}#yiv2826942927 #yiv2826942927ygrp-sponsor
#yiv2826942927ygrp-lc {font-family:Arial;}#yiv2826942927
#yiv2826942927ygrp-sponsor #yiv2826942927ygrp-lc #yiv2826942927hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2826942927
#yiv2826942927ygrp-sponsor #yiv2826942927ygrp-lc .yiv2826942927ad
{margin-bottom:10px;padding:0 0;}#yiv2826942927 #yiv2826942927actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2826942927
#yiv2826942927activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2826942927
#yiv2826942927activity span {font-weight:700;}#yiv2826942927
#yiv2826942927activity span:first-child
{text-transform:uppercase;}#yiv2826942927 #yiv2826942927activity span a
{color:#5085b6;text-decoration:none;}#yiv2826942927 #yiv2826942927activity span
span {color:#ff7900;}#yiv2826942927 #yiv2826942927activity span
.yiv2826942927underline {text-decoration:underline;}#yiv2826942927
.yiv2826942927attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2826942927 .yiv2826942927attach div a
{text-decoration:none;}#yiv2826942927 .yiv2826942927attach img
{border:none;padding-right:5px;}#yiv2826942927 .yiv2826942927attach label
{display:block;margin-bottom:5px;}#yiv2826942927 .yiv2826942927attach label a
{text-decoration:none;}#yiv2826942927 blockquote {margin:0 0 0
4px;}#yiv2826942927 .yiv2826942927bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2826942927
.yiv2826942927bold a {text-decoration:none;}#yiv2826942927 dd.yiv2826942927last
p a {font-family:Verdana;font-weight:700;}#yiv2826942927 dd.yiv2826942927last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2826942927
dd.yiv2826942927last p span.yiv2826942927yshortcuts
{margin-right:0;}#yiv2826942927 div.yiv2826942927attach-table div div a
{text-decoration:none;}#yiv2826942927 div.yiv2826942927attach-table
{width:400px;}#yiv2826942927 div.yiv2826942927file-title a, #yiv2826942927
div.yiv2826942927file-title a:active, #yiv2826942927
div.yiv2826942927file-title a:hover, #yiv2826942927 div.yiv2826942927file-title
a:visited {text-decoration:none;}#yiv2826942927 div.yiv2826942927photo-title a,
#yiv2826942927 div.yiv2826942927photo-title a:active, #yiv2826942927
div.yiv2826942927photo-title a:hover, #yiv2826942927
div.yiv2826942927photo-title a:visited {text-decoration:none;}#yiv2826942927
div#yiv2826942927ygrp-mlmsg #yiv2826942927ygrp-msg p a
span.yiv2826942927yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2826942927
.yiv2826942927green {color:#628c2a;}#yiv2826942927 .yiv2826942927MsoNormal
{margin:0 0 0 0;}#yiv2826942927 o {font-size:0;}#yiv2826942927
#yiv2826942927photos div {float:left;width:72px;}#yiv2826942927
#yiv2826942927photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv2826942927
#yiv2826942927photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2826942927
#yiv2826942927reco-category {font-size:77%;}#yiv2826942927
#yiv2826942927reco-desc {font-size:77%;}#yiv2826942927 .yiv2826942927replbq
{margin:4px;}#yiv2826942927 #yiv2826942927ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2826942927 #yiv2826942927ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2826942927
#yiv2826942927ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2826942927
#yiv2826942927ygrp-mlmsg select, #yiv2826942927 input, #yiv2826942927 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2826942927
#yiv2826942927ygrp-mlmsg pre, #yiv2826942927 code {font:115%
monospace;}#yiv2826942927 #yiv2826942927ygrp-mlmsg *
{line-height:1.22em;}#yiv2826942927 #yiv2826942927ygrp-mlmsg #yiv2826942927logo
{padding-bottom:10px;}#yiv2826942927 #yiv2826942927ygrp-msg p a
{font-family:Verdana;}#yiv2826942927 #yiv2826942927ygrp-msg
p#yiv2826942927attach-count span {color:#1E66AE;font-weight:700;}#yiv2826942927
#yiv2826942927ygrp-reco #yiv2826942927reco-head
{color:#ff7900;font-weight:700;}#yiv2826942927 #yiv2826942927ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2826942927 #yiv2826942927ygrp-sponsor
#yiv2826942927ov li a {font-size:130%;text-decoration:none;}#yiv2826942927
#yiv2826942927ygrp-sponsor #yiv2826942927ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2826942927
#yiv2826942927ygrp-sponsor #yiv2826942927ov ul {margin:0;padding:0 0 0
8px;}#yiv2826942927 #yiv2826942927ygrp-text
{font-family:Georgia;}#yiv2826942927 #yiv2826942927ygrp-text p {margin:0 0 1em
0;}#yiv2826942927 #yiv2826942927ygrp-text tt {font-size:120%;}#yiv2826942927
#yiv2826942927ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2826942927
