|
おはようございます。
下記のコードでリストボックスのデータを削除し、その削除データを
テクストボックスに表示させています。
6行目〜最終行まで表示(Initializeにより)は出来ていますが・・・
削除に関して、最終行(リストボックス内の)だけが、テキストボックスに
間違った表示になります(常に一行上の項目=実際は数字を使っています、が表示)。
最終行以外は、全て正しい表示がされます。
コードに問題があるのでしょうか?それとも他に原因があるのでしょうか。
Private Sub CommandButton1_Click()
Dim ret As Integer
If ListBox1.ListIndex = -1 Then
MsgBox "削除したいデータを選択してください"
Exit Sub
End If
ret = MsgBox("削除しますか", vbYesNo)
If ret = vbYes Then
ListBox1.RemoveItem ListBox1.ListIndex
TextBox1 = ListBox1.Value - 1
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("sheet1")
For i = 6 To .Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem Cells(i, 1).Value
Next i
End With
End Sub
|
|