Quantcast

[belajar-excel] VBA untuk Tanggal

classic Classic list List threaded Threaded
17 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow"
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA

Book2.xlsx (10K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
Coba file terlampir.

Wassalam,
Kid.



2013/6/25 Ahmad Adriansyah <[hidden email]>

> **
>
>
>  Dear Rekan2 Be-Excel,****
>
> Klik kanan dan pilih "FormShow"
>                 ****
>
> 1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai padatextbox1 (
> harus data tanggal)
> ****
>
> 2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)
>
> ****
>
>
> ****
>
> Problem :
> ****
>
> 1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh
> pada bulan dan tahun.
> ****
>
> Contoh :
> ****
>
> Textbox1 diisi : 13/2/13
> ****
>
> Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak
> jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih
> kecil karena dia hanya membaca tanggal)                         ****
>
> 2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jikauser
> mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada
> tanggal 31 Juni.                                       ****
>
>
> ****
>
> Bagaimana solusinya?****
>
> ** **
>
> Regards,****
>
> ** **
>
> AA****
>
>  
>

vba_textbox_with_datetime_input.xlsm (26K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Terima kasih Om Kid,
Sesuai dengan harapan, namun Om ada sedikit problem yaitu :

1.       Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan data text, bukan data tanggal.

2.       Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal ini menimbulkan End Date < Start Date.

Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.

Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet menghasilkan "datevalue" :

-----------------------------------------------------------------------------------------------------------------
Private Sub cmdMisal_Click()
Dim LastRow As Range, Respons, Ctrl As Control
   On Error Resume Next
   Set LastRow = Sheet1.Range("C1000").End(xlUp)
   With LastRow
      .Cells(2, 0) = txtTglStart.Value:          .Cells(2, 1) = txtTglEnd.Value:
 End With
   Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad Entry Form")
End Sub
-----------------------------------------------------------------------------------------------------------------


Regards,
AA

From: [hidden email] [mailto:[hidden email]] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 6:45
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


Coba file terlampir.
Wassalam,
Kid.

2013/6/25 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow"
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA



image003.jpg (494 bytes) Download Attachment
image004.jpg (456 bytes) Download Attachment
vba_textbox_with_datetime_input (version 1).xlsb (30K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh
menafsirkan seenaknya ?
gak fair kali ya...

kira-kira, kalau saya input :
10/11/12
Anda akan menduga yang saya maksud tanggal berapa ?

Wassalam,
Kid.



2013/6/26 Ahmad Adriansyah <[hidden email]>

>  Terima kasih Om Kid,****
>
> Sesuai dengan harapan, namun Om ada sedikit problem yaitu :****
>
> **1.       **Misalnya kita input 2013-04-03 maka data yang dihasilkan
> sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input
> 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput
> menghasilkan data text, bukan data tanggal. ****
>
> **2.       **Misalnya kita input 12/4/3, yang dihasilkan adalah2003-04-12,
> kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03.
> Hal ini menimbulkan End Date < Start Date.****
>
> ** **
>
> Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya2012-03-04,
> atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret2012),
> bagaimana ya Om solusinya. Terima kasih.****
>
> ** **
>
> Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet
> menghasilkan “datevalue” :****
>
> ** **
>
>
> -----------------------------------------------------------------------------------------------------------------
> ****
>
> Private Sub cmdMisal_Click()****
>
> Dim LastRow As Range, Respons, Ctrl As Control****
>
>    On Error Resume Next****
>
>    Set LastRow = Sheet1.Range("C1000").End(xlUp)****
>
>    With LastRow****
>
>       .Cells(2, 0) = txtTglStart.*Value*:          .Cells(2, 1) =
> txtTglEnd.*Value*:****
>
>  End With****
>
>    Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad
> Entry Form")****
>
> End Sub****
>
>
> -----------------------------------------------------------------------------------------------------------------
> ****
>
> ** **
>
> ** **
>
> Regards,****
>
> AA****
>
> ** **
>
> *From:* [hidden email] [mailto:
> [hidden email]] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 6:45
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
>   ** **
>
> Coba file terlampir.****
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> 2013/6/25 Ahmad Adriansyah <[hidden email]>****
>
>   ** **
>
> Dear Rekan2 Be-Excel,****
>
> Klik kanan dan pilih
> "FormShow"
>                 ****
>
> 1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada
> textbox1 (harus data tanggal)
>
> ****
>
> 2. Text box harus diisi dengan data tanggal minimal
> (dd/mm/yy)
>
> ****
>
>
> ****
>
> Problem
> :
> ****
>
> 1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh
> pada bulan dan tahun.
>
> ****
>
> Contoh
> :
> ****
>
> Textbox1 diisi :
> 13/2/13
> ****
>
> Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak
> jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih
> kecil karena dia hanya membaca tanggal)                         ****
>
> 2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika
> user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak
> ada tanggal 31 Juni.                                       ****
>
>
> ****
>
> Bagaimana solusinya?****
>
>  ****
>
> Regards,****
>
>  ****
>
> AA****
>
> ** **
>
> ****
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
He..he... iya juga ya Om Kid,
*Uhm* saya menafsirkan 10 November 2012 (Hari Pahlawan) he..he..

Rgds,
AA

From: [hidden email] [mailto:[hidden email]] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 8:41
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh menafsirkan seenaknya ?
gak fair kali ya...
kira-kira, kalau saya input :
10/11/12
Anda akan menduga yang saya maksud tanggal berapa ?
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>
Terima kasih Om Kid,
Sesuai dengan harapan, namun Om ada sedikit problem yaitu :

1.       Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan data text, bukan data tanggal.

2.       Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal ini menimbulkan End Date < Start Date.

Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.

Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet menghasilkan "datevalue" :

-----------------------------------------------------------------------------------------------------------------
Private Sub cmdMisal_Click()
Dim LastRow As Range, Respons, Ctrl As Control
   On Error Resume Next
   Set LastRow = Sheet1.Range("C1000").End(xlUp)
   With LastRow
      .Cells(2, 0) = txtTglStart.Value:          .Cells(2, 1) = txtTglEnd.Value:
 End With
   Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad Entry Form")
End Sub
-----------------------------------------------------------------------------------------------------------------


Regards,
AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 6:45
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


Coba file terlampir.
Wassalam,
Kid.

2013/6/25 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow"
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA




image001.jpg (494 bytes) Download Attachment
image002.jpg (456 bytes) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
xixixixi....
padahal maksud saya tanggal 10 Dzulhijjah 1411 H loh...  :P

Terus gimana nih ?
Akan ditetapkan format inputan tanggal-nya ?
Pilih format inputan yang mana kalau ndak mau format inputan YYYY-MM-DD
yang bersifat universal ?

Wassalam,
Kid.



2013/6/26 Ahmad Adriansyah <[hidden email]>

> **
>
>
>  He..he… iya juga ya Om Kid,****
>
> **Uhm** saya menafsirkan 10 November 2012 (Hari Pahlawan) he..he..****
>
> ** **
>
> Rgds,****
>
> AA****
>
> ** **
>
> *From:* [hidden email] [mailto:
> [hidden email]] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 8:41
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
>  ** **
>
>   ** **
>
> hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh
> menafsirkan seenaknya ?****
>
> gak fair kali ya...****
>
> kira-kira, kalau saya input :
> 10/11/12****
>
> Anda akan menduga yang saya maksud tanggal berapa ?****
>
> Wassalam,
> Kid.****
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <[hidden email]>****
>
> Terima kasih Om Kid,****
>
> Sesuai dengan harapan, namun Om ada sedikit problem yaitu :****
>
> 1.       Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai
> (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka
> akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan
> data text, bukan data tanggal. ****
>
> 2.       Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12,
> kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal
> ini menimbulkan End Date < Start Date.****
>
>  ****
>
> Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya
> 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value
> 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.****
>
>  ****
>
> Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet
> menghasilkan “datevalue” :****
>
>  ****
>
>
> -----------------------------------------------------------------------------------------------------------------
> ****
>
> Private Sub cmdMisal_Click()****
>
> Dim LastRow As Range, Respons, Ctrl As Control****
>
>    On Error Resume Next****
>
>    Set LastRow = Sheet1.Range("C1000").End(xlUp)****
>
>    With LastRow****
>
>       .Cells(2, 0) = txtTglStart.*Value*:          .Cells(2, 1) =
> txtTglEnd.*Value*:****
>
>  End With****
>
>    Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad
> Entry Form")****
>
> End Sub****
>
>
> -----------------------------------------------------------------------------------------------------------------
> ****
>
>  ****
>
>  ****
>
> Regards,****
>
> AA****
>
>  ****
>
> *From:* [hidden email] [mailto:
> [hidden email]] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 6:45
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
>  ****
>
>   ****
>
> Coba file terlampir.****
>
> Wassalam,****
>
> Kid.****
>
>  ****
>
> 2013/6/25 Ahmad Adriansyah <[hidden email]>****
>
>   ****
>
> Dear Rekan2 Be-Excel,****
>
> Klik kanan dan pilih
> "FormShow"
>                 ****
>
> 1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada
> textbox1 (harus data tanggal)
>
> ****
>
> 2. Text box harus diisi dengan data tanggal minimal
> (dd/mm/yy)
>
> ****
>
>
> ****
>
> Problem
> :
> ****
>
> 1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh
> pada bulan dan tahun.
>
> ****
>
> Contoh
> :
> ****
>
> Textbox1 diisi :
> 13/2/13
> ****
>
> Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak
> jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih
> kecil karena dia hanya membaca tanggal)                         ****
>
> 2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika
> user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak
> ada tanggal 31 Juni.                                       ****
>
>
> ****
>
> Bagaimana solusinya?****
>
>  ****
>
> Regards,****
>
>  ****
>
> AA****
>
>  ****
>
> ** **
>
> ****
>
>  
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Saya kesulitan ketika mengaplikasi koding ini di user form saya Om Kid :

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

Error di koding yang saya blok merah. Kenapa ya? Kalau user form Om Kid langsung bisa jalan di excel saya, namun pas saya modif kodingnya jadi error.

Rgds,

AA

From: [hidden email] [mailto:[hidden email]] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 13:12
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


xixixixi....
padahal maksud saya tanggal 10 Dzulhijjah 1411 H loh...  :P
Terus gimana nih ?
Akan ditetapkan format inputan tanggal-nya ?
Pilih format inputan yang mana kalau ndak mau format inputan YYYY-MM-DD yang bersifat universal ?

Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

He..he... iya juga ya Om Kid,
*Uhm* saya menafsirkan 10 November 2012 (Hari Pahlawan) he..he..

Rgds,
AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 8:41

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


hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh menafsirkan seenaknya ?
gak fair kali ya...
kira-kira, kalau saya input :
10/11/12
Anda akan menduga yang saya maksud tanggal berapa ?
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>
Terima kasih Om Kid,
Sesuai dengan harapan, namun Om ada sedikit problem yaitu :

1.       Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan data text, bukan data tanggal.

2.       Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal ini menimbulkan End Date < Start Date.

Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.

Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet menghasilkan "datevalue" :

-----------------------------------------------------------------------------------------------------------------
Private Sub cmdMisal_Click()
Dim LastRow As Range, Respons, Ctrl As Control
   On Error Resume Next
   Set LastRow = Sheet1.Range("C1000").End(xlUp)
   With LastRow
      .Cells(2, 0) = txtTglStart.Value:          .Cells(2, 1) = txtTglEnd.Value:
 End With
   Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad Entry Form")
End Sub
-----------------------------------------------------------------------------------------------------------------


Regards,
AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 6:45
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


Coba file terlampir.
Wassalam,
Kid.

2013/6/25 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow"
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA




Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

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



2013/6/26 Ahmad Adriansyah <[hidden email]>

> *Tb.StartR.Text** = Format$(sTglInput, "YYYY-MM-DD")*
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image001.jpg@01CE727A.D24DE560]

Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :

[cid:image002.jpg@01CE727A.D24DE560]

Kenapa ya Om Kid?

Rgds,

AA

From: [hidden email] [mailto:[hidden email]] 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 <[hidden email]<mailto:[hidden email]>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")



image001.jpg (37K) Download Attachment
image002.jpg (16K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
Coba ganti
*sTglInput*
menjadi :
*Tb.StartR.Text *

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


Wassalam,
Kid.




2013/6/26 Ahmad Adriansyah <[hidden email]>

> **
>
>
>  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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
> ** **
>
> ****
>
>  
>

image002.jpg (16K) Download Attachment
image001.jpg (37K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
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:image003.jpg@01CE727D.60202180]

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: [hidden email] [mailto:[hidden email]] 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 <[hidden email]<mailto:[hidden email]>>

Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image004.jpg@01CE727D.60202180]

Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :

[cid:image005.jpg@01CE727D.60202180]

Kenapa ya Om Kid?

Rgds,

AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")




