Excel VBA質問箱 IV

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

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


121 / 13339 ツリー ←次へ | 前へ→

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

【80353】Re:ListView:行がどんどん増えてしまう マナ 19/1/30(水) 20:43 発言[未読]
【80368】Re:ListView:行がどんどん増えてしまう 愛沢 19/2/1(金) 23:59 お礼[未読]

【80353】Re:ListView:行がどんどん増えてしまう
発言  マナ  - 19/1/30(水) 20:43 -

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

>Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
>  No = Item
>  名前 = Item.SubItems(1)
>  Call 団員登録表示処理
>  団員登録.Show
>End Sub


呼び出しが多すぎてわかりにくいですが
こうではありませんか?


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  No = Item
  名前 = Item.SubItems(1)
  Call 団員登録表示処理
  団員登録.Show
  Item = No
  Item.SubItems(1) = 名前
End Sub

【80368】Re:ListView:行がどんどん増えてしまう
お礼  愛沢  - 19/2/1(金) 23:59 -

引用なし
パスワード
   マナ様
ありがとうございます、愛沢です。

急な出張でマクロが弄れずお礼が遅くなった事をお詫びいたします。


>Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
>  No = Item
>  名前 = Item.SubItems(1)
>  Call 団員登録表示処理
>  団員登録.Show
>  Item = No
>  Item.SubItems(1) = 名前
>End Sub

に変えた所、引数は省略できません。で怒られました

Private Sub CommandButton3_Click()
  Call 団員登録更新処理
End Sub

コールで作成するのはもっと勉強してからにして今回はコールを使わずに作成してみようかと思います。

貴重なお時間ありがとうございました。

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