Hai Yoni,
Mungkin dengan event selection change milik worksheet
kira-kira isi event tersebut :
if not intersect( target,range("d5:z5")) is nothing then
*EndShow = True*
endif
Kid.
On Tue, Apr 17, 2012 at 09:56, Yoni Wibawa Abdillah
<[email protected]>wrote:
> **
>
>
> Permisi ikut nimbrung bertanya,
> Bagaimana kodenya kalau kursor kita arahkan ke teks jalan (bukan click
> event), teks jalan-nya berhenti?
>
> Terima kasih
>
> --- Pada *Sab, 14/4/12, Harry <[email protected]>* menulis:
>
>
> Dari: Harry <[email protected]>
> Judul: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print
> Kepada: "[email protected]" <[email protected]>
> Tanggal: Sabtu, 14 April, 2012, 5:41 PM
>
>
>
>
> Dear BeExceller,
>
> Mohon info akan 2 pertanyaan saya dengan penjelasan dan informasi sbb:
> Pada salah satu User Form saya menggunakan Text Berkedip sebagaimana rumus
> berikut:
>
> *Option Explicit*
> *Dim EndShow As Boolean*
> * *
> *Private Sub UserForm_Activate()*
> * ' movingForm*
> * Dim u As Long*
> * Do Until Me.Left > 225*
> * Left = Left + 2*
> * Top = Top + 2*
> * For u = 1 To 200000: Next*
> * Loop*
> * Me.Top = 167*
> * TeksJalan*
> *End Sub*
> * *
> *Private Sub TeksJalan()*
> * Dim i As Long*
> * EndShow = False*
> * On Error Resume Next*
> *Ulangi:*
> * If EndShow = True Then Exit Sub*
> * LBL1.Left = LBL1.Left - 2*
> * *
> * With LBLINK*
> * .ForeColor = IIf(.ForeColor = &HFF&, &H4000&, &HFF&)*
> * End With*
> * *
> * With LbLive*
> * .ForeColor = IIf(.ForeColor = &H8080FF, &HE0E0E0, &H8080FF)*
> * End With*
> * *
> * DoEvents*
> * For i = 1 To 15000000: Next*
> * If LBL1.Left + LBL1.Width < 0 Then LBL1.Left = Width*
> * *
> * GoTo Ulangi*
> *End Sub*
> * *
> *Private Sub UserForm_Terminate()*
> * EndShow = True*
> *End Sub*
>
>
> Dari rumus diatas saya mendapatkan Text yang berkedip saling bergantian
> berwarna MERAH dan PUTIH.
> *Pertanyaan saya adalah **Bagaimana caranya atau apa rumusnya jika Text
> berkedip tersebut ingin saya ganti dengan warna MERAH dan BIRU…???*
>
> Masih berkaitan dengan rumus tersebut diatas dan saya tambahkan tombol
> PRINT dengan rumus seperti dibawah ini:
>
> *Private Sub cmdCetak_Click()*
> *Set wsdtbs = Sheets("PRINT")*
> *wsdtbs.PrintOut copies:=1, collate:=True*
> *With Sheets("DAILY OUTPUT")*
> *.Visible = -1: .Activate*
> *End With*
> *Unload Me*
> *ThisWorkbook.Save*
> *End Sub*
>
> Hasilnya saya mengalami kendala atau tombol PRINT tersebut tidak berfungsi
> dengan signal rumus wsdtbs terblock berwarna kuning. Sebaliknya jika
> rumus Text berkedip tersebut saya hapus, tombol PRINT bisa berfungsi
> sebagaimana mestinya.
> Pertanyaan saya adalah bagaimana cara dan rumusnya atau apa yang harus
> diganti jika tombol PRINT tersebut tetap bisa berfungsi tanpa menghapus
> rumus Text berkedip…???
>
> Mohon berkenan informasi dan pencerahannya akan 2 pertanyaan saya tersebut
> diatas.
> Terima kasih atas bekenannya.
>
> Regards,
>
>
> Harry
>
>
>
>