image003.jpg (44K) Download Attachment
image004.jpg (37K) Download Attachment
image005.jpg (16K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
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 <[hidden email]>

> **
>
>
>  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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
>   ** **
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
>  ****
>
> ** **
>
> ****
>
>  
>

image004.jpg (37K) Download Attachment
image005.jpg (16K) Download Attachment
image003.jpg (44K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

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: [hidden email] [mailto:[hidden email]] 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 <[hidden email]<mailto:[hidden email]>>

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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>

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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")





image001.jpg (44K) Download Attachment
image002.jpg (37K) Download Attachment
image003.jpg (16K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
oh... gini aja deh

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

Wassalam,
Kid.



2013/6/26 Ahmad Adriansyah <[hidden email]>

> **
>
>
>  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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
>   ** **
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
>   ****
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
>  ****
>
>  ****
>
> ** **
>
> ****
>
>  
>

image002.jpg (37K) Download Attachment
image001.jpg (44K) Download Attachment
image003.jpg (16K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Dear Om Kid,
Terima kasih panduannya, Alhamdulillah reportnya udah jadi. He..he...

Om & Para Master VB
Mau nanya lagi nieh, jika kita input pada TextBox1, namun ternyata data tersebut sudah ditemukan di dalam range table pada data excel, maka akan memberikan informasi bahwa "Data sudah ada". Bagaimana ya Om kodingnya.

Saya membuat koding seperti ini, namun error :

----------------------------------------------------------------------------------------------------------------------------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 Dim LastRow2 As Range
 Set LastRow2 = Sheet1.Range("c10").End(xlUp)
 Dim dKey As Range
 Set dKey = Sheets("Data Entry").Range("B2")
 Set dKey = Range(dKey, dKey.End(xlDown))
 dKey.Name = "dKey"
 If TextBox1.Text = dKey Then
 Cancel = True
 MsgBox "Data sudah ada!"
 Exit Sub
 End If
End Sub
----------------------------------------------------------------------------------------------------------------------------

Rgds,
AA

From: [hidden email] [mailto:[hidden email]] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 17:38
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


oh... gini aja deh
ke VBE -> menu Tools -> Options -> tab Editor -> centang semuanya -> OK
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

He..he...
Maklum nih, newbie Om Kid... :)
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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>

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@01CE7407.494736C0]

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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>

Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image002.jpg@01CE7407.494736C0]

Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :

[cid:image003.jpg@01CE7407.494736C0]

Kenapa ya Om Kid?

Rgds,

AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")






image001.jpg (44K) Download Attachment
image002.jpg (37K) Download Attachment
image003.jpg (16K) Download Attachment
Book1.xlsx (14K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] VBA untuk Tanggal

Kid
Administrator
Misal area pencarian di sheet bernama 'data entry' mulai cell B2 sepanjang
data dan kolom A ada isinya. Teks yang dicari ada di textbox1

dim rngData as range, rngCari as range
dim lRows as long , sCari as string

'asumsi, header hanya 1 baris
set rngdata=sheets("data entry").range("a1")
lrec=rngdata.currentregion.rows.count

scari=textbox1.text
if lenb(scari)=0 then
    exit sub
elseif lrec<2 then    'belum ada isi
    'script tulis data disini
    rngdata.offset(lrows,1).value=scari
    msgbox "done.",vbinformation,"Input"
    exit sub
endif

set
rngcari=rngdata.offset(1,1).resize(lrows-1).find(scari,rngdata.offset(0,1).resize(1,1),lookat:=xlwhole)
if rngcari is nothing then
    rngdata.offset(lrows,1).value=scari
    msgbox "done.",vbinformation,"Input"
else
    msgbox "Data sudah ada",vbexclamation,"Input"
endif

Wassalam,
Kid.




2013/6/28 Ahmad Adriansyah <[hidden email]>

>  Dear Om Kid,****
>
> Terima kasih panduannya, Alhamdulillah reportnya udah jadi. He..he…****
>
> ** **
>
> Om & Para Master VB****
>
> Mau nanya lagi nieh, jika kita input pada TextBox1, namun ternyata data
> tersebut sudah ditemukan di dalam range table pada data excel, maka akan
> memberikan informasi bahwa “Data sudah ada”. Bagaimana ya Om kodingnya.***
> *
>
>
> Saya membuat koding seperti ini, namun error :****
>
> ** **
>
>
> ----------------------------------------------------------------------------------------------------------------------------
> ****
>
> Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)****
>
>  Dim LastRow2 As Range****
>
>  Set LastRow2 = Sheet1.Range("c10").End(xlUp)****
>
>  Dim dKey As Range****
>
>  Set dKey = Sheets("Data Entry").Range("B2")****
>
>  Set dKey = Range(dKey, dKey.End(xlDown))****
>
>  dKey.Name = "dKey"****
>
>  If TextBox1.Text = dKey Then****
>
>  Cancel = True****
>
>  MsgBox "Data sudah ada!"****
>
>  Exit Sub****
>
>  End If****
>
> End Sub****
>
>
> ----------------------------------------------------------------------------------------------------------------------------
> ****
>
> ** **
>
> Rgds,****
>
> AA****
>
> ** **
>
> *From:* [hidden email] [mailto:
> [hidden email]] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 17:38
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
>  ** **
>
>   ** **
>
> oh... gini aja deh****
>
> ke VBE -> menu Tools -> Options -> tab Editor -> centang semuanya -> OK***
> *
>
> Wassalam,
> Kid.****
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <[hidden email]>****
>
>   ** **
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
>   ****
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
>   ****
>
> 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:* [hidden email] [mailto:
> [hidden email]] *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 <[hidden email]>****
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")*****
>
>  ****
>
>  ****
>
>  ****
>
> ** **
>
> ****
>

