Lampeggio di due celle di
Luigi24 |
Ciao a tutti! ho trovato parte del codice che
segue nel vostro bellissimo sito (che trovo molto istruttivo), e sto
tentando di modificarlo per adattarlo alle mie esigenze. questo
codice, così come è scritto, funziona a metà. in altri termini, la
mia intenzione è di far lampeggiare la cella at35 se la cella s8
espone il valore Ҡ(e fin qui funziona), e di far invece
lampeggiare la cella av35 se la cella s8 espone il valore 1 (e qui
non funziona). c’è qualcuno che si prende il disturbo di dare
un’occhiata al mio codice per dirmi cosa sto sbagliando? grazie in
anticipo a tutti. – luigi24
(nel modulo associato al foglio1)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Indirizzo = "J" & Range("BH2").Text
If ((ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) = Indirizzo) And (Range("BD83").Value = "")) And (Range(“S8â€).Value=â€â€) Then
Application.Run ("Lamp")
ElseIf ((ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) = Indirizzo) And (Range("BD83").Value = "")) And (Range(“S8â€).Value=1) Then
Application.Run(“Lompâ€)
End If
End Sub
(nel modulo 1)
Sub lamp()
a = Range("AT35").Value
Dim i As Integer
For i = 1 To 4
Cells(35, 46) = a
Call Flash_Sequence
Next i
End Sub
Private Sub Flash_Sequence()
a = Range("AT35").Value
Dim n As Byte, Start As Variant
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 10
Loop
If n Mod 5
|
|
|
Vuoi approfondire questo argomento?
|