• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 2 di 2

Discussione: Macro in excel

Cambio titolo
  1. #1
    Bannato L'avatar di Cthulhu
    Registrato il
    10-03
    LocalitÓ
    Padova (Provincia)
    Messaggi
    7.067

    Macro in excel

    Ho creato una macro con il visual basic editor di microsoft excel in un documento dove ho catalogato tutti i miei cd. Questa macro dovrebbe far apparire una form e, immessi i dati nelle text box, dovrebbe trovarmi il cd che cerco... dico dovrebbe perche non funzia... ho appena cominciato a programmare in visual basic e con i programmi della microsoft e quindi non Ŕ niente di speciale... se potete darmi una mano...please!
    Posto qui il codice del button che non funziona...

    Private Sub CommandButton1_Click()

    For i = 3 To Cells.Count [va da 3 al numero di celle del foglio]

    While Cells(i, 2).Text <> " " [controlla che esse non siano vuote]
    If TextBox1.Text = Sheets("Foglio1").Cells(i, 2) Then 'Or TextBox2.Text = Sheets("Foglio 1").Cells(i, 3) Then [confronta i testi]

    Sheets("Foglio 1").Cells(i, 2).Select

    Wend

    Next i

    End Sub

  2. #2
    Ex ***** VIPz EstathÚ L'avatar di nicjedi
    Registrato il
    12-02
    LocalitÓ
    non vivo
    Messaggi
    16.148

    Re: Macro in excel

    Cthulhu

    Ho creato una macro con il visual basic editor di microsoft excel in un documento dove ho catalogato tutti i miei cd. Questa macro dovrebbe far apparire una form e, immessi i dati nelle text box, dovrebbe trovarmi il cd che cerco... dico dovrebbe perche non funzia... ho appena cominciato a programmare in visual basic e con i programmi della microsoft e quindi non Ŕ niente di speciale... se potete darmi una mano...please!
    Posto qui il codice del button che non funziona...

    Private Sub CommandButton1_Click()

    For i = 3 To Cells.Count [va da 3 al numero di celle del foglio]

    While Cells(i, 2).Text <> " " [controlla che esse non siano vuote]
    If TextBox1.Text = Sheets("Foglio1").Cells(i, 2) Then 'Or TextBox2.Text = Sheets("Foglio 1").Cells(i, 3) Then [confronta i testi]

    Sheets("Foglio 1").Cells(i, 2).Select

    Wend

    Next i

    End Sub
    Conosco il VB, ma non benissimo il VBA, cmq ci sono vari errori:
    1) per controllare che non sia vuoto devi usare "", e non " "
    2) Non chiudi l'If con un End if
    3) Cosa fa all'interno dell'if?
    4) Dopo il Next non ci va l'i (credo)

    Ciao

    Nicola
    "La violenza Ŕ l'ultimo rifugio degli incapaci"
    "Non lasciare mai che la morale ti impedisca di fare la cosa giusta"
    "La disumanitÓ del computer sta nel fatto che, una volta programmato e messo in funzione, si comporta in maniera perfettamente onesta."
    "fare molte cose alla volta significa non farne bene nessuna"


Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •