0
Disfare
voti
Si prega di correggere il 2° codice, entrambi per lo stesso foglio di lavoro.
PRIMO CODICE PERFETTAMENTE FUNZIONANTE
Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) non è niente allora
Seleziona Intervallo casi ("D1")
Caso "0.5": metà
Caso "1": Uno
Caso "1.25": OneTwentyFive
End Select
End If
End Sub
SECONDO CODICE NON FUNZIONANTE (correggere quanto segue)
Modifica sub privato (per valore target come intervallo)
If Not Intersect(Target, Range("D2")) non è niente allora
Seleziona Intervallo casi ("D2")
Caso "9.53": novevirgolacinquetre
End Select
End If
End Sub
PRIMO CODICE PERFETTAMENTE FUNZIONANTE
Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) non è niente allora
Seleziona Intervallo casi ("D1")
Caso "0.5": metà
Caso "1": Uno
Caso "1.25": OneTwentyFive
End Select
End If
End Sub
SECONDO CODICE NON FUNZIONANTE (correggere quanto segue)
Modifica sub privato (per valore target come intervallo)
If Not Intersect(Target, Range("D2")) non è niente allora
Seleziona Intervallo casi ("D2")
Caso "9.53": novevirgolacinquetre
End Select
End If
End Sub
0
Disfare
voti
Ciao syedsalman,
Per lo stesso foglio di lavoro, puoi il codice:
Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) non è niente allora
Seleziona Intervallo casi ("D1")
Caso "0.5": metà
Caso "1": Uno
Caso "1.25": OneTwentyFive
End Select
End If
If Not Intersect(Target, Range("D2")) non è niente allora
Seleziona Intervallo casi ("D2")
Caso "9.53": novevirgolacinquetre
End Select
End If
End Sub
Per fogli di lavoro diversi, puoi semplicemente modificare "Modifica sub privato (per valore target come intervallo)" nel tuo secondo codice a "Private Sub Worksheet_Change (ByVal Target As Range)".
Vi preghiamo di provare. Per qualsiasi domanda, sentitevi liberi di contattarmi.
Amanda
Per lo stesso foglio di lavoro, puoi il codice:
Private Sub Worksheet_Change (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) non è niente allora
Seleziona Intervallo casi ("D1")
Caso "0.5": metà
Caso "1": Uno
Caso "1.25": OneTwentyFive
End Select
End If
If Not Intersect(Target, Range("D2")) non è niente allora
Seleziona Intervallo casi ("D2")
Caso "9.53": novevirgolacinquetre
End Select
End If
End Sub
Per fogli di lavoro diversi, puoi semplicemente modificare "Modifica sub privato (per valore target come intervallo)" nel tuo secondo codice a "Private Sub Worksheet_Change (ByVal Target As Range)".
Vi preghiamo di provare. Per qualsiasi domanda, sentitevi liberi di contattarmi.
Amanda
- Pagina :
- 1
Non ci sono ancora risposte per questo post.