Selamat Malam Pak Ari,
Script berikut untuk menggunakan DatePicker bernama DTPicker1.
Letakkan pada object Sheet yang memiliki object DTPicker1
Private Sub DTPicker1_Change()
ActiveCell.Value = CDate(DTPicker1.Value)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column = 2 Then
If .Row > 1 Then
If LenB(.Offset(-1).Value) <> 0 Then
If LenB(.Value) <> 0 Then
DTPicker1.Value = .Value
End If
DTPicker1.Left = .Left + 1
DTPicker1.Top = .Top + 1
DTPicker1.Visible = True
ActiveWindow.ScrollRow = .Row + 100
ActiveWindow.ScrollRow = WorksheetFunction.Max(1,
.Row - 10)
Exit Sub
End If
End If
End If
End If
End With
Sheet1.DTPicker1.Visible = False
End Sub
Wassalam,
Kid.
On Fri, Mar 9, 2012 at 19:29, Ari A <[email protected]> wrote:
> **
>
>
> Selamat malam,
>
> Mohon bantuan masta excel vba disini. Mohon maaf sekali kalo repost.
>
> Saya sedang membuat suatu tabel yang salah satu kolomnya berisi tanggal.
> saya sudah mencoba menggunakan Calendar COntrol dan Date picker dari
> 'developer toolsnya Excel' tapi karena gak begitu ngerti koding jadi gak
> bisa diterusin.
>
> mohon bantuannya ya biar semua cell di kolom B bisa otomatis ngeluarain
> tampilan tanggal saat kita akan masukin data.
>
> Terima kasih,
>
> Ari
>
>
>
>
>
