Come fare semplici calcoli in VBA di Excel

Ho un valore in qualsiasi cella che è maggiore di 60. Per il mio scopo, ho bisogno di sottrarre 60 da tali valori fino a quando il valore è inferiore a 60. Quindi, per esempio, dire che ho una cella contenente un valore di 1000. Il il valore che voglio usare sarebbe 40 perché 40 è il primo valore che è inferiore a 60 dopo aver ripetutamente sottratto 60.

Immagino una soluzione VBA che sottrarrebbe 60 volte e poi si fermerà e visualizzerà il valore finale, 40, poiché questo soddisfa la condizione.

L'intervallo di dati è ampio e i valori superiori a 60 possono verificarsi in qualsiasi punto dell'intervallo. Voglio che ciò avvenga automaticamente quando apro il foglio di calcolo in modo che tutte le formule che potrebbero riferirsi a valori superiori a 60 utilizzino i remainder.

Non hai bisogno di VBA per fare ciò che vuoi. Si desidera sottrarre 60 ripetutamente fino a quando il resto è inferiore a 60. È possibile scrivere codice VBA per farlo, ma è possibile farlo in un'unica fase con una formula:

    =MOD(ED1,60)

Se dividi 1000 per 60, ottieni 16.666 ... Ciò significa che dovresti sottrarre 60 sedici volte per ottenere qualcosa di meno di 60. La funzione MOD produce il resto dopo la divisione (in questo caso, 40), che è equivalente a quelle sottrazioni.

Puoi usare questo in due modi. Uno è quello di incorporare questa espressione MOD (senza il segno di uguale) nelle formule al posto del semplice riferimento di cella alle celle di dati che può eccedere 60. Questo utilizzerà il valore tradotto.

Se si dispone di numerose formule che fanno riferimento a ciascuna cella e non si desidera avere il sovraccarico di tutto il ricalcolo ripetuto degli stessi valori, creare un set di valori tradotti - un intervallo di dati duplicato contenente la formula precedente. Ciò tradurrà i dati una volta e quindi tutte le tue formule potranno fare riferimento a questi numeri anziché ai dati grezzi. Se non si desidera che il sovraccarico di tali calcoli venga aggiornato, eseguire una copia incolla speciale | valori. È possibile incollare i risultati sui dati non elaborati e quindi eliminare i calcoli intermedi.

Ho una grande notizia! Perché il valore in ED1 è una costante, la formula genererà sempre il valore:

960

Supponiamo che la lunga distanza sia A1: Z100

Ecco il VBA soluzione basata:

Private Sub Workbook_Open()
    Sheets("Sheet1").Range("A1:Z100").Value = 960
End Sub

Questa è una macro evento di una cartella di lavoro.

Poiché si tratta di codice della cartella di lavoro, è molto semplice da installare e utilizzare:

1. fare clic con il pulsante destro del mouse sulla piccola icona di Excel a sinistra di File nella barra dei menu
2. seleziona Visualizza codice: questo fa apparire una finestra VBE
3. incollare il materiale e chiudere la finestra VBE

Se si salva la cartella di lavoro, la macro verrà salvata con essa. Se si utilizza una versione di Excel successiva al 2003, è necessario salvare il file come .xlsm piuttosto che .xlsx

Per rimuovere la macro:

1. visualizzare le finestre VBE come sopra
2. cancellare il codice
3. chiudi la finestra VBE

Per saperne di più sulle macro in generale, vedere:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

e

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Per ulteriori informazioni sulle macro degli eventi (codice della cartella di lavoro), vedere:

http://www.mvps.org/dmcritchie/excel/event.htm

Le macro devono essere abilitate affinché funzioni!