質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

22539閲覧

Excel VBAのListviewの値をチェックボックスで選択してDBのレコードを削除するには?

st_woz_jobs

総合スコア14

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2016/12/19 07:25

Excel VBAでListviewを作成し、各行の左端にチェックボックスを設けています。
チェックボックスをチェックしてコマンドボタンを押下するとチェックした行と同じ値のレコードをDBから削除する処理を描きたいです。

ググってもListviewに関する情報が少なく困っております。

一例を挙げていただけなでしょうか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

kpiyohiko

2016/12/21 01:12

回答に長々と書いてしまうと、可読性が下がるのでこちらに。1、削除とはどこから削除することを想定していますか。(例、画面上のみ、DBのみなど)2、VBAのイベント発生時(ボタンクリック時)の該当箇所にソースコードを記載することは可能ですか。3、ListviewがVBAのどこでどのように動作しているかは特定できておりますでしょうか
guest

回答2

0

ベストアンサー

自分で作成されたコードの提示がない質問にサンプルコードを提供するのはあまり好ましいとは思えませんが、回答がなかなかつかないようでしたので一例としてサンプル提供いたします。
次回からは多少なりとも自分で手を動かしたところを見せていただけるとうれしいです。


自分もExcelではListViewを使ったことがない、というかフォーム自体Excelではあまり利用したことがありません。
多くの場合シート上で何とかなったりしますし、こったことをするならVB.NETからExcelを操作したほうがよくなってしまったりしますしね(^-^;

VBAのListViewに関する情報が少ないのも、そういった経緯で利用する人が少ないからかもしれません。

今回のサンプルは主に下記のサイトを参考にして作成しました。
⇒参考

まずフォーム生成時にリストビューを作成します。
(サンプルコードではシート1からリストデータを取得するようにしています。)

'フォーム表示 Private Sub UserForm_Initialize() 'ListViewサンプル With ListView1 .AllowColumnReorder = True .BorderStyle = ccFixedSingle .OLEDragMode = ccOLEDragAutomatic .OLEDropMode = ccOLEDropManual .Gridlines = True .View = lvwReport .CheckBoxes = True 'ビューの先頭列の表示 .ColumnHeaders.Add 1, "CHK", "", 20 .ColumnHeaders.Add 2, "KEY", "CODE", 50 .ColumnHeaders.Add 3, "NM", "名前", 150 End With 'リストデータをシートから取得 For i = 2 To 6 With ListView1.ListItems.Add .Text = "" 'チェック列は空欄 .SubItems(1) = Sheet1.Cells(i, 1) 'KEY .SubItems(2) = Sheet1.Cells(i, 2) '名前 End With Next i End Sub

以下が今回の質問の本題となる、ボタン押下時のチェックボックス判定のサンプルです。

'ボタン押下処理 Private Sub CommandButton1_Click() Dim lstitem As ListItem 'ListViewのすべての行をループ処理 For Each lstitem In ListView1.ListItems 'チェックがついていたら If lstitem.Checked = True Then 'キー項目で削除(サンプルではメッセージ表示のみ) MsgBox "Delete " & lstitem.SubItems(1) End If Next End Sub

ListVIewの全ての行をループして、チェック状態を調べ、チェックがついていたら削除キー項目を抜き出しています。
※サンプルではメッセージボックスでキー情報を表示しているだけですが、ここで取得したキー情報を使って削除処理を実行すればよいと思います。

参考になれば幸いです。

投稿2016/12/21 04:44

編集2016/12/21 12:56
jawa

総合スコア3013

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

st_woz_jobs

2016/12/22 21:07

ご返信遅くなり申し訳ありません。 ご回答ありがとうございます! そうですよね。 自分で書いたコードを載せるべきですよね。 今回は、急ぎでサンプルをご提供いただきたくてあのような質問になってしまいました。 次回からはなるべくコードを載せるようにします。 処理のほうは無事解決できました。 ありがとうございました。 また、機会がありましたらご教授ください。
guest

0

VBAからdelete文を実行するではだめでしょうか。
Listviewはすでに作成されているとのことですので、
そのListviewのイベント(ボタンを押したとき)にsqlを実行するように
VBAで処理を記載すれば対応が可能だと思うのですが、いかがでしょうか

Listviewについてではなく、DBへの接続方法でしょうか。
最後の2文で何を聞きたいのかがわからなくなっているようにも見受けられます。

投稿2016/12/21 00:45

kpiyohiko

総合スコア658

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

st_woz_jobs

2016/12/21 01:10 編集

ご回答ありがとうございます。 わかりづらい文章で申し訳ありません。 画像等を載せられればよいのですが、 諸事情により難しい状態です。 listviewのプロパティ?でチェックボックスを各行の左側に表示させることができると思います。 表示させたチェックボックスをチェックすることで、行を選択状態にして、コマンドボタンを押すことでDBから選択した行のレコードを削除したいのです。 DBの接続方法については大丈夫です。 ちなみにlistviewに表示させているデータはDBから取得したものです。 初心者のため、用語等、よく分かっていない部分が多くあります。 説明不足で申し訳ありません。
st_woz_jobs

2016/12/22 21:13

色々とご協力いただきまして、ありがとうございました。 情報修正のご依頼をいただいていましたが、ご返信できておりませんでした。 処理のほうは無事解決できました。 今回、いただいたアドバイスでどのように質問すれば良いのかが分かりました。 まだ使い慣れていないので分かりにくい点が多々あったとおもいますが、丁寧なご回答ありがとうございました。 今後も機会がありましたらご教授ください。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問