Questione : Procedura di bisogno: Contare il numero dei tempi di multiplo di file

Hey i tipi, il

I hanno un concetto di programmazione generale che non posso affrontare molto bene.

So ho una colonna dei numeri (soltanto 0s e 1s) e devo visualizzare l'inizio ed arrestare la posizione per tutto 1s. Per esempio il

1
1
1
0
0
1
1
0
1
1
1
1
0
1
0

would ha prodotto: il
1-3, 6-7, 9-12, 14

I ha generato i cicli differenti ed ha avuto alcune idee, ma non può afferrare questa idea completamente ora.  Può essere perché è venerdì o quello sono ritardato. Uno dei due.  Se chiunque potesse aiutare, sarebbe notevolmente appreciated.

Thanks!
Rob class= del

Risposta : Procedura di bisogno: Contare il numero dei tempi di multiplo di file

Non ho verificato gli altri suggerimenti, così le mie scuse se stia offrendo qualcosa che già fosse provato:)

Ciò funziona come funzione.  Così, se avete il vostri 1s e 0s per esempio in A1: A50, allora in altra cellula usereste:

=MakeTheList (A1: A50)
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:
36:
37:

Funzione MakeTheList (ArrayIn come variante)
    
    X fioca come variante
    StartAt fioco come lungamente, EndAt come lungamente
    Contatore fioco come lungamente
    
    Delimitatore di Const come stringa = “,„
    
    Per ogni x in ArrayIn
        Contatore = contro + 1
        Se x <> 0 allora
            EndAt = contro
            Se StartAt = 0 allora StartAt = contro
        Altrimenti
            Se EndAt <> 0 allora
                Se StartAt <> EndAt allora
                    MakeTheList = MakeTheList & delimitatore & StartAt & “-„ & EndAt
                Altrimenti
                    MakeTheList = MakeTheList & delimitatore & StartAt
                Concluder se
                StartAt = 0
                EndAt = 0
            Concluder se
        Concluder se
    Dopo
    
    Se StartAt <> 0 allora
        Se StartAt <> EndAt allora
            MakeTheList = MakeTheList & delimitatore & StartAt & “-„ & EndAt
        Altrimenti
            MakeTheList = MakeTheList & delimitatore & StartAt
        Concluder se
    Concluder se
    
    MakeTheList = metà di (MakeTheList, Len (delimitatore))
    
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us