想讓單元格內只能輸入十個字，但超出的字數轉到下一單元格
uj5u.com熱心網友回復：
代碼:
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35196.html
標籤：VBA
上一篇：電腦黑屏
下一篇：VBA萌新求助