image003.jpg (16K) Download Attachment
image002.jpg (37K) Download Attachment
image001.jpg (44K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] VBA untuk Tanggal

Ahmad Adriansyah
Terima kasih Om Kid atas bantuannya,
Berikut ini koding hasil modifikasi saya :

Private Sub TbInput_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'----------------------------------------------------------------------------------------
'Tidak mau keluar dari TbInput apabila data sudah ada.

    Dim colr As Range
    Set colr = Sheet1.Range("B2")
    Set colr = Range(colr, colr.End(xlDown))
    colr.Name = "Column_Range"
    If WorksheetFunction.CountIf(colr, TbInput) > 0 Then
    Cancel = True
    LblInfo.Caption = "Data yang diinput sudah ada, periksa input!"

'merubah forecolor apabila salah input menjadi merah
    LblInfo.ForeColor = &HFF&
    Exit Sub
    End If
'----------------------------------------------------------------------------------------

Rgds,

AA

From: [hidden email] [mailto:[hidden email]] On Behalf Of Mr. Kid
Sent: 30 Juni 2013 0:41
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal


Misal area pencarian di sheet bernama 'data entry' mulai cell B2 sepanjang data dan kolom A ada isinya. Teks yang dicari ada di textbox1
dim rngData as range, rngCari as range
dim lRows as long , sCari as string

'asumsi, header hanya 1 baris
set rngdata=sheets("data entry").range("a1")
lrec=rngdata.currentregion.rows.count
scari=textbox1.text
if lenb(scari)=0 then
    exit sub
elseif lrec<2 then    'belum ada isi
    'script tulis data disini
    rngdata.offset(lrows,1).value=scari
    msgbox "done.",vbinformation,"Input"
    exit sub
endif
set rngcari=rngdata.offset(1,1).resize(lrows-1).find(scari,rngdata.offset(0,1).resize(1,1),lookat:=xlwhole)
if rngcari is nothing then
    rngdata.offset(lrows,1).value=scari
    msgbox "done.",vbinformation,"Input"
else
    msgbox "Data sudah ada",vbexclamation,"Input"
endif

Wassalam,
Kid.


2013/6/28 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>
Dear Om Kid,
Terima kasih panduannya, Alhamdulillah reportnya udah jadi. He..he...

Om & Para Master VB
Mau nanya lagi nieh, jika kita input pada TextBox1, namun ternyata data tersebut sudah ditemukan di dalam range table pada data excel, maka akan memberikan informasi bahwa "Data sudah ada". Bagaimana ya Om kodingnya.

Saya membuat koding seperti ini, namun error :

----------------------------------------------------------------------------------------------------------------------------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 Dim LastRow2 As Range
 Set LastRow2 = Sheet1.Range("c10").End(xlUp)
 Dim dKey As Range
 Set dKey = Sheets("Data Entry").Range("B2")
 Set dKey = Range(dKey, dKey.End(xlDown))
 dKey.Name = "dKey"
 If TextBox1.Text = dKey Then
 Cancel = True
 MsgBox "Data sudah ada!"
 Exit Sub
 End If
End Sub
----------------------------------------------------------------------------------------------------------------------------

Rgds,
AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 17:38

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


oh... gini aja deh
ke VBE -> menu Tools -> Options -> tab Editor -> centang semuanya -> OK
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <[hidden email]<mailto:[hidden email]>>

He..he...
Maklum nih, newbie Om Kid... :)
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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>

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@01CE765B.18D02A00]

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: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>

Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image002.jpg@01CE765B.18D02A00]

Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :

[cid:image003.jpg@01CE765B.18D02A00]

Kenapa ya Om Kid?

Rgds,

AA

From: [hidden email]<mailto:[hidden email]> [mailto:[hidden email]<mailto:[hidden email]>] 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 <[hidden email]<mailto:[hidden email]>>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")







image001.jpg (44K) Download Attachment
image002.jpg (37K) Download Attachment
image003.jpg (16K) Download Attachment
Loading...