Come trovare il Medio Numero 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 velocemente . Excel dispone di molte funzioni incorporate è possibile utilizzare per ottenere la somma , valore medio , valore minimo o il valore massimo di un gruppo di numbers.Sometimes , un built-in funzione non è disponibile per l'attività richiesta . Questo è quando una funzione personalizzata può essere utile. Istruzioni
1

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

Si utilizzerà "argomenti" per trasferire i numeri da Excel per la funzione . Questi sono i nomi di variabile specificati 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 ) economici 2

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

Per esempio , se i numeri sono B, A , C , in ordine di crescente : confronto variabile A a B; Se A è più grande, confrontarlo C; Se C è più grande, a deve essere il valore di mezzo . La funzione deve anche occuparsi di tutte le alternative . E se A è maggiore di B e B è maggiore di C ? Quindi la sequenza è C , B , A e il valore centrale è B.
3

Scrivi 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 "copione " o le istruzioni per le macro e funzioni. Lo script seguente crea una funzione personalizzata chiamata " FindMidValue " :

Funzione FindMidValue (A , B , C ) ' linee precedute da '

sono commenti possibili combinazioni

' sono

' bac , cab, abc , CBA , ACB , bca

Se (A < B ) Poi

' un meno di b

Se ( A> = C ) Poi

FindMidValue = A ' cabina caso

GoTo 100