série de remplissage automatique dans la cellule lorsqu'une cellule différente est éditée

Je souhaite ajouter un numéro séquentiel dans la colonne 1 (donc A1, B1, c1, serait 1,2,3) QUAND j'entre les données dans la colonne 2. Donc Si une cellule n'a pas de valeur, rien n'est entré dans l'autre cellule.série de remplissage automatique dans la cellule lorsqu'une cellule différente est éditée

Le résultat final devrait ressembler à ceci.

 
A- 1 32 
B- 2 18 
C- 3 16 

E- 5  20

C'est pour un nombre de boîtes et une configuration. J'ai essayé quelques choses et il me manque une valeur. Quelqu'un peut-il aider s'il vous plaît?

Source

2010-08-06 Fooz

étiez-vous à la recherche d'une solution VBA pour cela? –

Salut P.campbell, Une réponse de vBA aiderait. Je regarderais n'importe quoi maintenant. C'est en me faisant commencer à tic. – Fooz

Peut-être que cela peut aider, juste dans la cellule A1 utiliser cette formule:

Excel 2007

=IF(LEN(B1)>0;ROW(A1);"")

Excel 2010

=IF(LEN(B1)>0,ROW(A1),"")

Et puis remplissez en bas des cellules avec le formule. Cela va écrire la rangée de cellules quand il trouve quelque chose et un zéro quand il ne marche pas:

1 test 
2 test 
3 test 
0 
5 test 
0 
7 test

Source

2010-08-06 17:07:42 oli206

Si vous changez votre formule pour '= IF (LONGUEUR (B1)> 0; ROW (A1);" ")' (notez la chaîne vide/guillemets doubles) il sera vide s'il n'y a rien dans B1. – mskfisher

Corrigé, Merci mskfisher! :) – oli206

son me donnant une erreur. Je dois le regarder mieux – Fooz

Une façon de résoudre ce problème serait de tirer parti de l'événement Worksheet_Change. De cette façon, vous n'avez pas besoin d'avoir des formules dans votre feuille de calcul:

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Application.Intersect(Target, Range("B:B")) Is Nothing Then 
     End 
    End If 

    Target.Offset(0, -1) = WorksheetFunction.Max(Range("A:A")) + 1 

End Sub

Pour mettre en œuvre ce code:

Dans votre classeur presse ALT + F11 (cela ouvre éditeur VBA)
Ouvrir le Explorateur de projet(CTRL + R)
Double-cliquez sur la feuille que vous souhaitez appliquer au code, par exemple Sheet1
Dans le menu déroulant de gauche, sélectionnez Feuille et dans le menu de droite sélectionnez Modifier
Coupez et collez le code fourni

Hope this helps.

Source

2010-08-07 08:57:12

série de remplissage automatique dans la cellule lorsqu'une cellule différente est éditée

Répondre

Questions connexes