Fråga : Skriva ordbok

Hi experter, totalt dum förmiddagkänsla för

I, som jag inte kan få makroen nedanför för att fungera - det är härom i den fäste file.
All som jag önskar att göra ska skapa ett unikt listar av objekt i en ordbok och tillverkar den till en arbetssedel. Det kan inte vara mycket lättare. Jag kan göra det med en samling utan även tänkande om det, men… har

I även använt den skriva ordboken lyckat i flera ifrågasätter, men denna tid i mitt försök sparar, I-dunnoen, en ogenomskinlighet har satt över me.

Patrick > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
" codeBody " " >Sub för class= " för
Attachments: för >
<-/div> filenamen " för class= för >Dict-test-01.xls " fileSize " > (30 KB) " javascript för href= " för <-/span>xls <-/div>
för >
<-/div> " klar "

Svar : Skriva ordbok

Patrick,

Några saker, som tilltalas i min artikelhttp://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_3391-Using-the-Dictionary-Class-in-VBA.html

1) I motsats till en samling du kan inte se till objekt i en ordbok using ett index.  Ganska i en ordbok, du kan endast hämta ett singelobjekt, om du levererar dess nyckel-.  Så ditt kretsa:

    För I = 1 till dic. Räkning
        . Celler (I, ”C”) = dic. Objekt (I)
    Därefter i

ska inte för handtag objekt ut från ordboken.  Sannerligen på grund av den implicit ordboken ”tillfoga” uppförande, det kretsar tillfogar faktiskt nya objekt till ordboken:),

2) Du tillfogade faktiskt spänna som det nyckel-, och inte värdera av cellen, i ditt första kretsar:

    För varje celle i rng
        Om inte dic.exists (celle) därefter
            dic. Tillfoga celle, celle
        Avsluta om
    Nästa celle

Stämma, sedan varje cell är ett olikt anmärker, du avslutade faktiskt upp att tillfoga alla de celler som både objekt och

******************,

Så att fixa kodifiera:

1) Passera tydligt värderar av cellerna och inte cellerna sig själv, till ordboken.  Eller använd en samlingöverföring för att skapa en samling i minne, och därefter kretsa till och med samlingen och passera samling värderar till ordboken

2) Dumpa objekten in i en samling

3) Gör en samlingöverföring för att skriva värderar till arbetssedeln

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Undermest dict_test ()
    
    Dunkel rng som spänner
    Dunkel celle som spänner
    Dunkla dic_items som Variant
    Dunkelt I som Long
    Dunkelt x som Variant
    
    Dunkelt dic som Scripting.Dictionary
    Fastställd dic = ny Scripting.Dictionary
    dic.CompareMode = 1
    
    Med täcker (”Sheet1”)
        Fastställd rng = spänner (. Celler (1, ”A”). Celler (. Rows.Count, ”A”). Avsluta (xlUp))
    
        För varje celle i rng
            Om inte dic.exists (celle. Värdera) därefter
                dic. Tillfoga celle. Värdera celle. Värdera
            Avsluta om
        Nästa celle
        
        dic_items = dic. Objekt
        
        . [c: c] .ClearContents
        . [c1]. Resize (dic. Räkna 1) = Application.Transpose (dic_items)
    Avsluta med
    
    Fastställdt dic = ingenting
    
Avsluta suben
Andra lösningar  
 
programming4us programming4us