Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
448 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80335】ListView：引数は省略できません。 愛沢 19/1/26(土) 19:26 質問[未読]
【80336】Re:ListView：引数は省略できません。 亀マスター 19/1/27(日) 1:23 回答[未読]
【80337】Re:ListView：引数は省略できません。 愛沢 19/1/27(日) 7:08 お礼[未読]
【80335】ListView：引数は省略できません。
質問  愛沢  - 19/1/26(土) 19:26 -
引用なし
パスワード
   初歩的な事で申し訳ございません。
かれこれ5時間近くエラーと戦っていますが、エラー元が見当つきません・・・

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

1.【auto_open】で【Listview】の初期処理
2.【読込ボタン】を押すと団員リストを読み込み
3.Listviewをクリックすると登録フォームを開く

迄は完成したのですが、3のListviewにクリックすると登録フォームを開いた際、【開いた時その行のデータを読み込む】を追加すると【引数は省略できません。】のエラーを始め記載調整する度に様々なエラーに悩まされております。


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
　　
'　　Call 団員登録表示処理　'通常モジュールに転移予定

　　With 団員一覧.ListView1.ListItems
　　　　TextBox1 = .Item
　　　　TextBox2 = .Item.SubItems(1)
　　End With
　　
　　団員登録.Show

End Sub

よろしくお願い致します。
【80336】Re:ListView：引数は省略できません。
回答  亀マスター  - 19/1/27(日) 1:23 -
引用なし
パスワード
   具体的のどのようなコードのどこでエラーが発生しているかがわからないので回答ができないですが、「引数は省略できません。」であれば、そのままの意味です。何らかの関数やプロパティなどの呼び出しの際、必要な個数の引数が指定されていないということです。

例えば、MsgBoxであれば第1引数に表示するメッセージを指定する必要がありますし、これは自分で作ったSubやFunctionでも、引数を指定する必要がある構造にしていれば同様です。

Sub 例()

　　'引数が指定されていない
　　MsgBox
　　Range("A1").End.Select
　　Range("A1") = nibai

　　'3つの引数が必要なのに2つしか指定されていない
　　Range("A1") = Replace("abcde", "a")

End Sub

Function nibai(a) As Long

　　nibai = a * 2

End Function
【80337】Re:ListView：引数は省略できません。
お礼  愛沢  - 19/1/27(日) 7:08 -
引用なし
パスワード
   亀マスター様
ご返答ありがとうございます。
ListviewはVB等色々検索に引っかかってしまい中々進むことができず助かります

サンプルプログラムを改変して作ってた弊害でした。
お手間をおかけして申し訳ございません。

Private Sub ListView1_ItemClickに対して
MSComctlLib.ListItem引数固定かと思っておりました・・・

ネット検索だけでは限界がありそうですので、図書館とネットで作業してみたいと思います。

一応変数を間に挟むことで解決は致しました。

またほかのバグが出てきたので新規スレッドの方がいいのでしょうかね？
もう少しググって出来なければお力を拝借しようかと思います。

失礼いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
448 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free