Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2039 / 76734

←次へ　｜　前へ→


	【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】とやってしまうと全部消えてしまいますし・・・

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

6 hits

▼

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