VBA リストボックス 行移動

Question

リストボックス内の行をボタンで上に移動させる際に、一番上の行を選択して移動ボタンを押した際に何も起こらないようにしたいのですが、移動したファイルがリストボックスから消えてしまいます。
よろしくお願い致します

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定
   ChDrive "C"
   ChDir "C:\test"
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               .AddItem Mid(Target,InstrRev(Target,"\")+1)
               Pathname = Replace(Target, Filename, "")
               .AddItem ""
               .List(BookInput.ListCount - 1, 0) = Filename
               .List(BookInput.ListCount - 1, 1) = Pathname
           Next Target
       End with
   Else
       MsgBox "キャンセルされました"
   End If
End Sub
Private Sub btn_Fileup_Click()
   Dim n As Long, buf1 As String, buf2 As String
On Error Resume Next
Dim n As Long, buf1 As String, buf2 As String
n = BookInput.ListIndex        ''(1)現在選択されている位置を記憶する
buf1 = BookInput.List(n, 0)    ''(2)現在選択されているデータを記憶する
buf2 = BookInput.List(n, 1)    ''(2)現在選択されているデータを記憶する
BookInput.RemoveItem n         ''(3)現在選択されている位置のデータを削除する
BookInput.AddItem "", n - 1    ''(4)1つ上の位置に行を追加する
BookInput.List(n - 1, 0) = buf1 ''(4)1つ上の位置にデータを追加する
BookInput.List(n - 1, 1) = buf2 ''(4)1つ上の位置にデータを追加する
BookInput.ListIndex = n
Exit Sub
End Sub

Answer 1

過去の質問をみていると、自分では1行もコードを書かずに、
書いてもらったコードとやりたいことを質問することの
繰り返しみたいですね。

まずは、コードの意味を理解すること、
あと、デバッグの方法を学習するといいと思います。

下記を参考に、コードをステップ実行して、動作、変数の中身などを確認して、
コードの意味を理解するようにしましょう。

VBA デバッグの仕方

とりあえず今回の質問に対するヒントをだしておくと、
リストの1行目を選択しているときに、下記の変数nにどんな値が
入っているか確認しましょう。
で、その時には、以降の処理をしないように If文を追加しましょう。

n = BookInput.ListIndex         ''(1)現在選択されている位置を記憶する

Comments

[退会済みユーザー]

回答ありがとうございます
試してみます

[hatena19]

せっかくのアドバイスが気に入らなかったのか、質問内容を変更して、退会ですか。
過去の質問も、すべて質問内容を関係ないものに変更しているとは。
私以外の回答者の分も含めて、すべての回答が無意味なものになってしまってますね。
最低の質問者でした。