ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨CÂIÀ»¸ÓÀx¦s®æ¦Û°Ê±q¸ÓÀx¦s®æ¤¤ªº¥|­Ó¦r¤À¥X¨Ó¨ìG,H,I,J©O?

[µo°Ý] ¨CÂIÀ»¸ÓÀx¦s®æ¦Û°Ê±q¸ÓÀx¦s®æ¤¤ªº¥|­Ó¦r¤À¥X¨Ó¨ìG,H,I,J©O?

Àɮצ³»¡©ú

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨

ÁÂÁ¤F

metrostar304.rar (1.94 KB)

¦^´_ 1# metrostar

©ñ¦b sheet ¸Ì­±¸Õ¸Õ,¤£¬O©ñ¦b¼Ò²Õ¸Ì

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column = 3 Or ActiveCell.Column = 4 Then
        For i = 0 To 3
            Cells(ActiveCell.Row, 7 + i) = Mid(ActiveCell, i * 4 + 1, 4)
        Next i
    End If
End Sub

TOP

¦^´_ 1# metrostar
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Dim i%, ii%
  3.     If Target.Column = 3 Or Target.Column = 4 And Target.Row >= 2 Then
  4.         With Range("G" & Rows.Count).End(xlUp).Offset(1)
  5.             ii = 0
  6.             For i = 1 To Len(ActiveCell) Step 4
  7.                 .Offset(, ii) = Mid(ActiveCell, i, 4)
  8.                 ii = ii + 1
  9.             Next
  10.         End With
  11.     End If
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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
½Æ»s¥N½X
¿ý»s¥¨¶°§ï¤@¤U´N¦n¤F metrostar304.rar (8.75 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÙ¦³­Ó«Ü±`¥Îªº¡G
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
   Target.Parse "[xxxx][xxxx][xxxx][xxxx]", Cells(Target.Row, 7)
End Sub

TOP

§¹¥þ¥i¥H­C
¦hÁ¨º»ò¦h¦ì«Ó­ôª©¥D¸ò«Ó­ô¾ÇªøÅo
¾Ç©f«D±`·P°Ê©O
±z­Ì¯u¬O¤Ó±j¤Ó±j¤F°Õ
·PÁ±z­Ì¨Ã¯¬¶P±z­Ì
©¯ºÖ¦n¹B¥Ã»·­°Á{±z­Ì¨­¤W

oobird «Ó­ôª©¥D¼gªºµ{¦¡½X¬Ý°_¨Ó¤ñ¸ûÀ´ªº¤@ÂIÂI

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD