Newsgroup: it.comp.lang.visual-basic
Titolo: !!!!!!!!!!!cerco aiuto grazie!!!!!!!!!!!

saluto tutto il ng
io sono un neofita di visual basic
sto usando l'editor di exel
sto cercando di fare una macro che svolga la funzione trova
cioč mi spiego meglio
questa macro dovrebbe andare a cercare in un ciclo di for  una parola o una
parte di parola da me inserita
ed una volta trovata questa parte di parola nel ciclo
dovrebbe elencare tutte le frasi che contengono quella parola
secondo voi čsemplice oppure no????
la mia difficolta sta nel cercare quella parola
mica qualcuno di voi possiede una parte di codice che fa questo
grazie in partenza

 ha scritto nel messaggio
news:S4J66.9533$eB2.1...@news.infostrada.it...

Dove la devi cercare la parola?
se in una stringa puoi usare la funzione " instr "
o puoi fare un ciclo che fa lo scan di tutta la stringa!
--
 ___________________________
(_________By Dany ___________)
(___________________________)
(_____ 
dan...@libero.it
 _______)
(___________________________)

Ciao
se ti puo' servire:
Option Explicit
Private Sub Command1_Click()
    '//supponendo di avere:
    '//     una Text1Box multilinea
    '//     dove scrivo il testo su cui eseguire la ricerca
    '//     una Tex2Box
    '//     contente la frase da cercare
    '//     una List1Box
    '//     in cui inserire le frasi trovate
    Dim Riga As String, Stringa As String
    Riga = Text1
    Do While Riga <> ""
        Stringa = Cerca(Riga, vbCrLf)
        If InStr(1, Stringa, Text2) <> 0 _
        And Not IsNull(InStr(1, Stringa, Text2)) _
        Then List1.AddItem Stringa
    Loop
End Sub
Function Cerca(Stringa As String, Carattere As String) As String
    Dim X As Long, Y As Integer
    '// la funzione restituisce Stringa
    '// fino a Carattere
    '// il carattere separatore viene
    '//sempre escluso
    Y = Len(Carattere)
    X = InStr(1, Stringa, Carattere)
    If X Then
        If X = 1 Then
            Cerca = ""
        Else
            Cerca = Mid(Stringa, 1, X - 1)
        End If
        Stringa = Mid$(Stringa, X + Y)
    Else
       '//se non trova l'occorrenza il contenuto di Stringa
       '//passa alla funzione e viene azzerata
       Cerca = Stringa
       Stringa = ""
    End If
End Function
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------

 dovrebbe elencare tutte le frasi che contengono quella parola
Ammettiamo che le celle da controllare siano le 15 da A2 a A16 e che tu
voglia scrivere il risultato nelle celle da C2 a C16:
Dim testo As String
Dim contenuto As String
Dim risultato(15) As String
Dim trovati As Integer
testo = InputBox("Inserisci il testo da cercare", "Ricerca")
Range("a1").Select
trovati = 0
For a = 1 To 15
    ActiveCell.Offset(1, 0).Range("A1").Select
    contenuto = ActiveCell.Value
    If InStr(contenuto, testo) > 0 Then
        trovati = trovati + 1
        risultato(trovati) = contenuto
    End If
Next a
Range("c1").Select
ActiveCell.Value = "Trovate N° " & trovati & " occorrenze:"
For a = 1 To 15
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.Value = risultato(a)
Next a
PS
Certamente il codice è migliorabilissimo e da adattare.
Ciao

 la mia difficolta sta nel cercare quella parola
1. Visita il Sito comune di questo ng:
 
http://www.murialdo.it/it_lang_vb
2. Cerca il Manifesto di questo ng e leggilo;
3. Conformati alle norme per la redazione dei post;
4. Evita il crosspost.
Apri Excel e digita i seguenti valori:
  A
1 Pippo
2 Pluto
3 Paperino
4 Topolino
Avvia il registratore macro ed effettua la ricerca della parola "Pluto"
nell'intervallo "A1:A4". Interrompi la registrazione. Dovresti aver ottenuto
qualcosa del genere:
Option Explicit
  Sub Macro1( _
  )
    Application.Goto Reference:="R1C1:R4C1"
    Selection.Find( _
        What:="pluto" _
      , After:=ActiveCell _
      , LookIn:=xlFormulas _
      , LookAt:=xlPart _
      , SearchOrder:=xlByRows _
      , SearchDirection:=xlNext _
      , MatchCase:=False _
      ).Activate
  End Sub
Cerca nella guida la voce "Find" e sperimenta gli esempi proposti. Come vedi
non e` necessario un ciclo for..next.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

sto usando l'editor di exel !!!!!  :oj
chiedo umilmente scusa a tutto il NG
Ciao, beppe
