web-dev-qa-db-fra.com

EXCEL VBA Vérifie si l'entrée est vide ou non 'espace'

Note. Vérifiez si le TextBox1 est vide, c’est facile en utilisant TextBox1.Value = "".

Mais le problème vient du moment où l'utilisateur appuie sur la touche spacebar, TextBox1 le reconnaîtra toujours comme une valeur. Dans ce cas, mes données apparaîtront sous la forme d'une cellule vide contenant 1 space. Donc, ma question est la suivante: existe-t-il une méthode pour vérifier TextBox1.value pour vide et ne contient pas non plus de space s’il existe un ou plusieurs space? Millions merci à tous.

28
4 Leave Cover

Une astuce courante consiste à vérifier comme ceci:

trim(TextBox1.Value & vbnullstring) = vbnullstring

cela fonctionnera pour les espaces, les chaînes vides et les valeurs null authentiques

63
Lord Peter

La version la plus succincte à laquelle je puisse penser

Len(Trim(TextBox1.Value)) = 0

Si vous devez le faire plusieurs fois, enveloppez-le dans une fonction

Public Function HasContent(text_box as Object) as Boolean
    HasContent = (Len(Trim(text_box.Value)) > 0)
End Function

Usage

If HasContent(TextBox1) Then
    ' ...
20
pyrospade

Voici le code pour vérifier si la valeur est présente ou non.

If Trim(textbox1.text) <> "" Then
     'Your code goes here
Else
     'Nothing
End If

Je pense que ça aidera.

1
Kanwaljeet Mehta