|
その数値データが Sheet1 にあり、A列に昇順で入力されているとして・・
Private Sub CommandButton1_Click()
Dim Num As Long
With TextBox1
If .Value = "" Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Num = CLng(.Value)
End With
With Worksheets("Sheet1")
If IsError(Application.Match(Num, .Range("A:A"), 0)) Then
MsgBox "TextBox1 の値は見つかりません", 48: Exit Sub
End If
.Range("A65536").End(xlUp).Offset(1).Value = Num
.Range("A1", .Range("A65536").End(xlUp)) _
.Sort Key1:=.Columns(1), Order1:=xlAscending, _
Header:=xlNo, Orientation:=xlSortColumns
End With
End Sub
というようなコードで出来ると思います。
行の挿入や削除は処理が遅いので、なるべく使わない方法を考えた方が良いと思います。
|
|