Le strutture di controllo consentono di controllare la sequenza di esecuzione del programma. Senza istruzioni di controllo, tutte le istruzioni del programma verranno eseguite da sinistra a destra e dall'alto verso il basso. Tuttavia, a volte è necessario eseguire ripetutamente un determinato insieme di istruzioni automaticamente o risolvere il problema in modo diverso a seconda dei valori delle variabili o dei parametri specificati dall'utente in fase di esecuzione. Per questo vengono utilizzati costrutti di controllo e cicli.
VBA supporta i seguenti costrutti decisionali:
Se. ... ... Poi. ... ... Altro
6.1 Il costrutto If. ... ... Poi
Se. ... ... Quindi viene utilizzato quando è necessario eseguire una o un gruppo di istruzioni a seconda di alcune condizioni. La sintassi di questo costrutto consente di specificarlo su una riga o su più righe del programma:
If condizione Then espressione If condizione Then espressione End If
La condizione è in genere un semplice confronto, ma può essere qualsiasi espressione con un valore calcolato. Questo valore viene interpretato come False se è zero e qualsiasi valore diverso da zero viene considerato True. Se la condizione è vera, vengono eseguite tutte le espressioni dopo la parola chiave Then. Per eseguire condizionalmente una singola istruzione, è possibile utilizzare sia la sintassi a riga singola che la sintassi a più righe (costruzione a blocchi).
I seguenti due operatori sono equivalenti:
Se c'è Data< Now Then anyDate = Now If anyDate < Now Then anyDate = Now End If
Si noti che la sintassi dell'istruzione If. ... ... Quindi non utilizza l'istruzione End If per una singola riga. Per eseguire una sequenza di istruzioni se una condizione è vera, utilizzare la clausola If block. ... ... Poi. ... ... Finisci se.
Se c'è Data< Now Then anyDate = Now Timer.Enabled = False " Запретить таймер. End If
Se la condizione è falsa, le istruzioni dopo la parola chiave Then non vengono eseguite e il controllo viene passato alla riga successiva (o alla riga dopo l'istruzione End If in una costruzione a blocchi).
6.2 Se costrutto. ... ... Poi. ... ... Altro
definisce diversi blocchi di istruzioni, uno dei quali verrà eseguito a seconda della condizione:
Se condizione1 Allora espressione1 ElseSe condizione2 Allora espressione2. ... ... Else espressione -n End If
Quando viene eseguita, la condizione1 viene verificata per prima. Se false, VBA controlla la condizione successiva2 e così via, finché non trova una condizione vera. Quando VBA lo trova, esegue il blocco di istruzioni appropriato e quindi trasferisce il controllo all'istruzione che segue l'istruzione End if. In questo costrutto, puoi includere un blocco di istruzioni Else che VBA esegue se nessuna delle condizioni è soddisfatta.
Se. ... ... Poi. ... ... ElseIf è in realtà solo un caso speciale del costrutto If. ... ... Poi. ... ... Altro. Nota che questa costruzione può contenere un numero qualsiasi di blocchi ElseIf, o anche nessuno. Il blocco Else può essere incluso indipendentemente dalla presenza o, al contrario, dall'assenza di blocchi ElseIf.
Sottoesempio 1 () Dim a As Single, b As Single, x As Single Dim z As Double Call read ("A1", a) Call read ("B1", b) Let x = CSng (InputBox ("enter x" , "Inserimento dati", 0)) Se x<= a Then z = Sin(x) ElseIf x >= b Allora z = Tan (x) Else: z = Cos (x) End If Call out ("C1", z) End Sub
Nota che puoi aggiungere qualsiasi numero di blocchi Elself alla tua istruzione If. ... ... Poi. Tuttavia, il numero di blocchi Elself può diventare così grande che If. ... ... Quindi diventerà molto ingombrante e scomodo. In una situazione del genere, dovrebbe essere utilizzato un altro costrutto decisionale: Select Case.
6.3 Selezionare la costruzione del caso
Il costrutto Select Case è un'alternativa al costrutto If. ... ... Poi. ... ... Altrimenti in caso di esecuzione di un blocco costituito da un ampio insieme di istruzioni. Il costrutto Select Case fornisce una funzionalità simile al costrutto If. ... ... Poi. ... ... Altrimenti, ma rende il tuo codice più leggibile quando hai più scelte.
Il costrutto Select Case opera su una singola espressione verificabile, che viene valutata una volta all'ingresso nel costrutto. VBA confronta quindi il risultato con i valori specificati nelle istruzioni Case del costrutto. Se viene trovata una corrispondenza, viene eseguito il blocco di istruzioni associato all'istruzione Case:
Seleziona Caso test_expression]]. ... ... ] Fine selezione
Ogni elenco di espressioni è un elenco di uno o più valori. Se c'è più di un valore in un elenco, sono separati da virgole. Ogni blocco di istruzioni contiene più istruzioni o nessuna. Se risulta che il valore calcolato dell'espressione testata corrisponde ai valori di diverse istruzioni Case, viene eseguito il blocco di istruzioni associato alla prima istruzione Case da tutte le corrispondenze trovate. VBA esegue un blocco di istruzioni associato a un'istruzione Case Else (si noti che è facoltativo) se non viene trovato alcun valore di espressione corrispondente con i valori di tutti gli elenchi di istruzioni Case.
Consideriamo un esempio di calcolo della funzione
Sub example2 () Const pi2 = 1.57 Dim x As Single Dim z As Double Let x = CSng (InputBox ("enter x", "Data input", 0)) Selezionare Case x Case -pi2 z = Sin (x) Case 0 z = Cos (x) Case pi2 z = Tan (x) Case Else MsgBox "Dati di input non validi!" Esci Sub End Seleziona Call out ("D1", z) End Sub
Si noti che il costrutto Select Case valuta l'espressione solo una volta quando la si immette e nell'If. ... ... Poi. ... ... Altrimenti, viene valutata un'espressione diversa per ogni istruzione Elself. Se. ... ... Poi. ... ... Else può essere sostituito con Select Case solo se l'istruzione If e ogni istruzione Elself valutano la stessa espressione.
LINGUAGGIO DI PROGRAMMAZIONE DI BASE VISIVA. PROGRAMMAZIONE DI FILIALE
La ramificazione in Visual Basic è organizzata utilizzando:
- dichiarazione IF condizionale;
- funzione IIF incorporata;
- selezionare operatore CASO.
Per verificare una condizione ed eseguire un operatore o un blocco di istruzioni, utilizzare condizionale SE ... ALLORA... Questo operatore può essere utilizzato con diverse sintassi: unifilare (lineare) e multiriga (blocco).
L'operatore lineare ha la seguente sintassi:
Se<условие>Poi<операторы!>
L'istruzione block ha la seguente sintassi:
Se<условие>Poi
<блок операторов 1>
Finisci se
Se la condizione specificata è True, viene eseguito il blocco dell'istruzione, altrimenti viene eseguito il blocco dell'istruzione2. Se la clausola Else non è specificata,Se la condizione è soddisfatta, il controllo viene passato immediatamente all'operatore successivo a If.
L'istruzione If può essere nidificata, ovvero può trovarsi all'interno di blocchi di istruzioni. Per testare più di una condizione ed eseguire uno dei vari blocchi di istruzioni, viene utilizzato un operatore condizionale esteso della forma:
Se<условие
1>Poi
<блок операторов 1>
El stesso<условие 2>Poi
<блок операторов 2>
El stesso<условие n>Poi
<блок операторов n>
Finisci se
Per selezionare uno dei valori in base al soddisfacimento o al mancato rispetto di una determinata condizione, viene utilizzata la funzione condizionale IIF, che ha la seguente sintassi:
IIF (<условие>, <значение1>, <значение2>)
Questa funzione restituisce valore1 se la condizione è vera e valore2 se la condizione è falsa.
Come condizione, puoi usare un'espressione booleana che restituisce True o
False o qualsiasi espressione aritmetica (zero è equivalente a False e diverso da zero è True).
Istruzione SELECT CASE viene utilizzato per testare una condizione ed eseguire uno dei numerosi blocchi di istruzioni.
Formato record operatore:
Seleziona caso<проверяемое
выражение>
Caso<список выражений 1>
<операторы 1>Caso<список выражений 2>
<операторы 2>Caso<список выражений 3>
<операторы 3>
Caso altro
<операторы группы Else>
Fine selezione
L'espressione da testare viene valutata all'inizio dell'istruzione Select Case. Questa espressione può restituire qualsiasi tipo di valore (booleano, numerico, stringa).
Un elenco di espressioni è una o più espressioni separate da un carattere separatore standard (punto e virgola).
Quando l'operatore viene eseguito, viene verificato se almeno uno degli elementi di questo elenco corrisponde all'espressione da testare.
Questi alimenti della lista di espressione possono assumere una delle seguenti forme:
- <выражение>- verifica la coincidenza dell'espressione data con una delle espressioni - gli elementi della lista;
- <выражение 1>Quella<выражение 2>- verifica se l'espressione specificata rientra nell'intervallo specificato;
- < Is <логический оператор> < выражение>- verifica il soddisfacimento della condizione specificata per l'espressione specificata.
E nel post di oggi discuteremo dell'istruzione select case di VBA. VBA Select Case può essere utilizzato al posto delle complesse istruzioni Excel Nested If. Ciò rende il codice VBA più veloce da eseguire e più facile da capire.
L'istruzione Select-Case (chiamata anche Switch Case in alcune lingue) controlla una variabile o un'espressione per diversi casi (valori). Se uno dei casi diventa vero, viene eseguito solo quel caso e il programma ignora tutti gli altri casi.
Se vi ricordate nel nostro ultimo post abbiamo parlato di “come si può”.
Sintassi dell'istruzione VBA Select Case:
La sintassi è come sotto:
Seleziona la condizione del caso
Valore caso_1
Codice da eseguire quando Condizione = valore_1
Valore del caso_2
Codice da eseguire quando Condizione = valore_2
Valore del caso_3
Codice da eseguire quando Condizione = valore_3
Caso altro
Codice da eseguire quando tutti gli altri casi sono falsi
Fine selezione
Qui, "Condizione" si riferisce alla variabile o all'espressione che deve essere testata e in base alla quale verrà eseguito uno qualsiasi dei segmenti di codice.
"Valore_1", "valore_2" e "valore_3" sono i possibili esiti della "Condizione". Ogni volta che uno di questi valori corrisponde alla "Condizione", verrà eseguito il blocco Case corrispondente.
'Else' è un tipo di valore di caso predefinito, che verrà eseguito solo quando tutte le istruzioni Case di cui sopra risultano in False. Il caso "Altro" è facoltativo ma generalmente è considerato una buona pratica utilizzarlo.
Esempi di Select-Case in VBA:
Passiamo ora ad alcuni esempi pratici di Case Statement.
Esempio 1: Selezionare Case Statement con un'espressione.
Nell'esempio seguente, abbiamo fornito una condizione (cioè a = b) all'istruzione Select Case. Se questo è True, verrà eseguito il blocco "Case True" e se è False, verrà eseguito il blocco "Case False".
Sub Select_Case_Example () "Inserire il valore per le variabili a = InputBox (" Immettere il valore per A: ") b = InputBox (" Immettere il valore per B: ")" Valutazione dell'espressione Select Case a = b Case True MsgBox "Il espressione è TRUE "Case False MsgBox" L'espressione è FALSE "End Select End SubNota: In questo codice viene utilizzato per ottenere valori dall'utente.
Esempio 2: Istruzione Case per controllare le stringhe di testo
In questo esempio confronteremo le stringhe di testo nelle istruzioni Case. Se viene trovata una corrispondenza, verrà eseguito il blocco case corrispondente, altrimenti verrà eseguito il blocco "Case Else".
Sub Select_Case_Example () "Inserisci il valore per le variabili nome_frutta = InputBox ("Inserisci il nome del frutto: ")" Valutazione dell'espressione Select Case nome_frutta Case "Apple" MsgBox "Hai inserito Apple" Case "Mango" MsgBox "Hai inserito Mango" Case "Orange" MsgBox "Hai inserito Orange" Case Else MsgBox "Non conoscevo questo frutto! "End Select End Sub
Esempio 3: Dichiarazione del caso per controllare i numeri
Nell'esempio seguente controlleremo se il numero inserito dall'utente è minore o maggiore di 5.
Sub Select_Case_Example () "Inserire il valore per le variabili Num = InputBox (" Immettere un numero compreso tra 1 e 10: ")" Valutazione dell'espressione Selezionare Case Num Case Is< 5 MsgBox "Your Number is less than 5" Case Is = 5 MsgBox "Your Number is Equal to 5" Case Is >5 MsgBox "Il tuo numero è maggiore di 5" End Select End Sub
Nota: Puoi usare È parola chiave con Case Statement per confrontare i valori.
Esempio 4: Selezionare Istruzione Case per verificare più condizioni all'interno di un singolo caso.
In questo esempio chiederemo all'utente di inserire qualsiasi numero da 1-10. E poi controlleremo se il numero è pari o dispari utilizzando più condizioni nell'istruzione case. Nota qui che ho usato una "," (virgola) per confrontare più condizioni in un singolo caso.
Sub Select_Case_Example () "Inserisci il valore per le variabili Num = InputBox ("Inserisci un numero compreso tra 1 e 10: ")" Valutazione dell'espressione Seleziona Case Num Case 2, 4, 6, 8, 10 MsgBox "Il tuo numero è pari." Caso 1, 3, 5, 7, 9 MsgBox "Il tuo numero è dispari." Case Else MsgBox "Il tuo numero è fuori dall'intervallo." Fine Seleziona Fine Sotto
Nota: So che esistono metodi più semplici per verificare se un numero è pari o dispari, ma ho usato questo esempio solo per spiegare come controllare più condizioni all'interno di una singola istruzione case.
Esempio 5: Istruzione Case per controllare un intervallo continuo come condizione.
Qui testeremo un intervallo continuo come condizione. Chiederemo all'utente di inserire qualsiasi numero compreso tra 1-10, se il numero è compreso tra 1 e 5 (inclusi sia 1 che 5), allora "Caso da 1 a 5" sarà "Vero", se il numero inserito dall'utente è tra 6 e 10 (inclusi sia 6 che 10), allora 'Case 6 To 10' sarà 'True', se entrambi i casi precedenti sono 'False' allora verrà eseguito 'Case Else'.
Sub Select_Case_Example () "Inserisci il valore per le variabili Num = InputBox ("Inserisci un numero compreso tra 1 e 10: ")" Valuta l'espressione Seleziona Case Num Case da 1 a 5 MsgBox "Il tuo numero tra 1 e 5" Case da 6 a 10 MsgBox "Il tuo numero tra 6 e 10" Case Else MsgBox "Il tuo numero è fuori dall'intervallo." Fine Seleziona Fine Sotto
Quindi, si trattava di VBA Select Case Statement. Sentiti libero di condividere i tuoi pensieri su questo argomento.
A proposito di ankit kaul
Ankit è il fondatore di Excel Trick. È un esperto di tecnologia che ama stare seduto di fronte alla sua ragazza dalla testa quadrata (il suo PC) tutto il giorno. : D. Ankit ha una forte passione per l'apprendimento di Microsoft Excel. Il suo unico scopo è trasformarvi in "Excel Geeks".
Gli operatori condizionali più importanti utilizzati in Excel VBA sono gli operatori Se poi e Seleziona caso... Entrambe queste espressioni controllano una o più condizioni e, a seconda del risultato, eseguono azioni diverse. Successivamente, parleremo più in dettaglio di questi due operatori condizionali.
Istruzione di Visual Basic If ... Then
Operatore Se poi verifica la condizione e, se è TRUE, viene eseguita la serie di azioni specificata. È inoltre possibile definire una serie di azioni da eseguire se la condizione è FALSE.
Sintassi dell'operatore Se poi come questo:
Se Condizione1 Poi
Azioni se Condition1 è soddisfatta
ElseIf Condizione2 Poi
Azioni se Condition2 è soddisfatta
Altro
Azioni nel caso in cui nessuna delle Condizioni sia soddisfatta
Finisci se
In questa espressione, gli elementi ElseIf e Altro le condizioni dell'operatore non possono essere utilizzate se non sono necessarie.
Di seguito è riportato un esempio in cui si utilizza l'operatore Se poi il colore di riempimento della cella attiva cambia in base al valore in essa contenuto:
Se ActiveCell.Value< 5 Then ActiveCell.Interior.Color = 65280 "Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 "Ячейка окрашивается в оранжевый цвет Else ActiveCell.Interior.Color = 255 "Ячейка окрашивается в красный цвет End If
Si noti che non appena la condizione diventa vera, l'esecuzione dell'istruzione condizionale viene interrotta. Pertanto, se il valore della variabile Cellula attiva meno di 5, allora la prima condizione diventa vera e la cella diventa verde. Dopo di che, l'esecuzione dell'operatore Se poi viene interrotto e le altre condizioni non vengono verificate.
Seleziona l'istruzione Case in Visual Basic
Operatore Seleziona caso simile all'operatore Se poi in quanto verifica anche la veridicità della condizione e, a seconda del risultato, sceglie una delle opzioni.
Sintassi dell'operatore Seleziona caso come questo:
Seleziona caso Espressione
Caso Valore1
Azioni nel caso in cui il risultato di Expression corrisponda a Value1
Caso Valore2
Azioni nel caso in cui il risultato di Expression corrisponda a Value2
…
Caso altro
Azioni nel caso in cui il risultato di Expression non corrisponda a nessuna delle opzioni elencate Valori
Fine selezione
Elemento Caso altroè facoltativo, ma è consigliato per la gestione di valori imprevisti.
Nell'esempio seguente, usando la costruzione Seleziona caso il colore di riempimento della cella corrente cambia a seconda del valore in essa contenuto:
Seleziona Case ActiveCell.Value Case Is<= 5 ActiveCell.Interior.Color = 65280 "Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 "Ячейка окрашивается в оранжевый цвет Case 10 ActiveCell.Interior.Color = 65535 "Ячейка окрашивается в жёлтый цвет Case 11 To 20 ActiveCell.Interior.Color = 10498160 "Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 255 "Ячейка окрашивается в красный цвет End Select
L'esempio sopra mostra come puoi impostare un valore per un elemento in vari modi Caso In costruzione Seleziona caso... Questi sono i modi:
| Il caso è<= 5 | Quindi, usando la parola chiave Il caso èè possibile verificare se il valore soddisfa espressioni condizione come <=5 . |
| Caso 6, 7, 8, 9 | Ecco come puoi verificare se il valore è lo stesso espressioni con uno dei valori elencati. I valori elencati sono separati da virgole. |
| Caso 10 | Questo controlla se il valore è lo stesso espressioni con un dato valore. |
| Caso da 11 a 20 | Quindi, puoi scrivere un'espressione per verificare se il valore soddisfa espressioni condizione come dalle 11 alle 20(equivalente alla disuguaglianza “11<=значение<=20”). |
| Caso altro | In questo modo, usando la parola chiave Altro, le azioni sono indicate nel caso in cui il valore espressioni non corrisponde a nessuna delle opzioni elencate Caso. |
Non appena viene trovata una delle condizioni, vengono eseguite le azioni corrispondenti e si esce dalla struttura. Seleziona caso... Cioè, in ogni caso, verrà eseguito solo uno dei rami elencati Caso.
OK, non c'è modo di fare quello che vuoi. Non puoi usare altro che la sintassi di Excel all'interno di una formula, quindi cose come "A1 = da 1 a 9" non sono possibili.
Potresti scrivere una routine VBA piuttosto complessa che prendesse stringhe o altro e le analizzasse, ma in realtà si tratta di progettare e implementare un piccolo linguaggio completo. E il tuo "codice" non funzionerà bene con Excel. Ad esempio, se hai chiamato qualcosa del tipo
Casi ("(A1 =" "" "," "non c'è niente" "), (else, A1)")
(nota le virgolette con caratteri di escape) Excel non aggiornerà il riferimento A1 quando lo sposti o copi una formula. Pertanto, scartare l'intero parametro "sintassi".
Tuttavia, risulta che puoi ottenere la maggior parte del comportamento che penso tu voglia davvero con le normali formule di Excel più una minuscola UDF VBA. Prima l'UDF:
Funzione pubblica arr (ParamArray args()) arr = args End Function
Questo ci permette di creare un array da un insieme di argomenti. Poiché gli argomenti possono essere espressioni, non solo costanti, possiamo chiamarli dalla formula in questo modo:
Arr (A1 = 42, A1 = 99)
e restituisce un array di booleani.
Con questo piccolo UDF, ora puoi usare formule regolari per "scelta dei casi". Sembrerebbero così:
SCEGLI (MATCH (VERO, arr (A1> 5, A1<5, A1=5), 0), "gt 5", "lt 5", "eq 5")
Quello che succede è che "arr" restituisce un array booleano, "MATCH" trova la posizione del primo TRUE e "CHOOSE" restituisce il "case" corrispondente.
Puoi emulare la clausola "else" avvolgendo il tutto in "IFERROR":
SE ERRORE (SCEGLI (MATCH (VERO, arr (LA1> 5, LA1<5), 0), "gt 5", "lt 5"), "eq 5")
Se questo è troppo per te, puoi sempre scrivere un'altra UDF VBA che risulterà in MATCH, CHOOSE, ecc. all'interno e lo chiameremo in questo modo:
Casi (arr (A1> 5, A1<5, A1=5), "gt 5", "lt 5", "eq 5")
Questo è vicino alla sintassi suggerita e molto, molto più semplice.
Vedo che hai già trovato una (buona) soluzione più vicina a ciò che desideri veramente, ma ho pensato di aggiungerla comunque, poiché la mia espressione sopra riguarda il casting MATCH, CHOOSE, ecc. all'interno dell'UDF sembrava più semplice di quanto non fosse in realtà.
Quindi ecco i casi "UDF":
Public Function case (caseCondResults, ParamArray caseValues)) On Error GoTo EH Dim resOfMatch resOfMatch = Application.Match (True, caseCondResults, 0) If IsError (resOfMatch) Thencases = resOfMatch Else Call assegna (cases, caseValues LBound) (caseValues + resOfMatch - 1)) End If Exit Function EH: case = CVErr (xlValue) End Function
Utilizza una piccola routine di supporto, "assegna":
Public Sub assegna (ByRef lhs, rhs) If IsObject (rhs) Then Set lhs = rhs Else lhs = rhs End If End Sub
La procedura di assegnazione semplifica la gestione del fatto che gli utenti possono invocare le UDF con qualsiasi valore o riferimento di intervallo. Poiché vogliamo che l'UDF dei nostri "casi" funzioni come Excel "SCEGLI", vorremmo restituire i riferimenti secondo necessità.
Fondamentalmente, nei nuovi "casi" UDF facciamo noi stessi la "scelta", indicizzando i valori dei casi nell'array di parametri. Ho rimosso il gestore degli errori lì, quindi cose di base come la mancata corrispondenza tra i risultati delle condizioni del caso e i valori del caso si tradurranno in un valore #VALORE! Probabilmente aggiungeresti più controlli alla funzione effettiva, ad esempio, per assicurarti che i risultati della condizione siano booleani, ecc.
Sono contento che tu abbia raggiunto una soluzione ancora migliore per te stesso! È stato interessante.
MAGGIORI INFORMAZIONI SU "assegna":
In risposta al tuo commento, ecco di più sul motivo per cui questo fa parte della mia risposta. VBA utilizza una sintassi diversa per l'assegnazione di un oggetto a una variabile rispetto all'assegnazione di un valore semplice. Dai un'occhiata alla guida di VBA o guarda questa domanda StackOverflow e altri apprezzeranno: cosa fa davvero la parola chiave Set in VBA?
Ciò è importante perché quando si chiama una funzione VBA da una formula di Excel, i parametri possono essere oggetti intervallo, oltre a numeri, stringhe, booleani, errori e matrici. (Vedi È possibile passare a un'UDF VBA di Excel richiamata da un foglio di lavoro un'istanza di qualsiasi classe di modello di oggetti VBA di Excel diversa da "Intervallo"?)
I riferimenti di intervallo sono ciò che descrivi usando la sintassi di Excel come A1: Q42. Quando ne passi uno all'UDF di Excel come parametro, viene visualizzato come un oggetto Range. Se vuoi restituire un oggetto Range da una UDF, devi farlo esplicitamente usando la parola chiave VBA "Set". Se non usi Set, Excel prenderà invece il valore all'interno dell'intervallo e lo restituirà. La maggior parte delle volte non è importante, ma a volte si desidera l'intervallo effettivo, ad esempio quando si dispone di una formula denominata che deve essere valutata in un intervallo perché viene utilizzata come origine per l'elenco di controllo.
