Excel VBA質問箱 IV

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

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


5357 / 13646 ツリー ←次へ | 前へ→

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

【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

【51327】Re:リストボックスでの削除データをテク...
発言  ichinose  - 07/9/12(水) 7:51 -

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

>
>下記のコードでリストボックスのデータを削除し、その削除データを
>テクストボックスに表示させています。
>6行目〜最終行まで表示(Initializeにより)は出来ていますが・・・
>削除に関して、最終行(リストボックス内の)だけが、テキストボックスに
>間違った表示になります(常に一行上の項目=実際は数字を使っています、が表示)。
>最終行以外は、全て正しい表示がされます。
↑ここに記述された現象をこの投稿を見た方が再現するためには、
Sheet1のA6以降に入力されているデータも記述しないと簡単に再現できません・・、
よね?
例えば、ランダムにA6以降に数字が羅列していればリストボックスのどの行を選択しても正しく削除した値の表示はできません。

入力データの記述は、必須だと思ってください。


>
>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
    textbox1.value=ListBox1.Value
' 削除する前にテキストボックスに表示する
>    ListBox1.RemoveItem ListBox1.ListIndex
'    TextBox1 = ListBox1.Value - 1
>  End If
>End Sub

では?

【51345】Re:リストボックスでの削除データをテク...
お礼  YN  - 07/9/12(水) 19:06 -

引用なし
パスワード
   ▼ichinose さん:

今晩は。
早速ご回答を頂き感謝しています。
問題が解決いたしました。
御礼申し上げます。これからもよろしくお願いいたします。

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