リストボックス内の上下移動について

Question

・リストボックス内で上の端にある場合上に順序をいれかえると消えてしまいます。

※下の端にある場合、下に移動させると同じように消えてしまいます。

Private Sub btn_ListUp_Click()

Application.ScreenUpdating = False
On Error GoTo ErrLabel

Dim n As Long,buf1 As String,buf2 As String

n = Listbox1.Listindex
buf1 = ListBox.List(n,0)
buf2 = ListBox.List(n,1)

ListBox1.RemoveItem n
ListBox1.AddItem ““,n-1
ListBox1.List(n-1,0) = buf1
ListBox1.List(n-1,1) = buf2
ListBox1.ListIndex = n-1
Exit Sub

Errlabel:
 MsgBox “移動するものが見つかりません。“
End Sub

よろしくお願い致します。

Comments

[ExcelVBAer]

上の端にあるものを、上に移動させるってどういうことですか？移動する必要ないのでは？ステップ実行してデバッグしました？

Answer 1

リストボックスの上端にあるときはインデクスが0ですので、
プログラム中のステートメント

ListBox1.AddItem "",n-1

で挿入しようとしているインデクスが-1となり正常に動作しません。
※Excel2010で試したところ、インデクスに-1を指定するとリストの
末尾に追加されるようです。

このため、処理対象が上端にある場合は上への移動を、下端にある場合は
下への移動をスキップさせる必要があります。

---

なお、移動というのは交換なので、双方の値を入れ替えれば実現でき、
リストの要素のRemoveやAddは不要です。

さらに、入れ替えるルーチンを別に作れば上/下移動の主要部を共通化で
きます。

【例】

Private Sub btn_ListUp_Click()
  ' :
  ' 中略
  ' :
  n = ListBox.ListIndex
  If (n < 1) Then Exit Sub
  Call exchange(n, n - 1)
end sub

Private Sub btn_ListDown_Click()
  ' : 
  ' 中略
  ' :
  n = ListBox1.ListIndex
  if (n >= ListBox.listCount-1) then exit sub
  call exchange(n, n + 1)
end sub


Private sub exchange(byval n1 as long, byval n2 as long)
'
' 共通部。インデクスn1とn2の要素の値を交換する
'
  Dim buf0 As String: buf0 = ListBox.List(n1, 0)
  Dim buf1 As String: buf1 = ListBox.List(n1, 1)
  ListBox.List(n1, 0) = ListBox.List(n2, 0)
  ListBox.List(n1, 1) = ListBox.List(n2, 1)
  ListBox.List(n2, 0) = buf0
  ListBox.List(n2, 1) = buf1
end sub