10 Messages
Digest #4331
3a
Bls: Bls: [belajar-excel] SKRIP DESKRIPSI BELUM BISA [1 Attachment] by "Susilo Pratama" pratama_susilo
3b
Bls: Bls: [belajar-excel] SKRIP DESKRIPSI BELUM BISA [1 Attachment] by "Susilo Pratama" pratama_susilo
3c
Re: Bls: [belajar-excel] SKRIP DESKRIPSI BELUM BISA [2 Attachments] by "Mr. Kid" nmkid.family@ymail.com
Messages
Thu Oct 19, 2017 7:21 pm (PDT) . Posted by:
"mahmud setyo utomo"
Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script
print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
membuat sheet khusus untuk kwitansi tersebut.
salam hangat,
Mahmud setyo utomo
print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
membuat sheet khusus untuk kwitansi tersebut.
salam hangat,
Mahmud setyo utomo
Thu Oct 19, 2017 7:29 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Mahmud,
Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini :
misal port printer di LPT1 (umumnya di port ini)
open "LPT1:" for output as #1
print #1, "Kwitansi blabla"
print #1,"terima dari blabla"
'dst
close #1
Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam
perintah print #1, "perintah excape sequence-nya"
Regards,
Kid
2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script
> print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
> untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
> membuat sheet khusus untuk kwitansi tersebut.
>
>
> salam hangat,
> Mahmud setyo utomo
>
>
>
Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini :
misal port printer di LPT1 (umumnya di port ini)
open "LPT1:" for output as #1
print #1, "Kwitansi blabla"
print #1,"terima dari blabla"
'dst
close #1
Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam
perintah print #1, "perintah excape sequence-nya"
Regards,
Kid
2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script
> print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
> untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
> membuat sheet khusus untuk kwitansi tersebut.
>
>
> salam hangat,
> Mahmud setyo utomo
>
>
>
Fri Oct 20, 2017 6:06 pm (PDT) . Posted by:
"mahmud setyo utomo"
kira kira untuk mendeteksi port-nya seperti apa, soalnya perintah itu saya
coba error
Pada 20 Oktober 2017 09.28, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Mahmud,
>
> Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini
> :
> misal port printer di LPT1 (umumnya di port ini)
>
> open "LPT1:" for output as #1
> print #1, "Kwitansi blabla"
> print #1,"terima dari blabla"
> 'dst
> close #1
>
> Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam
> perintah print #1, "perintah excape sequence-nya"
>
> Regards,
> Kid
>
>
>
>
>
>
>
> 2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script
>> print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
>> untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
>> membuat sheet khusus untuk kwitansi tersebut.
>>
>>
>> salam hangat,
>> Mahmud setyo utomo
>>
>>
>
>
coba error
Pada 20 Oktober 2017 09.28, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Mahmud,
>
> Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini
> :
> misal port printer di LPT1 (umumnya di port ini)
>
> open "LPT1:" for output as #1
> print #1, "Kwitansi blabla"
> print #1,"terima dari blabla"
> 'dst
> close #1
>
> Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam
> perintah print #1, "perintah excape sequence-nya"
>
> Regards,
> Kid
>
>
>
>
>
>
>
> 2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script
>> print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah
>> untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin
>> membuat sheet khusus untuk kwitansi tersebut.
>>
>>
>> salam hangat,
>> Mahmud setyo utomo
>>
>>
>
>
Fri Oct 20, 2017 6:49 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Di xl2007 kebawah bisa coba lihat di Excel saat akan print sesuatu. Menu File -> Print -> ada info Where.
Umumnya di windows control panel -> devices n printer -> double click si printer -> cari menu Properties -> tab Ports.
Print dengan escape sequence biasanya membutuhkan printer jenis text only. Dan biasanya secara default, port nya menggunakan LPT1:. Kabel printer yang dipasang ke komputer dikoneksikan ke slot port LPT1: (printer jaman dulu begitu).
Kalau printer jaman sekarang yang pakai koneksi USB, mungkin port-nya USB001.
Regards,
Kid
Sent from my smart enough phone
> On Oct 21, 2017, at 07:46, mahmud setyo utomo mrmood.647@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> kira kira untuk mendeteksi port-nya seperti apa, soalnya perintah itu saya coba error
>
> Pada 20 Oktober 2017 09.28, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>
>> Hai Mahmud,
>>
>> Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini :
>> misal port printer di LPT1 (umumnya di port ini)
>>
>> open "LPT1:" for output as #1
>> print #1, "Kwitansi blabla"
>> print #1,"terima dari blabla"
>> 'dst
>> close #1
>>
>> Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam perintah print #1, "perintah excape sequence-nya"
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>>
>> 2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin membuat sheet khusus untuk kwitansi tersebut.
>>>
>>>
>>> salam hangat,
>>> Mahmud setyo utomo
>>
>
>
Umumnya di windows control panel -> devices n printer -> double click si printer -> cari menu Properties -> tab Ports.
Print dengan escape sequence biasanya membutuhkan printer jenis text only. Dan biasanya secara default, port nya menggunakan LPT1:. Kabel printer yang dipasang ke komputer dikoneksikan ke slot port LPT1: (printer jaman dulu begitu).
Kalau printer jaman sekarang yang pakai koneksi USB, mungkin port-nya USB001.
Regards,
Kid
Sent from my smart enough phone
> On Oct 21, 2017, at 07:46, mahmud setyo utomo mrmood.647@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> kira kira untuk mendeteksi port-nya seperti apa, soalnya perintah itu saya coba error
>
> Pada 20 Oktober 2017 09.28, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>
>> Hai Mahmud,
>>
>> Sesuaikan sendiri port printer dan layoutnya ya, secara garis besar begini :
>> misal port printer di LPT1 (umumnya di port ini)
>>
>> open "LPT1:" for output as #1
>> print #1, "Kwitansi blabla"
>> print #1,"terima dari blabla"
>> 'dst
>> close #1
>>
>> Pengaturan printer dengan instruksi escape sequence bisa dilakukan dalam perintah print #1, "perintah excape sequence-nya"
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>>
>> 2017-10-20 7:42 GMT+07:00 mahmud setyo utomo mrmood.647@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>> Maaf teman teman, kira kira ada yang bisa bantu saya untuk membuat script print menggunakan perintah esc/p di vba, dalam hal ini kasus saya adalah untuk mencetak kwitansi aplikasi point of sale, dan saya tidak ingin membuat sheet khusus untuk kwitansi tersebut.
>>>
>>>
>>> salam hangat,
>>> Mahmud setyo utomo
>>
>
>
Thu Oct 19, 2017 11:33 pm (PDT) . Posted by:
"age rw03" age_rw03
Dear Master,
mohon bantuannya, saya mau ambil data secara random, dimana kriterianya :
1. ID yg di random bisa tercover semua 100 %, 2. ambil 10 % dari data perolehan setiap ID 3. yang di hasilkan nomor Respid 4. karena setiap hari ada penambahan data, tetap diproses dari point 1 - 3 ,
terimakasih
mohon bantuannya, saya mau ambil data secara random, dimana kriterianya :
1. ID yg di random bisa tercover semua 100 %, 2. ambil 10 % dari data perolehan setiap ID 3. yang di hasilkan nomor Respid 4. karena setiap hari ada penambahan data, tetap diproses dari point 1 - 3 ,
terimakasih
Fri Oct 20, 2017 3:08 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai age,
Semoga file terlampir bisa menjadi ide awal untuk kasus ini.
File terlampir sekadar contoh saja.
Silakan diamati, dikembangkan, dan dimanfaatkan untuk kebaikan secara santun
Regards,
Kid
P.S.
Kid tidak pernah mem-protect file dengan tujuan agar tidak bisa dipelajari.
Semua file yang diproteksi sudah disediakan password-nya di file itu
sendiri.
2017-10-20 13:21 GMT+07:00 age rw03 age_rw03@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master,
>
> mohon bantuannya, saya mau ambil data secara random, dimana kriterianya :
>
> 1. ID yg di random bisa tercover semua 100 %,
> 2. ambil 10 % dari data perolehan setiap ID
> 3. yang di hasilkan nomor Respid
> 4. karena setiap hari ada penambahan data, tetap diproses dari point 1 - 3
> ,
>
> terimakasih
>
>
>
Semoga file terlampir bisa menjadi ide awal untuk kasus ini.
File terlampir sekadar contoh saja.
Silakan diamati, dikembangkan, dan dimanfaatkan untuk kebaikan secara santun
Regards,
Kid
P.S.
Kid tidak pernah mem-protect file dengan tujuan agar tidak bisa dipelajari.
Semua file yang diproteksi sudah disediakan password-nya di file itu
sendiri.
2017-10-20 13:21 GMT+07:00 age rw03 age_rw03@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master,
>
> mohon bantuannya, saya mau ambil data secara random, dimana kriterianya :
>
> 1. ID yg di random bisa tercover semua 100 %,
> 2. ambil 10 % dari data perolehan setiap ID
> 3. yang di hasilkan nomor Respid
> 4. karena setiap hari ada penambahan data, tetap diproses dari point 1 - 3
> ,
>
> terimakasih
>
>
>
Fri Oct 20, 2017 2:14 am (PDT) . Posted by:
"Susilo Pratama" pratama_susilo
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 nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
On 19/10/2017 11:56, Susilo Pratama pratama_susilo@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 nangagus@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_susilo@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
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 nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
On 19/10/2017 11:56, Susilo Pratama pratama_susilo@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 nangagus@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_susilo@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-
Fri Oct 20, 2017 2:25 am (PDT) . Posted by:
"Susilo Pratama" pratama_susilo
Maaf pak untuk yang KI 4 belum ada rumusnya apa yah saya coba belum bisa
Pada Kamis, 19 Oktober 2017 21:15, "nangagus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
On 19/10/2017 11:56, Susilo Pratama pratama_susilo@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 nangagus@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_susilo@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-
Fri Oct 20, 2017 5:12 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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_susilo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> [image: 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 nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
> On 19/10/2017 11:56, Susilo Pratama pratama_susilo@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 nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>
> <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_susilo@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
>
>
>
>
>
>
>
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_susilo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> [image: 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 nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
> On 19/10/2017 11:56, Susilo Pratama pratama_susilo@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 nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>
> <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_susilo@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
>
>
>
>
>
>
>
Fri Oct 20, 2017 9:27 am (PDT) . Posted by:
"nangagus"
On 20/10/2017 16:12, Susilo Pratama pratama_susilo@yahoo.com
[belajar-excel] 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 nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> On 19/10/2017 11:56, Susilo Pratama pratama_susilo@yahoo.com
> <mailto:pratama_susilo@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 nangagus@gmail.com
>> <mailto:nangagus@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_susilo@yahoo.com
>> <mailto:pratama_susilo@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
>>
>>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar