Hsieh

回復 1# metrostar

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
   
3. Application.DisplayAlerts = False
   
4.     Selection.TextToColumns Destination:=Range("G" & Selection.Row), DataType:=xlFixedWidth, _
   
5.         FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(12, 1)), _
   
6.         TrailingMinusNumbers:=True
   
7. Application.DisplayAlerts = True
   
8. End Sub

複製代碼

錄製巨集改一下就好了 metrostar304.rar (8.75 KB)

下載次數: 11

2010-8-19 20:22