Comment autoriser uniquement les nombres négatifs dans Excel?
Dans Excel, comment autoriser uniquement la saisie de nombres négatifs? Cet article présente quelques astuces utiles et rapides pour vous permettre de résoudre cette tâche.
Autoriser uniquement les nombres négatifs dans Excel avec la validation des données
Autoriser uniquement les nombres négatifs dans Excel avec le code VBA
Autoriser uniquement les nombres négatifs dans Excel avec la validation des données
Normalement, le Validation des données La fonction peut vous aider, procédez comme suit:
1. Sélectionnez les cellules ou la colonne que vous souhaitez autoriser uniquement à saisir des nombres négatifs, puis cliquez sur Données > Validation des données > Validation des données, voir capture d'écran:
2. Dans le Validation des données boîte de dialogue, sous la Paramètres onglet, effectuez les options suivantes:
(1.) Dans le Autoriser section, choisissez Décimal dans la liste déroulante;
(2.) Dans le Données section, veuillez choisir inférieur ou égal à l'option;
(3.) Enfin, entrez le numéro 0 into the Maximum zone de texte.
3. Puis clique OK, et maintenant, seuls les nombres négatifs et 0 sont autorisés à être entrés, si un nombre positif est entré, il affichera un message d'avertissement, voir capture d'écran:
Autoriser uniquement les nombres négatifs dans Excel avec le code VBA
Voici un code VBA qui peut également vous aider, avec le code suivant, lorsque vous entrez un nombre positif, il sera automatiquement converti en négatif, procédez comme suit:
1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez autoriser uniquement les nombres négatifs, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications fenêtre, veuillez copier et coller le code suivant dans l'espace vide Module:
Code VBA: autoriser uniquement les nombres négatifs dans la feuille de calcul:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A1000"
Dim xRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
If Not Intersect(Target, Range(sRg)) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub
Notes: Dans le code ci-dessus, A1: A1000 correspond aux cellules que vous souhaitez saisir uniquement en nombres négatifs.
2. Ensuite, enregistrez et fermez ce code, revenez en arrière dans la feuille de calcul et maintenant, lorsque vous entrez des nombres positifs dans les cellules que vous avez spécifiées dans le code, les nombres positifs seront automatiquement convertis en nombres négatifs.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
