Condividi tramite

Ricerca excel

Anonimo
2009-08-02T14:30:38+00:00

Ciao ragazzi,

ho un problema con il mio Excel 2007 di cui non trovo soluzione apparente: forse è un bug?

Passo all'esempio.

Creo un nuovo foglio di lavoro, nella cella A1 inserisco una parola a caso e nelle celle A1:A2 vi aggiungo anche un colore di riempimento come sfondo.

Poi prendo queste 2 celle e le copio in A4:A5.

Ora, se io seleziono la colonna, clicco su trova e lascio la casella di ricerca vuota, lui mi trova la casella A2, poi se clicco ancora la A3, la A5 ecc.

Io però devo fare in modo che mi selezioni direttamente la cella A3, quindi quando vado in trova, clicco su formato, riempimento e metto nessun colore.

Poi ri-seleziono la colonna, clicco su trova e magicamente mi compare un messaggio che mi dice che è impossibile trovare i dati cercati.

Perché? E come fargli individuare questa cella allora?

Grazie

__________________

Mai visto una idea regalo così! (cadeaux mariage in francese o 18 gift in inglese), tampone

Microsoft 365 e Office | Installare, riscattare, attivare | Per la casa | Altro

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

Anonimo
2009-08-04T09:23:19+00:00

Visto che il problema è stato postato anche in m.p.i.o.e., *di là* siamo arrivati più o meno qui.

Questa evidenzia le celle della colonna A

che sono vuote e senza colore di riempimento:

Public Sub m()

On Error GoTo RigaErrore

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim lUltRiga As Long

    Dim rng As Range

    Set sh = Worksheets("Foglio1")

    With sh

        lUltRiga = .Range( _

            "A" & .Rows.Count).End(xlUp).Row

        For lRiga = 1 To lUltRiga

            If .Cells(lRiga, 1).Interior.ColorIndex = _

                xlNone And .Cells(lRiga, 1).Value = "" Then

                If rng Is Nothing Then

                    Set rng = .Range( _

                        .Cells(lRiga, 1).Address)

                Else

                    Set rng = Union(.Range( _

                        .Cells(lRiga, 1).Address), rng)

                End If

            End If

        Next

    End With

    rng.Select

RigaChiusura:

    Set rng = Nothing

    Set sh = Nothing

    Exit Sub

RigaErrore:

    MsgBox Err.Number & vbNewLine & Err.Description

    Resume RigaChiusura

End Sub


-- --------------------------- Mauro Gamberini http://www.riolab.org/ http://blog.maurogsc.eu/ http://social.microsoft.com/Forums/it-IT/officeit/threads

La risposta è stata utile?

0 commenti Nessun commento

5 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2009-08-03T13:48:06+00:00

    a) metto 2 valori in A1:A2 e coloro lo sfondo

    Non riesci a replicarlo perchè non è corretta l'operazione che fai in questo punto. :-D

    Correggi in:

     a1) metto un valore in A1 (e solamente in A1)

     a2) coloro lo sfondo in A1:A2

    Ciao

    Roberto

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2009-08-03T09:59:28+00:00

    Ciao Roberto.

    Cosa non ho capito.

    Se io faccio quanto mi sembra esposto:

    a) metto 2 valori in A1:A2 e coloro lo sfondo

    b) copio in A4:A5

    c) seleziono colonna A

    d) Ribbon: Home Pulsante: Trova e seleziona/Trova

    e) lascio bianco e premo Trova successivo

    mi trovo in A3. Come mi aspetto.


    -- --------------------------- Mauro Gamberini http://www.riolab.org/ http://blog.maurogsc.eu/ http://social.microsoft.com/Forums/it-IT/officeit/threads

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2009-08-03T08:32:28+00:00

    Io però devo fare in modo che mi selezioni direttamente la cella A3, quindi quando vado in trova, clicco su formato, riempimento e metto nessun colore.

    Poi ri-seleziono la colonna, clicco su trova e magicamente mi compare un messaggio che mi dice che è impossibile trovare i dati cercati.

    Perché? E come fargli individuare questa cella allora?

    Confermo il comportamento che hai segnalato, ma non sono sicuro che sia un bug. Semplicemente ci sono elementi di cui non stiamo tenendo conto.

    Premesso che non riesco poi a capire il motivo per cui vuoi pilotare i risultati della ricerca, direi che la soluzione migliore è quella di indicare la tua cella A3 come campione per il formato (è una delle possibilità associate al pulsante "Formato" nella finestra di dialogo "Trova").

    Facendo qualche registrazione di macro ho verificato che indicando la cella come campione vengono presi in considerazione i bordi della cella, e questi sono gli unici elementi che differenziano la ricerca. Il problema sta nel fatto che se imposti manualmente i bordi attraverso l'interfaccia di selezione formato vengono considerati i bordi associati alle costanti xlEdgeLeft, xlEdgeRight, xlEdgeTop ed xlEdgeBottom, mentre se viene scelto di usare la cella campione vengono considerati i bordi associati alle costanti xlLeft, xlRight ed xlBottom (che hanno valori differenti e praticamente non rientrano nell'enumerazione ufficiale da usare per i bordi).

    Detto questo, io cercherei di approcciare la tua necessità in maniera differente. Purtroppo non avendo chiaro il requisito iniziale (capire il perchè vuoi che sia individuato A3 come risultato della ricerca) non posso suggerirti altri metodi pratici.

    Ciao

    Roberto

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2009-08-03T07:50:36+00:00

    <tu>

    Creo un nuovo foglio di lavoro, nella cella A1 inserisco una parola a caso e nelle celle A1:A2 vi aggiungo anche un colore di riempimento come sfondo.

    Poi prendo queste 2 celle e le copio in A4:A5.

    Ora, se io seleziono la colonna, clicco su trova e lascio la casella di ricerca vuota, lui mi trova la casella A2,

    </tu>

    A me, seguendo la tua procedura trova A3.


    -- --------------------------- Mauro Gamberini http://www.riolab.org/ http://blog.maurogsc.eu/ http://social.microsoft.com/Forums/it-IT/officeit/threads

    La risposta è stata utile?

    0 commenti Nessun commento