Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如何删除文本框末尾的回车符_Vba - Fatal编程技术网

Vba 如何删除文本框末尾的回车符

Vba 如何删除文本框末尾的回车符,vba,Vba,我想删除文本字段末尾的额外回车符。我使用了下面的代码,但是它删除了在文本中间移走的回车。我需要移除在按下返回键时添加的末尾 Text50.Text=ReplaceText50.Text,vbCrLf Text50.Text=RTrimText50.Text 请建议我如果您确定文本框的末尾始终有一个vbcrlf,您可以使用此选项: left(Text50.Text ,len(Text50.Text)-2) 请注意,vbcrlf的长度为2,因为它被视为2个字符:carrige return和lin

我想删除文本字段末尾的额外回车符。我使用了下面的代码,但是它删除了在文本中间移走的回车。我需要移除在按下返回键时添加的末尾

Text50.Text=ReplaceText50.Text,vbCrLf

Text50.Text=RTrimText50.Text


请建议我

如果您确定文本框的末尾始终有一个vbcrlf,您可以使用此选项:

left(Text50.Text ,len(Text50.Text)-2)
请注意,vbcrlf的长度为2,因为它被视为2个字符:carrige return和line feed

如果不确定最后一个字符是否为vbcrlf,可以使用以下方法:

If Right(Text50.Text, 2) = vbCrLf Then
  Text50.Text = Left(Text50.Text, Len(Text50.Text) - 2)
Else
  Text50.Text = Text50.Text
End If