Lampeggio cella |
|
| Storico
discussioni |
|
| Lampeggio cella di
Stefano |
La seguente procedura pone in A1 la scritta
“Flashing cell” e poi la fa
lampeggiare.
Come dovrei
modificarla se desidero che lampeggi il contenuto di A1
qualunque esso sia?
Sub lampeggio()
Const Texte As
String = "Flashing cell"
Dim i As Integer
For i = 1 To 10
Cells(1, 1) = Texte
Call Flash_Sequence
Next i
End
Sub
Private Sub Flash_Sequence()
Dim n As Byte, Start As
Variant
For n = 1 To 10
Start = Timer
Do While Timer
< Start + 1 / 100
Loop
If n Mod 5 = 0 Then Cells(1, 1) =
""
Next n
End Sub
|
|
| di Roberto |
Ciao Stefano
Prova in questa maniera:
Sub
lampeggio()
a = Range("a1")
Dim i As Integer
For i = 1
To 10
Cells(1, 1) = a
Call Flash_Sequence
Next i
End
Sub
Private Sub Flash_Sequence()
Dim n As Byte, Start As
Variant
For n = 1 To 10
Start = Timer
Do While Timer
< Start + 1 / 100
Loop
If n Mod 5 = 0 Then Cells(1, 1) =
""
Next n
End Sub
|
|
| A roberto di Stefano |
| Grazie, Roberto, per il suggerimento. Purtroppo la
procedura che descrivi, terminato il lampeggio, cancella anche il
contenuto di A1 che invece dovrebbe restare. Hai qualche idea? |
|
| di Roberto |
Ok non avevo capito, prova adesso.
ciao.
Sub lampeggio()
a = Range("a1").Value
Dim i As Integer
For i = 1 To 10
Cells(1, 1) = a
Call Flash_Sequence
Next i
End Sub
Private Sub Flash_Sequence()
a = Range("a1").Value
Dim n As Byte, Start As Variant
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then Cells(1, 1) = ""
Next n
Range("a1").Value = a
End Sub
| |
|
| A roberto di Stefano |
| Grazie roberto, funziona perfettamente! |
|
| |