Rabu, 26 Juni 2013

[belajar-excel] Digest Number 2383

Milis Belajar Microsoft Excel

2 New Messages

Digest #2383
1a
Re: VBA untuk Tanggal by "Ahmad Adriansyah"
1b
Re: VBA untuk Tanggal by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Jun 26, 2013 3:24 am (PDT) . Posted by:

"Ahmad Adriansyah"

He..he...
Maklum nih, newbie Om Kid... J
Untuk sTglInput memang tidak dideklarasikan variable-nya Om, sehingga saya hanya menggunakan variable TbStartR sebagai value pada textbox : "TbStartR";.

Masalahnya adalah, ketika saya ketikkan :

1. Di modulenya Om Kid, txtTglStart.text = Format( è maka ketika itu muncul help pada VBA, setelah mengetikkan tanda buka kurung "(".

2. Di modulenya saya, TbStartR.text = Format( è Tidak muncul apa2 setelah mengetikkan tanda buka kurung "(".

Nah, masalahnya apakah? Apakah versi excel saya yang perlu di upgrade atau di update? Mohon maaf jadi ngerepotkan he..he...

Rgds,

AA

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 15:06
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

hik..hik..hiks.... :(
kok belum bisa ya...
Bukannya yang diminta ganti itu cuma bunyi sTglInput aja ya, dan bukan semua barisnya.... :(
Baiklah, kita mulai dari awal.
Ada script bunyinya :
Private Sub TbStartR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.TbStartR.Value) > 0 Then
If Not IsDate(Me.TbStartR.Value) Then
Cancel = True
LblInfo.Caption = "Inputan tidak mencerminkan tanggal yang benar!" & vbCrLf & "Gunakan format : YYYY/MM/DD"
Exit Sub
End If
If Me.TbStartR.Value < TbIn.Value Then
Cancel = True
LblInfo.Caption = "Tanggal start repair tidak boleh lebih kecil dari Tanggal In!"
Exit Sub
End If
End If
LblInfo.Caption = vbNullString
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")
End Sub

Tolong dijawab ya... (siapa saja yang sedang belajar VBA boleh jawab deh)
1. Tolong cari tulisan sTglInput selain yang dimerah. Ada berapakah ?
2. Apa maksud sTglInput di baris yang dimerah ?

ditunggu ya...
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>

Belum bisa Om Kid,
Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak keluar. Setelah saya ganti menjadi Replace$(TbStartR.Text,"/","-") muncul pesan sbb :

[cid:image001.jpg@01CE7291.94D4C700]

Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai dengan yang diinput oleh user (meskipun pada labelnya telah ditulis "Gunakan Format : "YYYY-MM-DD") :) ...

Rgds,

AA

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 14:47

To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

Coba ganti
sTglInput
menjadi :
Tb.StartR.Text
Kalau ndak bisa, ganti
sTglInput
menjadi
Replace$( Tb.StartR.Text , "/" , "-" )

Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>

Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image002.jpg@01CE7291.94D4C700]

Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :

[cid:image003.jpg@01CE7291.94D4C700]

Kenapa ya Om Kid?

Rgds,

AA

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 14:32

To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

xixixixi... sTglInput
typo error karena belum ada deklarsi variabelnya kali ya

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")

Wed Jun 26, 2013 3:38 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

oh... gini aja deh

ke VBE -> menu Tools -> Options -> tab Editor -> centang semuanya -> OK

Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>

> **
>
>
> He..he…****
>
> Maklum nih, newbie Om Kid… J****
>
> Untuk *sTglInput** *memang tidak dideklarasikan variable-nya Om, sehingga
> saya hanya menggunakan variable *TbStartR* sebagai value pada textbox : "*
> TbStartR*".****
>
> ** **
>
> Masalahnya adalah, ketika saya ketikkan :****
>
> **1. **Di modulenya Om Kid, *txtTglStart.text** = Format(* è maka
> ketika itu muncul help pada VBA, setelah mengetikkan tanda buka kurung"(".
> ****
>
> **2. **Di modulenya saya, *TbStartR.text** = Format(** *è Tidak
> muncul apa2 setelah mengetikkan tanda buka kurung "(".****
>
> ** **
>
> Nah, masalahnya apakah? Apakah versi excel saya yang perlu di upgrade atau
> di update? Mohon maaf jadi ngerepotkan he..he…****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 15:06
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> hik..hik..hiks.... :(****
>
> kok belum bisa ya...****
>
> Bukannya yang diminta ganti itu cuma bunyi sTglInput aja ya, dan bukan
> semua barisnya.... :(****
>
> Baiklah, kita mulai dari awal.****
>
> Ada script bunyinya :****
>
> Private Sub TbStartR_Exit(ByVal Cancel As MSForms.ReturnBoolean)****
>
> If Len(Me.TbStartR.Value) > 0 Then****
>
> If Not IsDate(Me.TbStartR.Value) Then****
>
> Cancel = True****
>
> LblInfo.Caption = "Inputan tidak mencerminkan tanggal yang benar!"
> & vbCrLf & "Gunakan format : YYYY/MM/DD"****
>
> Exit Sub****
>
> End If****
>
> If Me.TbStartR.Value < TbIn.Value Then****
>
> Cancel = True****
>
> LblInfo.Caption = "Tanggal start repair tidak boleh lebih kecil
> dari Tanggal In!"****
>
> Exit Sub****
>
> End If****
>
> End If****
>
> LblInfo.Caption = vbNullString****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
> End Sub****
>
> ** **
>
> Tolong dijawab ya... (siapa saja yang sedang belajar VBA boleh jawab deh)*
> ***
>
> 1. Tolong cari tulisan sTglInput selain yang dimerah. Ada berapakah ?****
>
> 2. Apa maksud sTglInput di baris yang dimerah ?****
>
> ** **
>
> ditunggu ya...****
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>****
>
> ** **
>
> Belum bisa Om Kid,****
>
> Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak
> keluar. Setelah saya ganti menjadi Replace$(TbStartR.Text,"/","-") muncul
> pesan sbb :****
>
> ****
>
> ****
>
> ****
>
> Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai
> dengan yang diinput oleh user (meskipun pada labelnya telah ditulis
> "Gunakan Format : "YYYY-MM-DD") J …****
>
> ****
>
> Rgds,****
>
> ****
>
> AA****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 14:47****
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ****
>
> ****
>
> Coba ganti
> *sTglInput*****
>
> menjadi :
> *Tb.StartR.Text *****
>
> Kalau ndak bisa, ganti
> *sTglInput*****
>
> menjadi ****
>
> Replace$( *Tb.StartR.Text *, "/" , "-" )****
>
> ****
>
> Wassalam,
> Kid.****
>
> ****
>
> ****
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>****
>
> ****
>
> Masalahnya sepertinya di *format** *kayanya. Soalnya di module VBA saya
> seperti ini :****
>
> ****
>
> ****
>
> Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :****
>
> ****
>
> ****
>
> ****
>
> Kenapa ya Om Kid?****
>
> ****
>
> Rgds,****
>
> ****
>
> AA****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 14:32****
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ****
>
> ****
>
> xixixixi... *sTglInput*****
>
> typo error karena belum ada deklarsi variabelnya kali ya****
>
> ****
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 06.32

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)