È spesso comodo generare numeri del conto per i Loro clienti. Se hanno molti cusÂ-tomers, probabilmente non vogliono fare questo a mano, comunque. Un modo semplice di generare un numero del conto è quello di semplicemente prendere i primi caratteri n nel nome del cliente e conÂ-vert loro a lettere uppercase. Ad esempio, se fanno un cliente chiamare in cella A2, la formula seguente genera un numero del conto di cinque caratteri:

=UPPER (LASCIATO (A2, 5))

Qui, il SINISTRO () la funzione estrae caratteri dal di sinistra del valore in A2, e il SUPERIORE () la funzione li converte in uppercase.

Questo è eccellente, ma che se hanno nomi di cliente che condividono i cinque primi caratteri? O, ancora più astuto, che se hanno nomi di cliente dove i cinque primi caratteri includono un o più spazi, i periodi, le lineette, o i caratteri stranieri? In altre parole, quello che veramente vogliono fare è generano un numero del conto unico che include solo i caratteri attraverso z e attraverso Z. Per fare questo, abbiamo bisogno di voltarci a VBA. La funzione mostrata nell'Elenco 5.1 genera un tal numero del conto.

Una funzione di VBA che genera un numero del conto di otto caratteri basato sul nome di cliente

Funzione GenerateAccountNumber (strName come spago) come spago

Applicazione. I †Falsi volatili ˜ non ricalcolano il †˜ il †i ~ Inizializzano il †di variabili ˜

Generazione di numeri del conto

i nPos = 1 strTemp = “” il †˜ il †˜ Attraversato i caratteri nel †di nome di cliente ˜ Fanno Mentre nPos <= Len (strName)

i †˜ il †˜ Ottengono il carattere nella posizione data da †nPos ˜ strChar = la Metà (strName, nPos, 1) il †˜ il †˜ il Conto il †di valore di carattere ˜ il Caso Scelto Asc (strChar)

†˜ †˜ Tra A e †Z ˜ Caso 65 a 90

strTemp = strTemp & †strChar ˜ †˜ Tra a e †z ˜ Caso 97 a 122

gli strTemp = strTemp & UCase (strChar) la Fine il †Scelto ˜ il †˜ Se la parte di testo del numero del conto è il †˜ 5 caratteri a lungo, uscite dal †di cappio ˜ Se Len (strTemp) = 5 Allora l'Uscita Fa nPos = nPos + 1

€ di cappio ˜ †˜ Conto per †di fallimento ˜ Se strTemp <> “” Allora

i †˜ il †˜ Se il conto è buono finora, aggiungete un †di numero di 3 cifre casuale ˜ Randomize GenerateAccountNumber = strTemp & il Formato (Rnd * 999, “000 ″)

Altro il †˜ il †˜ Altrimenti, generino un †d'errore ˜ GenerateAccountNumber = “Nessun numero del conto generato!”

Fine se funzione di fine

Popolarità: Il 3% [?]

Pagine: 1 2

È spesso comodo generare numeri del conto per i Loro clienti. Se hanno molti cusÂ-tomers, probabilmente non vogliono fare questo a mano, comunque. Un modo semplice di generare un numero del conto è quello di semplicemente prendere i primi caratteri n nel nome del cliente e conÂ-vert loro a lettere uppercase. Ad esempio, se fanno un cliente chiamare in cella A2, la formula seguente genera un numero del conto di cinque caratteri:

=UPPER (LASCIATO (A2, 5))

Qui, il SINISTRO () la funzione estrae caratteri dal di sinistra del valore in A2, e il SUPERIORE () la funzione li converte in uppercase.

Questo è eccellente, ma che se hanno nomi di cliente che condividono i cinque primi caratteri? O, ancora più astuto, che se hanno nomi di cliente dove i cinque primi caratteri includono un o più spazi, i periodi, le lineette, o i caratteri stranieri? In altre parole, quello che veramente vogliono fare è generano un numero del conto unico che include solo i caratteri attraverso z e attraverso Z. Per fare questo, abbiamo bisogno di voltarci a VBA. La funzione mostrata nell'Elenco 5.1 genera un tal numero del conto.

Una funzione di VBA che genera un numero del conto di otto caratteri basato sul nome di cliente

Funzione GenerateAccountNumber (strName come spago) come spago

Applicazione. I †Falsi volatili ˜ non ricalcolano il †˜ il †i ~ Inizializzano il †di variabili ˜

Generazione di numeri del conto

i nPos = 1 strTemp = “” il †˜ il †˜ Attraversato i caratteri nel †di nome di cliente ˜ Fanno Mentre nPos <= Len (strName)

i †˜ il †˜ Ottengono il carattere nella posizione data da †nPos ˜ strChar = la Metà (strName, nPos, 1) il †˜ il †˜ il Conto il †di valore di carattere ˜ il Caso Scelto Asc (strChar)

†˜ †˜ Tra A e †Z ˜ Caso 65 a 90

strTemp = strTemp & †strChar ˜ †˜ Tra a e †z ˜ Caso 97 a 122

gli strTemp = strTemp & UCase (strChar) la Fine il †Scelto ˜ il †˜ Se la parte di testo del numero del conto è il †˜ 5 caratteri a lungo, uscite dal †di cappio ˜ Se Len (strTemp) = 5 Allora l'Uscita Fa nPos = nPos + 1

€ di cappio ˜ †˜ Conto per †di fallimento ˜ Se strTemp <> “” Allora

i †˜ il †˜ Se il conto è buono finora, aggiungete un †di numero di 3 cifre casuale ˜ Randomize GenerateAccountNumber = strTemp & il Formato (Rnd * 999, “000 ″)

Altro il †˜ il †˜ Altrimenti, generino un †d'errore ˜ GenerateAccountNumber = “Nessun numero del conto generato!”

Fine se funzione di fine

Popolarità: Il 3% [?]

Pagine: 1 2