☰

输入一定数量的字符后自动转到下一行

tag-icon • tag-icon microsoft-excel-2007
输入一定数量的字符后自动转到下一行

我正在创建一个 Excel 表，其中有一个列宽为 58 个字符的评论部分。

有人输入评论时，一旦在上面一行输入 55 个字符，评论是否能自动转到下一行？我不想使用换行文本，需要保留此部分中的行。

答案1

您可以使用 VBA 和Worksheet_Change事件

这是一个起点

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String
    If Target.Cells.Count = 1 Then
        If Target.Column = 3 Then  ' Only Column C
            If Not Target.HasFormula Then
                If Len(Target) > 55 Then
                    str = CStr(Target)
                    Target = Left$(str, 55)
                    Target.Offset(1, 0) = Mid$(str, 56)
                End If
            End If
        End If
    End If
End Sub

您需要进行修改以满足您的确切需求

相关内容