Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Variabili nella InputBox

Ultimo Aggiornamento: 12/02/2018 16:59
Post: 1
Registrato il: 12/02/2018
Età: 63
Utente Junior
Excel 2013
OFFLINE
12/02/2018 13:28

Ciao,

vorrei fare in modo che nella imputBox fosse utilizzata una variabile per indicare il dato richiesto (1°,2°,3°...) generato da un loop (for..next), ma non so come fare... Tipo: ImputBox("Immetti dato" k,etc etc...) .Grazie
---------------------------------------------------------------------------------------
'Inserisce i dati di fatturazione
'
Sub InsDatiFatt()
Sheets("Fattura").Activate
ActiveSheet.Range(Cells(13, 2), Cells(31, 7)).Select

Range("b23:g31").ClearContents

Dim nr As Integer
Dim t As String

nr = InputBox("Numero di fattura?", "INSERISCI NR FATTURA", vbOKOnly)
Range("C13") = nr

k = InputBox("Quante righe di descrizione devi compilare?", "VOCI DI DESCRIZIONE FATTURA", vbOKOnly)
For j = 1 To k
t = InputBox("Descrizione", "IMMETTI VOCE DESCRIZIONE")
If t = "" Then t = "----------------------------------------"
cnt1 = Cells((21 + j), 3).End(xlToLeft).Row + 1
Cells(cnt1, 2) = 1
Cells(cnt1, 3) = t
x = InputBox("Tot. Operazione", "IMMETTI IMPORTO OPERAZIONE")
If x = "" Then x = 0
cnt2 = Cells((21 + j), 7).End(xlToLeft).Row + 1
Cells(cnt2, 7) = x
Next j
Cells(cnt2 + 1, 3) = "-------------------------------------------"

Sheets("Fattura").Activate

End Sub
Post: 2.672
Registrato il: 03/04/2013
Utente Veteran
Excel 2000 - 2013
OFFLINE
12/02/2018 14:59

Buon pomeriggio, F.Cool;
sarebbe opportuno allegassi un file (senza Dati sensibili) con alcuni Record significativi già inseriti e chiarissi ciò che desideri ottenere.
Questo eviterebbe a chi desidera aiutarti dover ricostruire una probabile struttura con il rischio di non centrare l'obiettivo.



A disposizione.

Buon Lavoro.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 1
Registrato il: 12/02/2018
Età: 63
Utente Junior
Excel 2013
OFFLINE
12/02/2018 15:24

Si certo sarebbe preferibile... ma intanto volevo sapere solo come funziona lìistruzione InputBox e come inserire una variabile come si fa in MsgBox.

msgbox("Escalmazione..."), [variabile], etc

inputBox("Esclamazione",...,...) qua la variabile si può mettere im modo che restituisca

Box Input Data-----------------------

Immetti dato nr. [Variabile] etc. etc

ok annulla
Post: 1.805
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
12/02/2018 16:59

Ciao
non so se ho capito, ma non credo tu possa farlo con una inputBox. Di seguito trovi tutti i parametri dell'istruzione:

https://msdn.microsoft.com/en-us/VBA/Excel-VBA/articles/application-inputbox-method-excel

Comunque, l'unica variabile che puoi usare è il valore di default, quindi proporre un dato per esempio:

a = InputBox("Inserisci qualcosa", "Codice", Range("D3").Value)

saluti


[Modificato da dodo47 12/02/2018 17:32]
Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:58. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com