Questa pagina ti insegna come creare un semplice calcolatore di prestito in Excel VBA. Il foglio di lavoro contiene i seguenti controlli ActiveX: due barre di scorrimento e due pulsanti di opzione.
Nota: le istruzioni seguenti non ti insegnano come formattare il foglio di lavoro. Partiamo dal presupposto che tu sappia come modificare i tipi di carattere, inserire righe e colonne, aggiungere bordi, modificare i colori di sfondo, ecc.
Eseguire i seguenti passaggi per creare il calcolatore del prestito:
1. Aggiungere i due controlli della barra di scorrimento. Fare clic su Inserisci dalla scheda Sviluppatore, quindi fare clic su Barra di scorrimento nella sezione Controlli ActiveX.
2. Aggiungere i due pulsanti di opzione. Fare clic su Inserisci dalla scheda Sviluppatore, quindi fare clic sul pulsante di opzione nella sezione Controlli ActiveX.
Modificare le seguenti proprietà dei controlli della barra di scorrimento (assicurarsi che sia selezionata la modalità Progettazione).
3. Fare clic con il pulsante destro del mouse sul primo controllo della barra di scorrimento, quindi fare clic su Proprietà. Imposta Min su 0, Max su 20, SmallChange su 0 e LargeChange su 2.
4. Fare clic con il pulsante destro del mouse sul secondo controllo della barra di scorrimento, quindi fare clic su Proprietà. Imposta Min su 5, Max su 30, SmallChange su 1, LargeChange su 5 e LinkedCell su F8.
Spiegazione: quando si fa clic sulla freccia, il valore della barra di scorrimento aumenta o diminuisce di SmallChange. Quando si fa clic tra il dispositivo di scorrimento e la freccia, il valore della barra di scorrimento aumenta o diminuisce di LargeChange.
Crea un evento di modifica del foglio di lavoro. Il codice aggiunto all'evento di modifica del foglio di lavoro verrà eseguito da Excel VBA quando si modifica una cella in un foglio di lavoro.
5. Aprire l'editor di Visual Basic.
6. Fare doppio clic su Foglio1 (Foglio1) in Esplora progetti.
7. Scegliere Foglio di lavoro dall'elenco a discesa a sinistra e scegliere Modifica dall'elenco a discesa a destra.
8. L'evento di modifica del foglio di lavoro ascolta tutte le modifiche su Foglio1. Vogliamo solo che Excel VBA esegua il sottotitolo Calcola se qualcosa cambia nella cella D4. Per ottenere ciò, aggiungi la seguente riga di codice all'evento di modifica del foglio di lavoro (ulteriori informazioni sul sub Calcola in seguito).
Se Target.Address = "$D$4" allora Application.Esegui "Calcola"
9. Ottieni la giusta percentuale nella cella F6 (cambia il formato della cella F6 in percentuale). Fare clic con il pulsante destro del mouse sul primo controllo della barra di scorrimento, quindi fare clic su Visualizza codice. Aggiungi le seguenti righe di codice:
Private Sub ScrollBar1_Change()
Range("F6").Value = ScrollBar1.Value / 100
Applicazione.Esegui "Calcola"
Fine sottotitolo
10. Fare clic con il pulsante destro del mouse sul secondo controllo della barra di scorrimento, quindi fare clic su Visualizza codice. Aggiungi la seguente riga di codice:
Sotto privato ScrollBar2_Change()
Applicazione.Esegui "Calcola"
Fine sottotitolo
11. Fare clic con il pulsante destro del mouse sul primo controllo del pulsante di opzione, quindi fare clic su Visualizza codice. Aggiungi la seguente riga di codice:
Privato Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("C12").Value = "Pagamento mensile"
Applicazione.Esegui "Calcola"
Fine sottotitolo
12. Fare clic con il pulsante destro del mouse sul controllo del secondo pulsante di opzione, quindi fare clic su Visualizza codice. Aggiungi la seguente riga di codice:
Privato Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("C12").Value = "Pagamento annuale"
Applicazione.Esegui "Calcola"
Fine sottotitolo
13. È ora di creare il sottotitolo. Puoi consultare il nostro capitolo Funzione e Sottosezione per saperne di più sui sottotitoli. Se sei di fretta, posiziona semplicemente il sottotitolo denominato Calcola in un modulo (nell'editor di Visual Basic, fai clic su Inserisci, Modulo).
Sottocalcolo()
Prestito debole As Long, tasso As Double, nper As Integer
prestito = Intervallo ("D4"). Valore
tasso = Intervallo ("F6"). Valore
nper = Intervallo ("F8"). Valore
Se Sheet1.OptionButton1.Value = True allora
tasso = tasso / 12
nper = nper * 12
Finisci se
Range("D12").Value = -1 * WorksheetFunction.Pmt(tasso, nper, prestito)
Fine sottotitolo
Spiegazione: il sub ottiene i parametri corretti per la funzione del foglio di lavoro Pmt. La funzione PMT in Excel calcola i pagamenti per un prestito in base a pagamenti costanti e un tasso di interesse costante. Se effettui pagamenti mensili (Sheet1.OptionButton1.Value = True), Excel VBA utilizza rate/12 per rate e nper *12 per nper (numero totale di pagamenti). Il risultato è un numero negativo, perché i pagamenti sono considerati un debito. Moltiplicando il risultato per -1 si ottiene un risultato positivo.
