Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30671 / 76732 ←次へ | 前へ→

【51325】リストボックスでの削除データをテクストボックスに表示
質問  YN  - 07/9/12(水) 7:03 -

引用なし
パスワード
   おはようございます。

下記のコードでリストボックスのデータを削除し、その削除データを
テクストボックスに表示させています。
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

0 hits

【51325】リストボックスでの削除データをテクストボックスに表示 YN 07/9/12(水) 7:03 質問
【51327】Re:リストボックスでの削除データをテクス... ichinose 07/9/12(水) 7:51 発言
【51345】Re:リストボックスでの削除データをテクス... YN 07/9/12(水) 19:06 お礼

30671 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free