Come trovare il numero centrale di tre numeri in VBA

March 20

Come trovare il numero centrale di tre numeri in VBA


Visual Basic, Applications Edition (VBA) è uno strumento di programmazione che permette agli utenti di Microsoft Office per creare funzioni personalizzate e le macro. Un'applicazione come Excel può "chiamare" queste funzioni e macro per eseguire operazioni ripetitive molto rapidamente. Excel ha molte funzioni incorporate è possibile utilizzare per ottenere la somma, valore medio, valore minimo o il valore massimo di un gruppo di numeri.

A volte, una funzione built-in non è disponibile per l'attività richiesta. Questo è quando una funzione personalizzata può essere utile.

istruzione

1 Pianificare la funzione. La funzione avrà tre numeri e produrrà un risultato che è il valore centrale. Si avrà bisogno di un nome che sarà poi disponibile in Excel sotto la categoria "definita dall'utente". Un esempio potrebbe essere: FindMidValue.

Si utilizzerà "argomenti" per trasferire i numeri da Excel alla funzione. Questi sono i nomi delle variabili indicate tra parentesi dopo il nome della funzione. Supponiamo che i tre numeri per valutare sono A, B e C. Il nome completo della funzione potrebbe essere:

FindMidValue (A, B, C)

2 Pianificare la logica. Questa è la serie di passi che la funzione utilizzerà per eseguire il compito. Pensate alle singole fasi che avrebbe dovuto seguire per eseguire questa operazione manualmente. Ad esempio, quali sono le possibili combinazioni di tre numeri e come si dovrebbe trovare il valore medio per ogni?

Ad esempio, se i numeri sono B, A, C in ordine di crescente: confronta una variabile di B; Se A è più grande, confrontarlo C; Se C è più grande, A deve essere il valore di mezzo. La funzione deve anche trattare con tutte le alternative. Che cosa se A è maggiore di B e B è più grande di C? Poi la sequenza è C, B, A e il valore centrale è B.

3 Scrivere la funzione. Il primo riferimento fornisce dettagli su come accedere l'editor di Visual Basic in Excel 2010 in cui è possibile scrivere la funzione. Il secondo riferimento dà alcune regole generali per la scrittura del "script" o le istruzioni per le macro e le funzioni. Il seguente script creerà una funzione personalizzata chiamata "FindMidValue":

FindMidValue Funzione (A, B, C)

'Linee precedute da' sono commenti

'Combinazioni possibili sono

'Bac, taxi, abc, cba, ACB, bca

'

If (A <B) Poi

'A è minore di b

Se (A> = C) Poi

FindMidValue = A 'cab case

GoTo 100

Altro

If (B &lt;= C) Then

FindMidValue = B 'abc

GoTo 100

Finisci se

FindMidValue = ACB C '

GoTo 100

Finisci se

Altro

'A è maggiore o uguale a b

Se (A <= C) Poi

FindMidValue = A 'bac

GoTo 100

Altro

If (B >= C) Then

FindMidValue = cba B '

GoTo 100

Finisci se

FindMidValue = BCA C '

Finisci se

Finisci se

100 End Function

4 Eseguire il debug della funzione. Debug si riferisce al processo di testare la funzione per assicurarsi che funzioni come previsto e per correggere eventuali errori che scoprire. In questo caso, utilizzare la funzione in Excel con i tre argomenti riferimento a tre celle con i numeri in loro. Modificare i numeri nelle celle per vedere se la funzione prende il numero centrale corretto ogni volta.