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
