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
<mailto:pratama_sus...@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>:
1. iya pak , nanti hasil deskripsi tinggal di link ke rapot
2. kalau no dan nama masuknya ananda , nama,baru nilai
3. 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 pengetahuan
Dim nil(12) ' nilai
Dim ko(12) ' kode
Dim kd(12) 'nama aspek
Dim j(12)
Dim mi As Integer
Dim ma As Integer
Dim maa As Double
Dim mii As Double
Dim o As Integer
Dim jen As String
Dim has As String
Dim rg As String
Dim ba As Integer
Dim en As Integer
nil(1) = N1
<https://maps.google.com/?q=1)+%3D+N1&entry=gmail&source=g>
nil(2) = N2
<https://maps.google.com/?q=2)+%3D+N2&entry=gmail&source=g>
nil(3) = N3
<https://maps.google.com/?q=3)+%3D+N3&entry=gmail&source=g>
nil(4) = N4
<https://maps.google.com/?q=4)+%3D+N4&entry=gmail&source=g>
nil(5) = N5
<https://maps.google.com/?q=5)+%3D+N5&entry=gmail&source=g>
nil(6) = n6
<https://maps.google.com/?q=6)+%3D+n6&entry=gmail&source=g>
nil(7) = N7
nil(8) = N8
<https://maps.google.com/?q=8)+%3D+N8&entry=gmail&source=g>
nil(9) = N9
<https://maps.google.com/?q=9)+%3D+N9&entry=gmail&source=g>
nil(10) = N10
<https://maps.google.com/?q=10)+%3D+N10&entry=gmail&source=g>
nil(11) = N11
<https://maps.google.com/?q=11)+%3D+N11&entry=gmail&source=g>
nil(12) = N12
<https://maps.google.com/?q=12)+%3D+N12&entry=gmail&source=g>
For o = 1 To 12
If nil(o) > 0 Then en = o
Next o
For o = 1 To en
kd(o) = Sheets("Sheet1").Cells(6, 23 + o) & ", "
Next o
jen = ""
If N1 = 0 Or N2 = 0 Or N3 = 0 Then Exit Function
has = "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 = jen
End 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 pengetahuan
Dim nil(6) ' nilai
Dim ko(6) ' kode
Dim kd(6) 'nama aspek
Dim j(6)
Dim mi As Integer
Dim ma As Integer
Dim maa As Double
Dim mii As Double
Dim o As Integer
Dim jen As String
Dim has As String
Dim rg As String
Dim ba As Integer
Dim en As Integer
nil(1) = N1
<https://maps.google.com/?q=1)+%3D+N1&entry=gmail&source=g>
nil(2) = N2
<https://maps.google.com/?q=2)+%3D+N2&entry=gmail&source=g>
nil(3) = N3
<https://maps.google.com/?q=3)+%3D+N3&entry=gmail&source=g>
nil(4) = N4
<https://maps.google.com/?q=4)+%3D+N4&entry=gmail&source=g>
nil(5) = N5
<https://maps.google.com/?q=5)+%3D+N5&entry=gmail&source=g>
nil(6) = n6
<https://maps.google.com/?q=6)+%3D+n6&entry=gmail&source=g>
For o = 1 To 6
kd(o) = Sheets("Sheet1").Cells(6, 13 + o) & ", "
Next o
jen = ""
If N1 = 0 Or N2 = 0 Or N3 = 0 Then Exit Function
has = "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 = jen
End Function
Pada Selasa, 24 Oktober 2017 12:14, "'Mr. Kid' mr.nm...@gmail.com
<mailto:mr.nm...@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto: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 <mailto:pratama_sus...@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto: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 <mailto:mr.nm...@gmail.com>
[belajar-excel]" <belajar-excel@yahoogroups.com
<mailto: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 <mailto:pratama_sus...@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto: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 <mailto:mr.nm...@gmail.com>
[belajar-excel]" <belajar-excel@yahoogroups.com
<mailto: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 <mailto:pratama_sus...@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Jadikan gambar sebaris
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 <mailto:nanga...@gmail.com>
[belajar-excel]" <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:
On 19/10/2017 11:56, Susilo Pratama
pratama_sus...@yahoo.com
<mailto: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 <mailto:nanga...@gmail.com>
[belajar-excel]" <belajar-excel@yahoogroups. com>
<mailto: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
<mailto: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>