Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

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

Digitazione facilitata Excel

Postdi magick » 17/04/15 17:24

Ciao a tutti, mi rifaccio a un precedente topic per cercare di avere chiarimenti sulla digitazione facilitata con Excel (viewtopic.php?t=94349). Ho utilizzato la macro proposta da Flash per avere i suggerimenti in fase di digitazione di un campo (comuni italiani) prendendo i dati da un database di 17981 record (tutti i comuni!). Ho assegnato un nome all'elenco e convalidato i dati, così facendo però la macro non funziona. L'obiettivo è avere i nomi dei comuni identici a quelli presenti nel database, dato che poi vanno incrociati con altri dati.
Sapete aiutarmi?
magick
Newbie
 
Post: 7
Iscritto il: 02/10/08 18:03

Sponsor
 

Re: Digitazione facilitata Excel

Postdi Anthony47 » 18/04/15 02:33

Non ho capito quale soluzione hai provato.
Io userei una "casella combinata", di cui imposterei la proprieta' ListFillRange per copiare l' elenco dei comuni; oppure la Convalida da elenco (che e' forse quello che hai fatto).

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Digitazione facilitata Excel

Postdi magick » 18/04/15 11:36

Ho praticamente provato il consiglio di Flash in quel topic, creato la convalida dati che mi ha dato un menù a tendina con la lista di tutti i comuni e inserito poi la macro da lui proposta.

Codice: Seleziona tutto
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    CheckArea = "C2:C10000"
    If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
        If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
            Application.ScreenUpdating = False
            Application.Calculation = xlManual
    RArt = Target.Row
    ArtV = Target.Value
        If ArtV <> 0 Then
            UR = Range("A" & Rows.Count).End(xlUp).Row
        For R = 1 To UR
            If ArtV = Mid(Range("A" & R).Value, 1, Len(ArtV)) Then
                Target.Value = Range("A" & R).Value
                GoTo esci
            End If
        Next R
    esci:
    End If
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    End Sub


Ovviamente la convalida dati è la cosa più semplice, ma capisci che con migliaia di record trovare il comune giusto richiede tempo. Io vorrei una soluzione che iniziando a digitare le lettere lui mi suggerisca solo i comuni che contengono quelle lettere, per cui se scrivo le lettere "ro" lui mi indichi come possibilità Roma, Rovigo ecc...
magick
Newbie
 
Post: 7
Iscritto il: 02/10/08 18:03

Re: Digitazione facilitata Excel

Postdi Anthony47 » 19/04/15 14:13

Come detto io userei un combobox, come ho fatto nell' esempio del file allegato:
https://www.dropbox.com/s/n3muxnuj5fuwx ... .xlsm?dl=0

Selezionando in Foglio1 una cella tra quelle in giallo si attiva un combobox; cominciando a digitare, l' elenco di valori da cui scegliere sara' sempre piu' ridotto.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Digitazione facilitata Excel

Postdi magick » 20/04/15 10:19

Ottima soluzione, grazie Anthony47 :)
E' possibile spostare la colonna D in un'altro foglio, lasciando nel foglio 1 solo il DB?
magick
Newbie
 
Post: 7
Iscritto il: 02/10/08 18:03

Re: Digitazione facilitata Excel

Postdi magick » 20/04/15 14:25

Risolto. Grazie per l'aiuto ;)
magick
Newbie
 
Post: 7
Iscritto il: 02/10/08 18:03

Re: Digitazione facilitata Excel

Postdi Anthony47 » 20/04/15 23:30

Se diffondi il file ti chiedo di pubblicare il link a questa discussione.
(Non basta dire "su internet" o "su altro forum")
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Digitazione facilitata Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti