vba编程，单元格内超出的字数自动跳转到下一单元格

[qq_44988928]

想让单元格内只能输入十个字，但超出的字数转到下一单元格

[milaoshu1020]

代码:

Private mblnUpdating As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    If mblnUpdating Then
        Exit Sub
    End If
    
    mblnUpdating = True
    
    Dim strContent As String
    strContent = Target.Text
    
    Dim strTemp As String
    For i = 1 To Len(strContent)
        strTemp = strTemp & Mid(strContent, i, 1)
        
        If i Mod 10 = 0 Then
            SetCellValue Target.Row, Target.Column + (i \ 10) - 1, strTemp
            strTemp = ""
        End If
    Next
    If strTemp <> "" Then
        SetCellValue Target.Row, Target.Column + ((i - 1) \ 10), strTemp
    End If
    
    mblnUpdating = False
End Sub

Private Sub SetCellValue(ByVal intRow As Integer, ByVal intColumn As Integer, ByVal strValue As String)
    Dim objRange As Range
    Set objRange = Cells(intRow, intColumn)
    objRange.NumberFormatLocal = "@"
    objRange = strValue
End Sub

运行示例:


下载地址:
链接：https://pan.baidu.com/s/1WB_W0ph6-JTUcy6KQ3EXBQ
提取码：drtk