| | 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 |
|
|