Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ricerca Di Aiuto Per Risolvere problema con Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ricerca Di Aiuto Per Risolvere problema con Excel

Postdi a.maury1704 » 06/08/12 15:34

Ciao A tutti sono un nuovo Iscritto , mi Chiamo Maurizio, e vi porgo subito un mio Quesito che sino ad ora nessuno e mai riuscito a darmi una risposta Concreta ; Forse perche' esula un pochino dagli schemi di Base.
Il discorso e Questo : Su' di un UserForm o Inserito 9 TextBox , Che a sua Volta verranno rienpite con dei dati piu' o Meno dello stesso tipo , Come ad esempio : Nome / Cognome ; Data di Nascita ; Eta' ; Segno Zodiacale ecc... ! ora il mio Problema e Questo : Nel mio progetto o Anche inserito Due Tasto " Salva " e " Apri " che dovranno avere queste precise Funzioni : Quando premo il tasto " Salva " Si Dovra' salvare il contenuto delle 9 TextBox in Formato Txt e memorizzato All'interno della mia cartella di lavoro.
Mentre Successivamente Quando Andro' a premere il Tasto " Apri " Le textBox Dovranno dinuovo riempirsi in Modo sequenziale , dei dati che saranno stati salivati.
Tutto qui . Ringrazio sin da ora a tutti coloro che vorranno aiutarmi nell'inpresa Sincari saluti da A. maurizio
a.maury1704
Newbie
 
Post: 1
Iscritto il: 06/08/12 15:12

Sponsor
 

Re: Ricerca Di Aiuto Per Risolvere problema con Excel

Postdi Flash30005 » 06/08/12 16:41

Ciao A.Maury1974 e benvenuto nel Forum

Mancano molte specifiche quindi dovrai adattare il codice alle tue esigenze
in un modulo inserisci questo codice
Codice: Seleziona tutto
Public passo, Ini As Integer
Sub Maschera()
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
UserForm1.TextBox5.Value = ""
UserForm1.TextBox6.Value = ""
UserForm1.TextBox7.Value = ""
UserForm1.TextBox8.Value = ""
UserForm1.TextBox9.Value = ""
UserForm1.Show
passo = 0
End Sub


Nella userform1 con i nove textbox e i due tasti inserirai questo codice comando Salva
Codice: Seleziona tutto
Private Sub CommandButton1_Click()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & UR).Value = Me.TextBox1
Range("B" & UR).Value = Me.TextBox2
Range("C" & UR).Value = Me.TextBox3
Range("D" & UR).Value = Me.TextBox4
Range("E" & UR).Value = Me.TextBox5
Range("F" & UR).Value = Me.TextBox6
Range("G" & UR).Value = Me.TextBox7
Range("H" & UR).Value = Me.TextBox8
Range("I" & UR).Value = Me.TextBox9
UserForm1.Hide
End Sub


Comando Apri
Codice: Seleziona tutto
Private Sub CommandButton2_Click()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
If passo = 0 Then
Ini = 2
passo = 1
End If
For RR = Ini To UR
Me.TextBox1 = Range("A" & RR).Value
Me.TextBox2 = Range("B" & RR).Value
Me.TextBox3 = Range("C" & RR).Value
Me.TextBox4 = Range("D" & RR).Value
Me.TextBox5 = Range("E" & RR).Value
Me.TextBox6 = Range("F" & RR).Value
Me.TextBox7 = Range("G" & RR).Value
Me.TextBox8 = Range("H" & RR).Value
Me.TextBox9 = Range("I" & RR).Value
Ini = RR + 1
Exit Sub
Next RR
End Sub


Ma forse è meglio inviare Questo file

Fai sapere se, almeno questa, è una risposta concreta :D
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Ricerca Di Aiuto Per Risolvere problema con Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti