Excel VBA質問箱 IV

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

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


124 / 74819 ←次へ | 前へ→

【80339】ListView:行がどんどん増えてしまう
質問  愛沢  - 19/1/27(日) 11:04 -

引用なし
パスワード
   【80335】ListView:引数は省略できません。の続きとなります。

前回はありがとうございました。

ゲームの団員一覧を作成しようと思い後々誰でも弄れるような仕様にしたく作っております。

1.【auto_open】で【Listview】の初期処理
2.【読込ボタン】を押すと団員リストを読み込み
3.Listviewをクリックすると登録フォームを開く
4.登録フォームから【更新ボタン】を押すと同じ行のデータを上書きする。

の4番でつまづいております。

'==================================

Sub 団員登録更新処理()

  With 団員登録
    
    No = .TextBox1
    名前 = .TextBox2
    レベル = .TextBox3
    貢献度 = .TextBox4
    In率 = .TextBox5
    最大戦闘力 = .TextBox6
    最終更新日 = Date
    備考 = .TextBox8
      
  End With
  
  With 団員一覧.ListView1.ListItems.Add
        
    .Text = No
    .SubItems(1) = 名前
    .SubItems(2) = レベル
    .SubItems(3) = 貢献度
    .SubItems(4) = In率
    .SubItems(5) = 最大戦闘力
    .SubItems(6) = 最終更新日
    .SubItems(7) = 備考

  End With

End Sub
'==================================

登録フォームを開く、内容を編集する、更新ボタンを押す
を作成したのですが、
帰ってきたデータをそのまま返しても次に新しい行が作られます

No    名前    レベル    貢献度    
1    愛沢    48    100000    
2    ヘラ    666    666666    

とあるデータに更新を押すと
No    名前    レベル    貢献度    
1    愛沢    48    100000    
2    ヘラ    666    666666
2    ヘラ    666    666666
2    ヘラ    666    666666
2    ヘラ    666    666666

と押す度に増えていきます。
 ※見づらい為5カラム目以降は省略しております。

流石に、この部分に対して【団員一覧.ListView1.ListItems.Clear】とやってしまうと全部消えてしまいますし・・・

お手すきの方がいらっしゃいましたら、よろしくお願いいたします。

50 hits

【80339】ListView:行がどんどん増えてしまう 愛沢 19/1/27(日) 11:04 質問[未読]
【80340】Re:ListView:行がどんどん増えてしまう マナ 19/1/27(日) 14:06 発言[未読]
【80345】Re:ListView:行がどんどん増えてしまう 愛沢 19/1/28(月) 6:37 質問[未読]
【80346】Re:ListView:行がどんどん増えてしまう 愛沢 19/1/28(月) 6:51 発言[未読]
【80353】Re:ListView:行がどんどん増えてしまう マナ 19/1/30(水) 20:43 発言[未読]
【80368】Re:ListView:行がどんどん増えてしまう 愛沢 19/2/1(金) 23:59 お礼[未読]

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