Frage : Daten im Mitgliedstaat Zugang oder Excel umstellen

Ich habe einen Excel-Verteilungsbogen, der Kapitalscodes als Reihenüberschriften hat, und Klientenzahlen als Spaltenüberschriften.  Jeder Klient, der eine entsprechende Kapital hat, hat ein x im Feld unter Reihe der Kapitals (angebrachtes Beispiel sehen - Vorsprung verzeichnen). Ich muss eine Liste von diesem Verteilungsbogen erstellen, der jeden Klienten und Kapital zeigt, die verzeichnet (Resultats-Vorsprung).  Kann jemand, ich dieses entweder im Zugang oder in Excel vollenden kann?

Thanks.
Attachments:
Sample.xls (77 KBs) (Akten-Art Details)
Sample File

Antwort : Daten im Mitgliedstaat Zugang oder Excel umstellen

Der folgende Code scheint, in Excel zu arbeiten.

Dieses kann im Zugang, aber nicht durchaus als bequem getan werden, da es eine sehr lange Anschlussfrage mit.einbezieht (oder VBA Code zu im Allgemeinen ihn für Sie tun).
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:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub TransposeData ()
    
    LastR als lang, LastC als lang verdunkeln
    Arr als Variante verdunkeln
    DestR als lang verdunkeln
    CounterR als lang, CounterC als lang verdunkeln
    
    Mit Anwendung
        .ScreenUpdating = falsch
        . Berechnung = xlCalculationAutomatic
    Ende mit
    
    Mit ThisWorkbook.Worksheets („Liste“)
        LastR =. Zellen (. Rows.Count, „a“). Ende (xlUp). Reihe
        LastC =. Zellen (1. Columns.Count). Ende (xlToLeft). Spalte
        arr =. Strecke (. Zellen (LastR, „a“). Zellen (1, LastC)). Wert
    Ende mit
    
    Worksheets.Add
    DestR = 1
    
    Mit ActiveSheet
        . Strecke („a1: c1“) = Reihe („Klient“, „Code“, „Fund#")
        Für CounterR = 2 zu UBound (arr, 1)
            Für CounterC = 3 zu UBound (arr, 2)
                Wenn Ordnung (arr (CounterR, CounterC))  <> "" Dann
                    DestR = DestR + 1
                    . Zellen (DestR, 1) = arr (1, CounterC)
                    . Zellen (DestR, 2) = arr (CounterR, 1)
                    . Zellen (DestR, 3) = arr (CounterR, 2)
                Beenden wenn
            Zunächst
        Zunächst
        . Columns.AutoFit
        . [a1]. Art Key1: =. [a1], Key2: =. [c2], Order1: =xlAscending, Order2: =xlAscending, Überschrift: =xlYes
    Ende mit
    
    Mit Anwendung
        .ScreenUpdating = ausrichten en
        . Berechnung = xlCalculationAutomatic
    Ende mit
    
    MsgBox „getan“
    
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us