
EXCEL VBA ListViewについて質問です。
ListViewで選択した値をWクリックでActiveセルに入力したいのですが上手く出来ません。
下記が現在です。
Private Sub ListView1_DblClick()
With Worksheets("Sheet1")
ActiveCell.Value = UserForm1.ListView1.SelectedItems(0).Text
Unload Me
End With
End Sub
どのようにしたらよいのでしょうか?
調べても出てこないのでよろしくお願いいたします。
また表示されているListViewの一覧で一行おきに色を付けたいのですがどのようにいたらよいのでしょうか?
質問ばかりですみませんがよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>ActiveCell.Value = UserForm1.ListView1.SelectedItems(0).Text
ダブルクリックで、選択肢はひとつしかありませんから、
ActiveCell.Value = ListView1.SelectedItem.Text
ですね。
>ListViewの一覧で一行おきに色を付けたいのですがどのようにいたらよいのでしょうか?
どこかで見た記憶からなのでしょうか。
私も記憶はあるのですが、VBAのListView(VB6 Runtime) には、そのようなBackColor での色付けはありません。たぶん、VB.Net では可能ではないでしょうか。
ForeColor(文字の色)は可能ですが、あまり冴えないような気がします。

回答ありがとうございます。
無事にダブルクリックによる入力出来ました。
色つけに関してはやはり出来ないのですね…
他の方法を考えてみます。
ありがとうございました。
No.2
- 回答日時:
他の方法を探されるようですが、念のために、参考資料を提示しておきます。
ListBox でなくListView を選ばれた理由が、行を互い違いに色付けできると書いていた人がいたから、ListView を選んだのでしょうけれども、その書いた人は、ListView で実現できていないのではないでしょうか。
http://www.mitene.or.jp/~sugisita/api_comct.html
リストビューのカスタムドロー
VB6用で、最もVBAに近いソースがありますから、VBA用に加工して試してみればよいのです。解説はできませんが、結論からいうと、こちらの環境では、書き換えてもうまくいきません。このような複雑なコードをVBAに搭載するかどうかも懸念するところですが。こちらの環境は、Win 10/Excel 2013 という環境で、そもそも、VB6 Runtime Library さえ、動くかどうかわからないところだと思いますが、Excel の下位バージョンでお使いなら、まだ可能性は残されているかもしれません。
実行の画像(VB6で実行すると以下のようになる)

追加回答ありがとうございます。
ListViewでは出来ないのですね…
言われるように調べてListViewだと簡単にできると書いてあったので変更したのですが残念です。
でもいい勉強になりました。
今後の参考にさせていただきます。
ご丁寧にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
Listviewのデータを上から順番に取得 VBA
Visual Basic(VBA)
-
-
4
リストビューをスクロールさせるには
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
無料で使えるグリッドコントロール
Visual Basic(VBA)
-
8
Excel VBA ListViewサブアイテムの文字色
その他(プログラミング・Web制作)
-
9
特定行の背景色を変えたいのですが
Visual Basic(VBA)
-
10
VBA ListViewの選択Itemを削除する
Excel(エクセル)
-
11
vba ListViewの選択色について教えてください
Excel(エクセル)
-
12
vba listviewにおけるtextのAlingmentを中央にしたい
Excel(エクセル)
-
13
ListViewのチェックボックスについて
Excel(エクセル)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
16
動的配列が存在(要素が有る)か否かを判定できますか?
Visual Basic(VBA)
-
17
エクセルVBA/マルチページ/ページ切り替え時
Access(アクセス)
-
18
リストビューの項目の内容を変更する方法は?
Visual Basic(VBA)
-
19
ListViewから選択中の文字列を取得
Visual Basic(VBA)
-
20
ExcelVBAでListViewが使用できない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ちゃんと覚えててくれてる! を...
-
昔の男最終回教えてください
-
仲良かった友達に急に距離を置...
-
成田のロケ地
-
花より男子 道明寺司の父は?
-
~より小さいは、「~以下」「...
-
公衆電話に電話をかけることは...
-
S.O.S最終回ストーリー教えてく...
-
「世界の中心で、愛をさけぶ」...
-
NANAのおもしろさが全くわ...
-
TBSドラマ「花より男子」に出て...
-
ODBCの接続に失敗しました(3...
-
VVF1.6と2.0の混合はまずい?
-
Dr.コトーの指の意味は?
-
SQLServer sqlcmdが使えない
-
なぜ過去に戻れないのですか?...
-
熟語: 「次ページに続く」「前...
-
月夜の晩ばかりだと思うなって...
-
「○○円とんで」の言い方
-
ドラマや映画観てていつも思う...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「渡る世間は鬼ばかり」の体大...
-
ちゃんと覚えててくれてる! を...
-
昔の男最終回教えてください
-
公衆電話に電話をかけることは...
-
仲良かった友達に急に距離を置...
-
田舎が舞台のサスペンス
-
「世界の中心で、愛をさけぶ」...
-
愛犬ロシナンテの災難の最終回...
-
彼の運転が下手すぎてストレス...
-
「○○円とんで」の言い方
-
しばらく呼び出し音が鳴ってか...
-
「池中げんた80キロ」の男の...
-
~より小さいは、「~以下」「...
-
ODBCの接続に失敗しました(3...
-
なぜ過去に戻れないのですか?...
-
VVF1.6と2.0の混合はまずい?
-
男性に質問です。過去に抱いた...
-
熟語: 「次ページに続く」「前...
-
「腹心の友」という言葉のニュ...
-
ドラマ「一つ屋根の下」の「シ...
おすすめ情報