luhpro

回復 1# 棋語鳥鳴
若單純只是對儲存格內容做自動斷行處理那是做得到的.

但若想在輸入過程中就要處理的話,
我目前還沒試出方法,
所以就先提供一半的功能囉.
自動斷行-Ans.zip (11.88 KB)

自動斷行-Ans.xls
下載次數: 14

2011-10-1 10:07

luhpro

回復 3# 棋語鳥鳴
喔...
那就很簡單了, 只要有底下的程式就可其他的都可以拿掉了 :

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Dim sStr$
   
3.   Dim iI%
   
4.   Dim lJ As Long, lLen As Long
   
5.   
   
6. On Error GoTo ErrorHandler
   
7. 
   
8. Application.EnableEvents = False
   
9.   With Target
   
10.     sStr = .Value
    
11.     lLen = Len(sStr)
    
12.     iI = 0
    
13.     lJ = 1
    
14.     Do While lJ < lLen
    
15.       If Mid(sStr, lJ, 1) = "," Then iI = iI + 1
    
16.       If iI = 4 Then
    
17.         .Value = Left(sStr, lJ) & Chr(10) & Right(sStr, Len(sStr) - lJ)
    
18.         sStr = .Value
    
19.         lLen = Len(sStr)
    
20.         lJ = lJ + 1
    
21.         iI = 0
    
22.       End If
    
23.       lJ = lJ + 1
    
24.     Loop
    
25.   End With
    
26. Application.EnableEvents = True
    
27. Exit Sub
    
28. 
    
29. ErrorHandler:
    
30.     Select Case Err.Number
    
31.       Case 13 ' 刪除列會導致 Target 為 Null 此時引用 .Value 會發生錯誤
    
32.         sStr = ""
    
33.     End Select
    
34.     Resume Next
    
35. End Sub

複製代碼