|
各セルに入力するところが分からないのでしょーか ?
ちょっとやり方を変えて・・
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, x As Long
With Target
If .Address <> "$A$1" Then Exit Sub
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsNumeric(.Value) Then Exit Sub
Application.EnableEvents = False
For i = 0 To 9
x = InStr(1, i, .Value)
If x > 1 Then
.Offset(, 1).Value = Left(.Value, x - 1)
.Offset(, 2).Value = Mid(.Value, x)
Exit For
End If
Next i
End With
Application.EnableEvents = True
End Sub
というイベントマクロをシートモジュールに入れ、A1に "文字+数値" のデータを
入力してみて下さい。
|
|