[belajar-excel] Digest Number 1436

Milis Belajar Microsoft Excel

Messages In This Digest (18 Messages)

1a.

Re: Membuat tulisan bergerak From: Haps

1b.

Re: Membuat tulisan bergerak From: Haps

2a.

Mengolah data nilai Raport dan Mencetak dengan Macro From: Markus

2b.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Haps

2c.

Bls: [belajar-excel] Mengolah data nilai Raport dan Mencetak dengan From: Kusnadi Bin zain

2d.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Haps

2e.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Markus

2f.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: indra patmoko

3a.

Bls: [belajar-excel] Selisih Menit DTPicker tidak bulat From: muja

3b.

Re: Selisih Menit DTPicker tidak bulat From: Kid Mr.

3c.

Re: Selisih Menit DTPicker tidak bulat From: mail4muja@yahoo.co.id

4a.

Tanya cara ngeprint From: Asror Al-Aliif's

4b.

Re: Tanya cara ngeprint From: Haps

4c.

Re: Tanya cara ngeprint From: Asror Al-Aliif's

4d.

Re: Tanya cara ngeprint From: Asror Al-Aliif's

4e.

Re: Tanya cara ngeprint From: Haps

5a.

Terima kasih From: izmaul

5b.

Re: Terima kasih From: Kid Mr.

View All Topics | Create New Topic

Messages

1a.

Re: Membuat tulisan bergerak

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 12, 2011 11:02 am (PST)

Dear mbak Riska
Please find: Penjelasan ada di 3 Module VBE dlm workbook terlampir langsung
di coding makro nya
Module Thisworkbook
Module Sheet1
Module Standard
** penjelasan selalu ditulis DI ATAS code yg dijelaskan

Di situ makro sudah diubah = agar TEXT BERGERAK tanpa harus ada tombol
Start/Stop.
Start/Stop diganti dengan event workbook dibuka dan event workbook ditutup
juga event sheet di-Actifve-kan / sheet di deActive-kan

-iHaps-

*On Mon, Dec 12, 2011 at 5:44 PM, Riska.Nirmalasari@danone.com wrote:*
> Dear Mbak Haps,
> Karena saya masih belajaran di VBA, mohon pencerahannya untuk rumus
tersebut,
> jika langsung tanpa klik start atau stop bagaimana?
> Terimakasih.
> R1ska
>
*> From: Haps <hapsari.stlizbeth@gmail.com>
> Date: 12/12/11 04:40 PM*
> bisa
> (tapi tidak persis seperti power point)
> Sub MovingTextOnCells()
> End Sub
>
>
*> 2011/12/12 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com>*
> > Mau tanya nich, bisa gak di excel tulisan misal judul dibuat bergerak
seperti di power point.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

1b.

Re: Membuat tulisan bergerak

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 12, 2011 11:45 am (PST)

maaf ada penjelasan yang kurang lengkap; di prosedur MovingTextOnCell

tertulis
*' x diubah : 1 karakter paling dibuang*

seharusnya
*' x diubah : 1 karakter paling KIRI dibuang*

Jadi pada makro tsb:* efek teks berjalan *dibuat dengan teks yg *dibuang 1
hurufnya *
*di paling ujung (kiri); *(ingat fungsi RIGHT)* *dan pembuangan
(penguranan) huruf tsb
dilakukan secara berulang & terus menerus.
Jika text (yg hurufnya dibuangi satu persatu akhirnya habis, maka teks
diisi lagi dgn teks semula.
If Len(x) < 1 Then x = Space(80) + teks

Penambahan beberapa karakter SPACE di sebelah kiri sebelum teks
*x = Space(80) + teks*
dimaksudkan agar penampakan teks SEPERTI dimulai dari :TIDAK KELIHATAN
kemudian secara berangsung-angsur *datang dari kanan*

Bayangkan teks adalah "JARAN", dan 6 SPASI digambarkan sebagai 6 tanda _
(underscore)

x = ______JARAN
secara berangkur angsur akan menjadi spt ini

______JARAN
_____JARAN
____JARAN
___JARAN
__JARAN
_JARAN
JARAN
ARAN
RAN
AN
N

Penjelasan lebih detil ada di sini: http://www.box.com/shared/13oo4lbqrr
menjelaskan teks berjalan (di userform) dengan teknik lain.

2011/12/13 Haps <hapsari.stlizbeth@gmail.com>

> Dear mbak Riska
> Please find: Penjelasan ada di 3 Module VBE dlm workbook terlampir
> langsung
> di coding makro nya
> Module Thisworkbook
> Module Sheet1
> Module Standard
> ** penjelasan selalu ditulis DI ATAS code yg dijelaskan
>
> Di situ makro sudah diubah = agar TEXT BERGERAK tanpa harus ada tombol
> Start/Stop.
> Start/Stop diganti dengan event workbook dibuka dan event workbook ditutup
> juga event sheet di-Actifve-kan / sheet di deActive-kan
>
> -iHaps-
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.

Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Markus" indra.ptmk@gmail.com   indra.ptmk

Mon Dec 12, 2011 5:33 pm (PST)

Kepada para Master Excel.
Saya membutuhkan bantuan agar dapat menyelesaikan pekerjaan dengan cepat, yaitu mengolah data nilai dan dicetak.
Nah karena saya awam di dunia excel, saya sangat mengharapkan bantuan teman-teman semuanya agar dapat membantu saya.
download : http://www.4shared.com/file/vzbun3CK/nilai_raport.html

Terima Kasih
Indra

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2b.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 12, 2011 7:45 pm (PST)

mungkin begini... mohon maaf kalo banyak nguawurrnya...

1.
Sheet raport cell *M4* kita manfaatkan untuk mengisi *argument
RowIndex*untuk FUNGSI INDEX
Tabel yg di INDEX adalah tabel di sheet 'Rekap_Raport'
Jikalau perlu range-tabelnya diberi nama misalnya 'Rekap' agar
menyederhanakan rumus
yg dian ditulis di G14 dan kawab-kawan
Lihat sheet raport, tiap angka yg diberi font warna biru, maskudnya
memberitahu bawha berisi Rumyus..

Contoh salah satu rumus (nama siswa)
=INDEX(Rekap,$M$4,2)

2.
Baris terakhir pada tabel rekap ("rerata kelas" sepanjang A:P, setinggi 1
baris)
diberinama 'RerataKelas', tujuannya sama = menyederhanakan formula di J14
pada sheet raport
How to memberi nama RANGE, dianggap sudah pada faham wal maklum..
[ member yg perlu penjelasan dapat melihat lihat di
sini<http://tech.groups.yahoo.com/group/XL-mania/message/7048>(di toko
sebelah) ]

