主页 / 问题 / 1595555
Accepted
Aviatorovich-off
Asked:2024-10-03 13:58:55 +0000 UTC2024-10-03 13:58:55 +0000 UTC

在 Excel 中处理文本和单元格

  • 772

一切顺利！实际的问题是：Excel（与 VBA 一起）可以使当我在单元格 A1 中输入一些文本并且行（文本）长度达到 30 个字符时，光标本身移动到单元格 A2 并且我继续输入文本。是否对文字的完整性进行了检查？

excel

1 个回答

  1. Best Answer

    在此输入图像描述

    Option Explicit

Sub LimitedInput()
  Dim s As String, t As String, sa, i As Long, j As Long, k As Long
  Do
    s = InputBox("Введите текст")
    If s = "" Then Exit Do
    sa = Split(s): t = ""
    For j = LBound(sa) To UBound(sa)
      If Len(t) + Len(sa(j)) < 30 Then
        t = t & " " & sa(j)
      Else
        ActiveCell.Offset(i, 0) = Mid(t, 2)
        i = i + 1: t = " " & sa(j)
      End If
    Next
    If Len(t) > 0 Then
      ActiveCell.Offset(i, 0) = Mid(t, 2)
      i = i + 1
    End If
  Loop
End Sub

    在此输入图像描述

    • 0

相关问题