PJLSN Semua makro akan dijalankan oleh Event-Event (peristiwa yg diderita oleh object)
*EVEN WORKSHEET SELECTION CHANGE* terjadi saat kita memilih cell lain (memindah cell pointer . menselect Range) Apa yg dipiih, oleh excel vba diberi nama Target, target bisa 1 cell tunggal bisa range maka nya perlu dibatasi - yang hanya 1 cell (jika memilih banyak cell makro gak jalan) - yg barisnya lebih dari 1 (hanya jalan jika kita mengklik baris 2 dan dibawah2 nya - yg kolomnya diatas 3 dibawah 7 (artinya harus kolom D / E / F) ketika semua syarat (IF)terpenuhi barulah kalendar (yg semula hidden ditampakkan denan lokasi d sebelah kanan bawah cell Target. *EVENT WORKBOOK ACTIVATE* (danharusnya juga event: Workbook Open) - dimanfaatkan untuk mulai menyembunyan Calendar *EVENT CALENDAR DI CEKLIK* - dimanfaatkan untuk mengisikan Value milik Calendar (tgl yg sedang diselect) ke Cell Target *EVENT CALENDAR DI DOBEL-CEKLIK* ( dan juga even Worksheet Before DoubleCLick) - dimanfaatkan untuk menegHIDE Calendar ~ siti 2011/7/18 STDEV(i) <[email protected]> > ya paling tidak *jangan datang sebgai pendekar bertangan kosong* lah yauw > > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Cells.Count = 1 Then > If Target.Row > 1 Then > If Target.Column > 3 And Target.Column < 7 Then > Calendar1.Top = Target.Top + 20 > Calendar1.Left = Target.Left + Target.Width + 20 > Calendar1.Visible = True > Set vTarget = Target > End If > End If > End If > End Sub > > Private Sub Calendar1_Click() > vTarget = Calendar1.Value > End Sub > > Private Sub Calendar1_DblClick() > Calendar1.Visible = False > End Sub > > Private Sub Worksheet_Activate() > Calendar1.Visible = False > End Sub > >