3
rumus penterjemah angka ke Kata-Kata, kita pakai salah satu formula yg
pernah di tayangkan di milis ini
=TRIM(IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1)=0,"",
VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1),Angka,2,0))&
IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,2)=0,"",
VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),2,1),Angka,2,0))&
VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),3,1),Angka,2,0)&"Koma "&
VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),1,1),Angka,2,0)&
VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),2,1),Angka,2,0))

Rumus ini perlu bantuan sebuah tabel-Range yg diberinama ANGKA (lihat range
V3:W12 pada sheet 'Rekap'
dan lihat [ Name Manager.]

4.
Pencetakan ingin diotomatiskan dengan tombol ??
berarti workbook harus bermakro
dan sebelumnya, *Print Area dan Page Setup* mohon diatur sendiri oleh pak
markus indra ptmk

Sub Button1_Click()
Sheets("raport").PrintPreview
End Sub

ganti menjadi sepeti dibawah, hanya jijka printer memang sudah terinstal
dan siap mencetak

Sub Button1_Click()
Sheets("raport").PrintOut
End Sub

5.
ada beberapa cells yg kami beri arsiran coklat muda, maksudnya cell itu
tidak bisa diisi secara rumus karena tidak ada tabel/kolom dari tabel yg
dapat diipakai sebagai rujukannya. (hany apak markuslah yg tahu..)

6. contoh mengaplikasikannya ke dalam wrkbook/sheets ada di
sini<http://www.box.com/s/sgz8bpsm25ly47gqmzv8>:
( http://www.box.com/s/sgz8bpsm25ly47gqmzv8 )

-h-

2011/12/13 Markus <indra.ptmk@gmail.com>

> **
>
> Kepada para Master Excel.
> Saya membutuhkan bantuan agar dapat menyelesaikan pekerjaan dengan cepat,
> yaitu mengolah data nilai dan dicetak.
> Nah karena saya awam di dunia excel, saya sangat mengharapkan bantuan
> teman-teman semuanya agar dapat membantu saya.
> download : http://www.4shared.com/file/vzbun3CK/nilai_raport.html
>
> Terima Kasih
> Indra
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2c.

Bls: [belajar-excel] Mengolah data nilai Raport dan Mencetak dengan

Posted by: "Kusnadi Bin zain" kbinzain@yahoo.co.id   kbinzain

Mon Dec 12, 2011 9:19 pm (PST)

Beginikah yang dimaksud.............. ?
maaf kalau saya salah persepsi, pasti ada yang lain yang memberi solusi.

________________________________
Dari: Markus <indra.ptmk@gmail.com>
Dikirim: Selasa, 13 Desember 2011 8:25
 
Kepada para Master Excel.
Saya membutuhkan bantuan agar dapat menyelesaikan pekerjaan dengan cepat, yaitu mengolah data nilai dan dicetak.
Nah karena saya awam di dunia excel, saya sangat mengharapkan bantuan teman-teman semuanya agar dapat membantu saya.
download : http://www.4shared.com/file/vzbun3CK/nilai_raport.html

Terima Kasih
Indra

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2d.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 12, 2011 9:37 pm (PST)

*Perbaikan perterjemahan nilai ke katakata*

pada rumus yg dikirim pertama: 10 diterjemahakn sbg "Satu Nol"
Jika hal ini tidak dikehendaki, rumusnya dapat diubah (bukan diRubah) dengan

=IF(--INT(G14)=0,"Nol ",IF(--(LEFT(TEXT(INT(G14),"000")))=1,"Seratus ",
IF(--(LEFT(TEXT(INT(G14),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(G14),"000"))))&"Ratus
","")))&
IF(--(MID(TEXT(INT(G14),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(G14),"000"),2,1))=1,
CHOOSE((--(RIGHT(TEXT(INT(G14),"0")))=0)*1+((--(RIGHT(TEXT(INT(G14),"0")))=1)*2)+
((--(RIGHT(TEXT(INT(G14),"0")))>1)*3),"Sepuluh ","Sebelas
",INDEX(N,--(RIGHT(TEXT(INT(G14),"0"))))&"Belas "),
IF(--(MID(TEXT(INT(G14),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(G14),"000"),2,1)))&"Puluh
")))&
IF(OR(--(MID(TEXT(INT(G14),"000"),2,1))=1,--(RIGHT(TEXT(INT(G14),"0")))=0),"",
INDEX(N,--(RIGHT(TEXT(INT(G14),"0")))))&"Koma
"&IF(--LEFT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol ",
INDEX(N,LEFT(TEXT(MOD(G14,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol
",
INDEX(N,RIGHT(TEXT(MOD(G14,1)*100,"00"))))

rumus ini perlu bantuan sebuah 'Array Konstanta' yg disimpan dalam Defne
Name / gambarnya spt ini :
[image: Array N.PNG]

File lengkap: dapat di unduh di :
http://www.box.com/s/299hjy4t95ccy17ntyhe

2011/12/13 Haps <hapsari.stlizbeth@gmail.com>

> mungkin begini... mohon maaf kalo banyak nguawurrnya...
>
> 3
> rumus penterjemah angka ke Kata-Kata, kita pakai salah satu formula yg
> pernah di tayangkan di milis ini
> =TRIM(IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1)=0,"",
> VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1),Angka,2,0))&
> IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,2)=0,"",
> VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),2,1),Angka,2,0))&
> VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),3,1),Angka,2,0)&"Koma "&
> VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),1,1),Angka,2,0)&
> VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),2,1),Angka,2,0))
>
> Rumus ini perlu bantuan sebuah tabel-Range yg diberinama ANGKA (lihat
> range V3:W12 pada sheet 'Rekap'
> dan lihat [ Name Manager.]
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2e.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Markus" indra.ptmk@gmail.com   indra.ptmk

Mon Dec 12, 2011 10:35 pm (PST)

Terima kasih banyak Ibu Haps liz_indri, atas bantuannya.
Permasalahan saya sudah terjawab.
----------------------------------------------------------

--- In belajar-excel@yahoogroups.com, Haps <hapsari.stlizbeth@...> wrote:
>
> *Perbaikan perterjemahan nilai ke katakata*
>
> pada rumus yg dikirim pertama: 10 diterjemahakn sbg "Satu Nol"
> Jika hal ini tidak dikehendaki, rumusnya dapat diubah (bukan diRubah) dengan
>
> =IF(--INT(G14)=0,"Nol ",IF(--(LEFT(TEXT(INT(G14),"000")))=1,"Seratus ",
> IF(--(LEFT(TEXT(INT(G14),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(G14),"000"))))&"Ratus
> ","")))&
> IF(--(MID(TEXT(INT(G14),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(G14),"000"),2,1))=1,
> CHOOSE((--(RIGHT(TEXT(INT(G14),"0")))=0)*1+((--(RIGHT(TEXT(INT(G14),"0")))=1)*2)+
> ((--(RIGHT(TEXT(INT(G14),"0")))>1)*3),"Sepuluh ","Sebelas
> ",INDEX(N,--(RIGHT(TEXT(INT(G14),"0"))))&"Belas "),
> IF(--(MID(TEXT(INT(G14),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(G14),"000"),2,1)))&"Puluh
> ")))&
> IF(OR(--(MID(TEXT(INT(G14),"000"),2,1))=1,--(RIGHT(TEXT(INT(G14),"0")))=0),"",
> INDEX(N,--(RIGHT(TEXT(INT(G14),"0")))))&"Koma
> "&IF(--LEFT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol ",
> INDEX(N,LEFT(TEXT(MOD(G14,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol
> ",
> INDEX(N,RIGHT(TEXT(MOD(G14,1)*100,"00"))))
>
> rumus ini perlu bantuan sebuah 'Array Konstanta' yg disimpan dalam Defne
> Name / gambarnya spt ini :
> [image: Array N.PNG]
>
> File lengkap: dapat di unduh di :
> http://www.box.com/s/299hjy4t95ccy17ntyhe
>
>
>
> 2011/12/13 Haps <hapsari.stlizbeth@...>
>
> > mungkin begini... mohon maaf kalo banyak nguawurrnya...
> >
> > 3
> > rumus penterjemah angka ke Kata-Kata, kita pakai salah satu formula yg
> > pernah di tayangkan di milis ini
> > =TRIM(IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1)=0,"",
> > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1),Angka,2,0))&
> > IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,2)=0,"",
> > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),2,1),Angka,2,0))&
> > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),3,1),Angka,2,0)&"Koma "&
> > VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),1,1),Angka,2,0)&
> > VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),2,1),Angka,2,0))
> >
> > Rumus ini perlu bantuan sebuah tabel-Range yg diberinama ANGKA (lihat
> > range V3:W12 pada sheet 'Rekap'
> > dan lihat [ Name Manager.]
> >
> >
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2f.

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "indra patmoko" indra.ptmk@gmail.com   indra.ptmk

Tue Dec 13, 2011 12:19 am (PST)

Ibu Haps
Setelah file-nya saya lihat, ternyata SARAN No. 5 bagus juga. Oleh sebab
itu saya tambahkan data di sheet Rekap. dan saya tambah 1 sheet (identitas).
Kalo boleh cara mengedit macro-nya bagaimana / dimana ? sekalian untuk saya
pelajari he..he..

Terima Kasih
Indra
__________________________________________________________

2011/12/13 Markus <indra.ptmk@gmail.com>

> Terima kasih banyak Ibu Haps liz_indri, atas bantuannya.
> Permasalahan saya sudah terjawab.
> ----------------------------------------------------------
>
> --- In belajar-excel@yahoogroups.com, Haps <hapsari.stlizbeth@...> wrote:
> >
> > *Perbaikan perterjemahan nilai ke katakata*
> >
> > pada rumus yg dikirim pertama: 10 diterjemahakn sbg "Satu Nol"
> > Jika hal ini tidak dikehendaki, rumusnya dapat diubah (bukan diRubah)
> dengan
> >
> > =IF(--INT(G14)=0,"Nol ",IF(--(LEFT(TEXT(INT(G14),"000")))=1,"Seratus ",
> >
> IF(--(LEFT(TEXT(INT(G14),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(G14),"000"))))&"Ratus
> > ","")))&
> >
> IF(--(MID(TEXT(INT(G14),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(G14),"000"),2,1))=1,
> >
> CHOOSE((--(RIGHT(TEXT(INT(G14),"0")))=0)*1+((--(RIGHT(TEXT(INT(G14),"0")))=1)*2)+
> > ((--(RIGHT(TEXT(INT(G14),"0")))>1)*3),"Sepuluh ","Sebelas
> > ",INDEX(N,--(RIGHT(TEXT(INT(G14),"0"))))&"Belas "),
> >
> IF(--(MID(TEXT(INT(G14),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(G14),"000"),2,1)))&"Puluh
> > ")))&
> >
> IF(OR(--(MID(TEXT(INT(G14),"000"),2,1))=1,--(RIGHT(TEXT(INT(G14),"0")))=0),"",
> > INDEX(N,--(RIGHT(TEXT(INT(G14),"0")))))&"Koma
> > "&IF(--LEFT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol ",
> >
> INDEX(N,LEFT(TEXT(MOD(G14,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol
> > ",
> > INDEX(N,RIGHT(TEXT(MOD(G14,1)*100,"00"))))
> >
> > rumus ini perlu bantuan sebuah 'Array Konstanta' yg disimpan dalam Defne
> > Name / gambarnya spt ini :
> > [image: Array N.PNG]
> >
> > File lengkap: dapat di unduh di :
> > http://www.box.com/s/299hjy4t95ccy17ntyhe
> >
> >
> >
> > 2011/12/13 Haps <hapsari.stlizbeth@...>
> >
> > > mungkin begini... mohon maaf kalo banyak nguawurrnya...
> > >
> > > 3
> > > rumus penterjemah angka ke Kata-Kata, kita pakai salah satu formula yg
> > > pernah di tayangkan di milis ini
> > > =TRIM(IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1)=0,"",
> > > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,1),Angka,2,0))&
> > > IF(--MID(TEXT(RIGHT(INT(G14),3),"000"),1,2)=0,"",
> > > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),2,1),Angka,2,0))&
> > > VLOOKUP(--MID(TEXT(RIGHT(INT(G14),3),"000"),3,1),Angka,2,0)&"Koma "&
> > > VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),1,1),Angka,2,0)&
> > > VLOOKUP(--MID(TEXT((ROUND(G14,2)-INT(G14))*100,"00"),2,1),Angka,2,0))
> > >
> > > Rumus ini perlu bantuan sebuah tabel-Range yg diberinama ANGKA (lihat
> > > range V3:W12 pada sheet 'Rekap'
> > > dan lihat [ Name Manager.]
> > >
> > >
> >
>
>
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.

Bls: [belajar-excel] Selisih Menit DTPicker tidak bulat

Posted by: "muja" mail4muja@yahoo.co.id   mail4muja

Mon Dec 12, 2011 9:17 pm (PST)

Terima kasih Om Seno it's work... Oh ya untuk Mr Kid,  sriptnya masih error

saat copas script :
------------------
Compile Error :

Expected : List separator

-------------------

Saat di run

------------------
Compile Error :

Syntax error
-------------------

Highlight --->>   if instr("012345789", mid$( steks , lchar , 1) <>0 then

Mohon koreksinya Mr kid.... (kalo perlu sekalian lampirkan filenya) :D. tks

Mas Muja
=========

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Dikirim: Jumat, 9 Desember 2011 20:36
 
Pinjam script dari posting pak Seno,
Mungkin alternatif ini bisa digunakan (semoga gak ada errornya)

Private Sub DTPicker2_Change()   IF DTPicker1.Value then
       IF DTPicker2.Value then
           'durasi respon layanan(dalam menit)
           TextBox2.Value = DateDiff( "n" , DTPicker1.Value , DTPicker2.Value )
       endif
   endif
End Sub

Private Sub DTPicker3_Change()   IF DTPicker1.Value then
       IF DTPicker3.Value then
           'durasi penanganan (dalam menit)
           TextBox3.Value = DateDiff( "n" , DTPicker1.Value , DTPicker3.Value )
  
           'penanganan (jam) x jumlah terganggu

           TextBox4 = DateDiff( "h" , DTPicker1.Value , DTPicker3.Value )   *   ( 0 & trim$(TextBox1.Value) )
       endif
   endif
End Sub

Private Sub UserForm_Initialize()    'biarkan kosong saja
End Sub

Karena textbox1 harus berisi angka positif, maka event change dari textbox1 bisa disusun :
private sub TextBox1_Change()
    dim lChar as long
    dim sTeks as string

    'validasi input
    lchar=1
    steks=textbox1.text
    do while lchar<=len(steks)
           if instr("012345789", mid$( steks , lchar , 1) <>0 then
                  lchar=lchar+1
           else
                  steks= replace$( steks , mid$( steks , lchar , 1)   ,  vbnullstring  )
           endif
    loop
   
    'perbarui isi textbox1
    application.enableevents=false
    textbox1.text=steks
    application.enableevents=true

    'karena pengubahan nilai textbox1 mempengaruhi hasil di textbox4 akibat proses di  DTPicker3_Change
    'jalankan prosedur DTPicker3_Change
    DTPicker3_Change
end sub

Wassalamualaikum Wr. Wb.
Kid.

2011/12/9 o' Seno <ontoseno84@gmail.com>
> 
>textbox itu bukan cell
>apapun yg ditampilkan di situ (walau pun ex data datetime ) tetap menjadi data text
>maka kalau mau di aritmatikkan harus diurus dulu konversinya
>
>Private Sub DTPicker2_Change()
>   Dim status1 As Date
>   If DTPicker2.Enabled Then
>      'durasi respon layanan
>      status1 = DTPicker2.Value - DTPicker1.Value
>      TextBox2.Value = Format(status1 * 60 * 24, "0")
>   End If
>End Sub
>
>Private Sub DTPicker3_Change()
>   Dim status2 As Date, status3 As Date
>   If DTPicker1.Enabled And DTPicker3.Enabled Then
>      ' durasi penanganan
>      status2 = DTPicker3.Value - DTPicker1.Value
>      TextBox3.Value = Format(status2 * 60 * 24, "0")
>   End If
>   status3 = (CDate(TextBox3.Value) * CLng(TextBox1.Value)) / 60
>   TextBox4 = Format(CDbl(status3), "#,##0.00")
>End Sub
>
>Private Sub UserForm_Initialize()
>   ' jumlah pelanggan diberi nilai awal 1
>   ' untuk menjcegah error bila lupa mengisi
>   ' tapi sudah mengisi dtpickers
>   TextBox1 = 1
>End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3b.

Re: Selisih Menit DTPicker tidak bulat

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Dec 12, 2011 11:42 pm (PST)

Ubah yang di-debug menjadi :
dari
if instr("012345789", mid$( steks , lchar , 1) <>0 then

menjadi :
if instr("012345789", mid$( steks , lchar , 1) *)* <>0 then

Kid.

2011/12/13 muja <mail4muja@yahoo.co.id>

> **
>
>
> Terima kasih Om Seno it's work... Oh ya untuk Mr Kid, sriptnya masih error
>
> saat copas script :
> ------------------
> Compile Error :
>
> Expected : List separator
>
> -------------------
>
> Saat di run
>
> ------------------
> Compile Error :
>
> Syntax error
> -------------------
>
> Highlight --->> if instr("012345789", mid$( steks , lchar , 1) <>0 then
>
> Mohon koreksinya Mr kid.... (kalo perlu sekalian lampirkan filenya) :D. tks
>
> Mas Muja
> =========
>
> ________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com>
> Dikirim: Jumat, 9 Desember 2011 20:36
>
>
> Pinjam script dari posting pak Seno,
> Mungkin alternatif ini bisa digunakan (semoga gak ada errornya)
>
> Private Sub DTPicker2_Change() IF DTPicker1.Value then
> IF DTPicker2.Value then
> 'durasi respon layanan(dalam menit)
>
> TextBox2.Value = DateDiff( "n" , DTPicker1.Value ,
> DTPicker2.Value )
> endif
> endif
> End Sub
>
> Private Sub DTPicker3_Change() IF DTPicker1.Value then
> IF DTPicker3.Value then
> 'durasi penanganan (dalam menit)
> TextBox3.Value = DateDiff( "n" , DTPicker1.Value ,
> DTPicker3.Value )
>
> 'penanganan (jam) x jumlah terganggu
>
> TextBox4 = DateDiff( "h" , DTPicker1.Value , DTPicker3.Value
> ) * ( 0 & trim$(TextBox1.Value) )
> endif
> endif
> End Sub
>
> Private Sub UserForm_Initialize() 'biarkan kosong saja
> End Sub
>
> Karena textbox1 harus berisi angka positif, maka event change dari
> textbox1 bisa disusun :
> private sub TextBox1_Change()
> dim lChar as long
> dim sTeks as string
>
> 'validasi input
> lchar=1
> steks=textbox1.text
> do while lchar<=len(steks)
> if instr("012345789", mid$( steks , lchar , 1) <>0 then
> lchar=lchar+1
> else
> steks= replace$( steks , mid$( steks , lchar , 1) ,
> vbnullstring )
> endif
> loop
>
> 'perbarui isi textbox1
> application.enableevents=false
> textbox1.text=steks
> application.enableevents=true
>
> 'karena pengubahan nilai textbox1 mempengaruhi hasil di textbox4
> akibat proses di DTPicker3_Change
> 'jalankan prosedur DTPicker3_Change
> DTPicker3_Change
> end sub
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/12/9 o' Seno <ontoseno84@gmail.com>
> >
> >textbox itu bukan cell
> >apapun yg ditampilkan di situ (walau pun ex data datetime ) tetap menjadi
> data text
> >maka kalau mau di aritmatikkan harus diurus dulu konversinya
> >
> >Private Sub DTPicker2_Change()
> > Dim status1 As Date
> > If DTPicker2.Enabled Then
> > 'durasi respon layanan
> > status1 = DTPicker2.Value - DTPicker1.Value
> > TextBox2.Value = Format(status1 * 60 * 24, "0")
> > End If
> >End Sub
> >
> >Private Sub DTPicker3_Change()
> > Dim status2 As Date, status3 As Date
> > If DTPicker1.Enabled And DTPicker3.Enabled Then
> > ' durasi penanganan
> > status2 = DTPicker3.Value - DTPicker1.Value
> > TextBox3.Value = Format(status2 * 60 * 24, "0")
> > End If
> > status3 = (CDate(TextBox3.Value) * CLng(TextBox1.Value)) / 60
> > TextBox4 = Format(CDbl(status3), "#,##0.00")
> >End Sub
> >
> >Private Sub UserForm_Initialize()
> > ' jumlah pelanggan diberi nilai awal 1
> > ' untuk menjcegah error bila lupa mengisi
> > ' tapi sudah mengisi dtpickers
> > TextBox1 = 1
> >End Sub
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3c.

Re: Selisih Menit DTPicker tidak bulat

Posted by: "mail4muja@yahoo.co.id" mail4muja@yahoo.co.id   mail4muja

Tue Dec 13, 2011 12:49 am (PST)

. I ). ( I
/ I I. \
/__',_ ,'___\
/( __ _)\ /(_ __ )\
I ( __ _ )) ((__ __ )I
I ( __ _) ) ( (_ __ _)I
\(___ _)/ \(___ _)/
\ =D /

_/ \_‎​.

Setelah dioprek2 dikit Scriptnya Mr Kid & om Seno di gabung jd sesuai dg yang ane inginkan. Tks banyak

Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Dec 2011 14:39:50
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Selisih Menit DTPicker tidak bulat

Ubah yang di-debug menjadi :
dari
if instr("012345789", mid$( steks , lchar , 1) <>0 then

menjadi :
if instr("012345789", mid$( steks , lchar , 1) *)* <>0 then

Kid.

2011/12/13 muja <mail4muja@yahoo.co.id>

> **
>
>
> Terima kasih Om Seno it's work... Oh ya untuk Mr Kid, sriptnya masih error
>
> saat copas script :
> ------------------
> Compile Error :
>
> Expected : List separator
>
> -------------------
>
> Saat di run
>
> ------------------
> Compile Error :
>
> Syntax error
> -------------------
>
> Highlight --->> if instr("012345789", mid$( steks , lchar , 1) <>0 then
>
> Mohon koreksinya Mr kid.... (kalo perlu sekalian lampirkan filenya) :D. tks
>
> Mas Muja
> =========
>
> ________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com>
> Dikirim: Jumat, 9 Desember 2011 20:36
>
>
> Pinjam script dari posting pak Seno,
> Mungkin alternatif ini bisa digunakan (semoga gak ada errornya)
>
> Private Sub DTPicker2_Change() IF DTPicker1.Value then
> IF DTPicker2.Value then
> 'durasi respon layanan(dalam menit)
>
> TextBox2.Value = DateDiff( "n" , DTPicker1.Value ,
> DTPicker2.Value )
> endif
> endif
> End Sub
>
> Private Sub DTPicker3_Change() IF DTPicker1.Value then
> IF DTPicker3.Value then
> 'durasi penanganan (dalam menit)
> TextBox3.Value = DateDiff( "n" , DTPicker1.Value ,
> DTPicker3.Value )
>
> 'penanganan (jam) x jumlah terganggu
>
> TextBox4 = DateDiff( "h" , DTPicker1.Value , DTPicker3.Value
> ) * ( 0 & trim$(TextBox1.Value) )
> endif
> endif
> End Sub
>
> Private Sub UserForm_Initialize() 'biarkan kosong saja
> End Sub
>
> Karena textbox1 harus berisi angka positif, maka event change dari
> textbox1 bisa disusun :
> private sub TextBox1_Change()
> dim lChar as long
> dim sTeks as string
>
> 'validasi input
> lchar=1
> steks=textbox1.text
> do while lchar<=len(steks)
> if instr("012345789", mid$( steks , lchar , 1) <>0 then
> lchar=lchar+1
> else
> steks= replace$( steks , mid$( steks , lchar , 1) ,
> vbnullstring )
> endif
> loop
>
> 'perbarui isi textbox1
> application.enableevents=false
> textbox1.text=steks
> application.enableevents=true
>
> 'karena pengubahan nilai textbox1 mempengaruhi hasil di textbox4
> akibat proses di DTPicker3_Change
> 'jalankan prosedur DTPicker3_Change
> DTPicker3_Change
> end sub
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/12/9 o' Seno <ontoseno84@gmail.com>
> >
> >textbox itu bukan cell
> >apapun yg ditampilkan di situ (walau pun ex data datetime ) tetap menjadi
> data text
> >maka kalau mau di aritmatikkan harus diurus dulu konversinya
> >
> >Private Sub DTPicker2_Change()
> > Dim status1 As Date
> > If DTPicker2.Enabled Then
> > 'durasi respon layanan
> > status1 = DTPicker2.Value - DTPicker1.Value
> > TextBox2.Value = Format(status1 * 60 * 24, "0")
> > End If
> >End Sub
> >
> >Private Sub DTPicker3_Change()
> > Dim status2 As Date, status3 As Date
> > If DTPicker1.Enabled And DTPicker3.Enabled Then
> > ' durasi penanganan
> > status2 = DTPicker3.Value - DTPicker1.Value
> > TextBox3.Value = Format(status2 * 60 * 24, "0")
> > End If
> > status3 = (CDate(TextBox3.Value) * CLng(TextBox1.Value)) / 60
> > TextBox4 = Format(CDbl(status3), "#,##0.00")
> >End Sub
> >
> >Private Sub UserForm_Initialize()
> > ' jumlah pelanggan diberi nilai awal 1
> > ' untuk menjcegah error bila lupa mengisi
> > ' tapi sudah mengisi dtpickers
> > TextBox1 = 1
> >End Sub
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

4a.

Tanya cara ngeprint

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Mon Dec 12, 2011 9:17 pm (PST)

Selamat siang,
Rekan Excel,
Tanya lgi, mungkin ini uda di tanyakan sama rekan yang lain sebelum saya gabung milis,
Cmdbtn saya saya kasih kode : me.printform, maka akan mencetak userform tempat cmdbtn dengan settingan printer default, bagaimana caranya agar ketika cmdbtn di klik itu muncul pilihan dulu, mau mencetak menggunakan printer yang mana?
Terimakasih,

Asror,

Cmdbtn : CommondButton

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4b.

Re: Tanya cara ngeprint

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 12, 2011 9:33 pm (PST)

mungkin perlu dicoba

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm
End Sub

2011/12/13 Asror Al-Aliif's <asrorcakep@yahoo.com>
Selamat siang,
Rekan Excel,
Tanya lgi, mungkin ini uda di tanyakan sama rekan yang lain sebelum saya
gabung milis,
Cmdbtn saya saya kasih kode : me.printform, maka akan mencetak userform
tempat cmdbtn dengan settingan printer default, bagaimana caranya agar
ketika cmdbtn di klik itu muncul pilihan dulu, mau mencetak menggunakan
printer yang mana?
Terimakasih,
Asror,

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4c.

Re: Tanya cara ngeprint

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Mon Dec 12, 2011 10:35 pm (PST)

Terimakasih mbak haps,..
Jempolllll,...
:D

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Dec 2011 12:32:44
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya cara ngeprint

mungkin perlu dicoba

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm
End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4d.

Re: Tanya cara ngeprint

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Mon Dec 12, 2011 11:33 pm (PST)

Rekan BeExcel,
Ternyata belum bisa nee solusi dari mbak haps,
Walaupun sudah pilih printernya, tapi tetep ngeprint menggunakan printer default,
Mohon bantuannya,
Terimakasih,...


-----Original Message-----
From: "Asror Al-Aliif's" <asrorcakep@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Dec 2011 06:14:57
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya cara ngeprint

Terimakasih mbak haps,..
Jempolllll,...
:D

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 13 Dec 2011 12:32:44
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya cara ngeprint

mungkin perlu dicoba

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm
End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4e.

Re: Tanya cara ngeprint

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Tue Dec 13, 2011 12:01 am (PST)

lha itu kan sekedar pemancing / penunjuk jalan memang tidak dibuat tuntas
agar anda masih kebagian sisa untk difikirkan & dicari caranya
( tidak menjadi anak-anak terus, tetapi cepat besar )

ADA cara untuk men set printer melalui pemrograman VBA
it is a challenge., you now ? ( nooooo !)

2011/12/13 Asror Al-Aliif's <asrorcakep@yahoo.com>

> **
>
> Rekan BeExcel,
> Ternyata belum bisa nee solusi dari mbak haps,
> Walaupun sudah pilih printernya, tapi tetep ngeprint menggunakan printer
> default,
> Mohon bantuannya,
> Terimakasih,...
>

> From: "Asror Al-Aliif's" <asrorcakep@yahoo.com>
> Date: Tue, 13 Dec 2011 06:14:57 +0000
> Terimakasih mbak haps,..
> Jempolllll,...
> :D
>
> -----Original Message-----
> From: Haps <hapsari.stlizbeth@gmail.com>
> Date: Tue, 13 Dec 2011 12:32:44
> mungkin perlu dicoba
> Private Sub CommandButton1_Click()
> Application.Dialogs(xlDialogPrinterSetup).Show
> Me.PrintForm
> End Sub

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

5a.

Terima kasih

Posted by: "izmaul" mizma2005@yahoo.com   mizma2005

Tue Dec 13, 2011 12:49 am (PST)

Assalamu'alaikum wr. wb.
Selamat Sore dan salam sejahtera untuk kita semua.

Saya mengucapkan terima kasih karena sudah diijinkan untuk
bergabung di milis ini.

Saya akan memanfaatkan milis ini dengan sebaik-baiknya.
Saya juga sangat mengharapkan bantuan rekan-rekan moderator
untuk membantu permasalahan yang kelak saya hadapi seputar excel.

Akhirnya saya ucapkan selamat bertugas bagi rekan-rekan moderator
dan salam kenal buat seluruh anggota milis ini.

Salam,

Moh. Izmaul Haqqi, STp

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

5b.

Re: Terima kasih

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Tue Dec 13, 2011 12:56 am (PST)

Waalaikumussalam Wr. Wb.

Selamat Sore, Selamat Datang dan Selamat Bergabung dengan BeExcel.

Salam kenal juga buat Bapak Moh. Izmaul.
Semoga keikutsertaan Bapak dalam milis ini akan menambah semarak semangat
belajar dan berbagi tentang Excel.

Mohon disempatkan untuk membaca beberapa butir peraturan milis agar
tercipta suasana yang kondusif dalam komunitas tercinta ini.

Semoga rahmat manfaat selalu tercurahkan kepada kita semua.

Wassalamualaikum Wr. Wb.
Moderator Belajar Excel

2011/12/13 izmaul <mizma2005@yahoo.com>

> **
>
>
> Assalamu'alaikum wr. wb.
> Selamat Sore dan salam sejahtera untuk kita semua.
>
> Saya mengucapkan terima kasih karena sudah diijinkan untuk
> bergabung di milis ini.
>
> Saya akan memanfaatkan milis ini dengan sebaik-baiknya.
> Saya juga sangat mengharapkan bantuan rekan-rekan moderator
> untuk membantu permasalahan yang kelak saya hadapi seputar excel.
>
> Akhirnya saya ucapkan selamat bertugas bagi rekan-rekan moderator
> dan salam kenal buat seluruh anggota milis ini.
>
> Salam,
>
> Moh. Izmaul Haqqi, STp
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  21
  New Members

Visit Your Group

Y! Groups blog

The place to go

to stay informed

on Groups news!

Yahoo! Groups

Small Business Group

Own a business?

Connect with others.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe