如何判断多行文本框首行是否为空？VBA用户表单更新问题

问题场景 #

通过用户表单维护项目动态更新列表，添加新更新时自动为注释添加日期；但现有代码在文本框已有旧更新时，会生成类似12/14 - 的空行，需优化判断逻辑避免此问题。

现有代码问题分析 #

现有代码仅判断控件值是否为空字符串，但未处理控件内的空白字符（如空格、换行符），且直接在单元格前追加换行，当单元格已有内容时可能导致开头空行，或控件内仅含空白字符时生成无内容的日期行。

解决方案 #

1. 先清理控件内容的无效空白：用Clean函数清除非打印字符，再用Trim去除首尾空格，确保仅当有实际内容时才添加日期行。
2. 判断单元格状态再追加内容：避免直接开头加换行，单元格为空时直接赋值，不为空时追加换行+日期+内容。
3. 可选：判断文本框首字符/首行是否为空：通过Left函数检查首字符是否为空白或换行符，进一步过滤无效输入。

修改后的完整代码 #

' 检查并添加带日期的新更新，避免空行
Dim newComment As String
Dim ctrl As Control
Set ctrl = Me.Controls("Comments" & i)

' 清理控件内容：清除非打印字符+去除首尾空格
newComment = Trim(Application.WorksheetFunction.Clean(ctrl.Value))

' 仅当清理后有实际内容时执行更新
If newComment <> "" Then
    With ws.Range("J" & i + 1)
        If .Value = "" Then
            ' 单元格为空，直接写入日期+内容
            .Value = Format(Now(), "mm/dd") & "-" & newComment
        Else
            ' 单元格已有内容，追加换行+日期+内容
            .Value = .Value & vbCrLf & Format(Now(), "mm/dd") & "-" & newComment
        End If
    End With
End If
Next i

单独判断文本框首字符/首行是否为空的方法 #

如果需要直接检查文本框的首字符或首行是否为空白，可使用以下逻辑：

Dim ctrlValue As String
ctrlValue = Me.Controls("Comments" & i).Value

' 判断首字符是否为空白（空格、回车、换行）
If Len(ctrlValue) > 0 Then
    Dim firstChar As String
    firstChar = Left(ctrlValue, 1)
    If firstChar = " " Or firstChar = vbCr Or firstChar = vbLf Then
        ' 首字符为空白，视为无有效内容
        ' 执行对应处理逻辑
    End If
End If

' 或者判断首行是否为空（按换行分割首行）
Dim firstLine As String
firstLine = Split(ctrlValue, vbCrLf)(0)
If Trim(firstLine) = "" Then
    ' 首行为空，视为无有效内容
End If

内容的提问来源于stack exchange，提问作者TheGarbinger