Astuces Excel
  1. Astuces Excel
  3. faire une valeur de cellule 0 si une autre valeur de cellule> 0 utilisant excel
Intereting Posts
Tableau croisé dynamic Afficher les détails Destination Lecture et affichage des lists valeur par code VBA Presser de manière programmée entrer sur IE avec l'automation Excel VBA "Press Enter to Search" Ignorer l'erreur de requête SQL dans la macro Excel Comment mettre à jour les informations de table de la database sql avec le file Excel à l'aide du file téléchargé Ecriture du contenu .txt basé sur le Web avec Excel en utilisant Python Enregistrement automatique des données d'une feuille Excel à une autre, mais même si elle est supprimée de la fiche maîtresse Ruban Excel ajoutant ses propres tabs Comment copyr des lignes si la colonne contient du text / valeur spécifique dans Excel? Fonction Excel AverageIF: ne prenant que les premières lignes X répondant aux critères Powershell: comment faire reference à une application Excel spécifique si plus d'une application Excel est ouverte Excel – pour sélectionner automatiquement une cellule qui trouve une année et un nombre correspondant Calculer la différence semaine à semaine dans Excel Commande sql pour lire une feuille particulière, une colonne Deux questions Excel – find des valeurs de string et save la feuille de calcul Excel

faire une valeur de cellule 0 si une autre valeur de cellule> 0 utilisant excel

 
AB 0 1 2 0 3 0 0 4 5 0

Si j'écris quelque chose sur Cell. (A1) = 0, il crée une cellule (B1) = 0 automatiquement.
Si j'écris quelque chose sur la cellule. (B1) = 0, il fait de la cellule (A1) = 0 automatiquement.

Supposons que vous souhaitiez des valeurs de base dans la colonne B sur les valeurs sur la valeur A.

Ensuite, votre code devrait ressembler à ceci: 

 Sub fillValues() Dim i, k As Integer k = Cells(1, 1).CurrentRegion.Rows.Count 'determine last row For i = 1 To k If Cells(i, 1).Value > 0 Then Cells(i, 2).Value = 0 End If Next i End Sub

Si vous voulez que les valeurs de auto chenge une fois que vous entrez une valeur de 0 n'importe où dans les colonnes A: B, vous devez avoir votre code dans l'événement Worksheet_Change .

Remarque: je ne suis pas sûr de sous-prévoir si vous voulez mekt l'autre cellule 0 lorsque vous modifiez une des cellules sur 0 ou sur 0 . 

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Columns("A:B")) Is Nothing Then ' check if a cell in Columns A:B is changed If Target.Value = 0 Then '<-- if the value changed is 0 ' option 2 to your post 'If Target.Value > 0 Then '<-- if the value changed is > 0 Select Case Target.Column '<-- check which column modifed, A or B Case 1 Target.Offset(, 1).Value = 0 Case 2 Target.Offset(, -1).Value = 0 End Select End If End If Application.EnableEvents = True End Sub