Buat / tanamkan Calendar Control di Sheet1,
lalu property VISIBLE di set FALSE
property LinkedCell = D3

Kemudian di MODULE sheet1, kita buat "beginian"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

niscaya kaleder hanya muncul jika cell D3 diselect


2010/8/30 -zaki- <ant_tr...@yahoo.com>

>
>
> Dear sesepuh excel,
>
> Kalau gk salah dulu pernah ada postingan *"Pengisian tanggal pada range
> perkolom"*.
> Disitu juga terlampir jawaban dari tante Siti, kalender mini dibuat
> berdasarkan kolom yang ditentukan.
>
> Nah, misal saya ingin kalendernya muncul di cell  *D3* aj (yang
> ditentukan),
> selain di kolom *D3*. codingnya gmn yah???
> ada yang bisa bantu
>
> terlampir file jawaban dari tante siti
>
> thanks
>
>
>   
>

Attachment: Calendar khusus D3 (sheet1).xls
Description: MS-Excel spreadsheet

Kirim email ke