エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8925 for リスト (0.007 sec.)

[[20080313140949]]: #score: 2747; @digest: f9ea63789d1735ab48a1d8ad611fdca1; @id: 36711; @mdate: 2008-03-16T00:03:49Z; @size: 7818; @type: text/plain; #keywords: 結核 (44285), 択反 (40403), 転状 (32741), 邪" (30483), av12 (28859), 風邪 (24381), userformshusseki (21479), listbox4 (17231), 内リ (16854), 他的 (13915), 反転 (12389), listbox1 (10130), listindex (8180), listbox2 (7886), 排他 (7189), トボ (6626), rowsource (6151), ス1 (4445), リス (4420), listbox (3851), のli (3821), 、li (3312), ボッ (3275), mycol (3007), スト (2875), ト・ (2874), クス (2629), ス2 (2577), selectionchange (2376), 選択 (2364), 直前 (2114), myrng (2068); 『4個のリストボックス』（ひで）
ユーザーフォーム上に4つのリストボックスを配置しそれぞれ異なる項目を選択できるようにしたいと考えています。ただ、4つのリストボックス内のデータのいずれか一つだけをセルに入力したいのです。たとえばリストボックス1のあるデータをA1に反映させるとします。その結果が間違いで実はリストボックス2のあるデータであった場合 リストボックス1で先に選択したデータは非選択（非反転）の状態にしたいのです。現在はリストボックス1内のデータを選択した後リストボックス2のデータを再選択してもリストボックス1内で選択したデータも反転しています。現在のリストボックス1のコードは以下です。 Private Sub ListBox1_Click() With ListBox1 If .ListIndex > -1 Then If Intersect(ActiveCell, Range("d12:ah53")) Is Nothing Then Exit Sub ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 44).Value = .Value End If End With End Sub よろしくお願いいたします。 ---- Listbox1とListBox2でそのListIndexプロパティにおいてそれぞれ排他的な処理をする、ということであれば、 Private Sub ListBox1_Click() If Me.ListBox2.ListIndex > -1 Then Me.ListBox2.ListIndex = -1 '処理 End Sub Private Sub ListBox2_Click() If Me.ListBox1.ListIndex > -1 Then Me.ListBox1.ListIndex = -1 '処理 End Sub のようにList選択時に他のコントロールのListIndexプロパティを制御してはどうでしょう。ただ、4っつのコントロールがどのような関係にあるか、ご提示のコードだけでは判りませんし、「その結果が間違いで」の場合、 ListBox1_Clickの結果（セルに値代入している）がどうなってほしいのかも書かれていないので、その辺も補足が必要かもしれません。 (みやほりん)(-_∂)b ---- みやほりんさん,ありがとうございました。これについては解決しました。もう一つおねがいできますか。以前はリストボックスが一つだったため,そこで選択したリストがセル（たとえばAV12）に反映されていました。そして次のようなコードを教えていただき,ワークシートに貼り付けました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Count > 1 Then Exit Sub '<- この行を追加 If Intersect(.Cells, Range("d12:ah53")) Is Nothing Then Exit Sub If .Value = "" Then UserFormshusseki.ListBox1.ListIndex = -1 DoEvents Exit Sub Else UserFormshuseki.ListBox1.Value = Cells(.Row, .Column + 44).Value DoEvents End If End With End Sub これにより今まではAV12をアクティブにしてリストボックスから リストを選択すると当然リストが反転しますが, 一旦他のセルをアクティブにした後再びAV12をアクティブにしてもリストが反転しなかったものがセルに入力されているデータによってリアルタイムに反転するようになりました。しかし今回4つにリストボックスを分けましたのでそれが働きません。たとえば リストボックス1内リスト・・・風邪,頭痛,腹痛 リストボックス2内リスト・・・家の用事,所用 リストボックス3内リスト・・・祖父死亡,祖母死亡 リストボックス4内リスト・・・結核,インフルエンザとなっており,AV12をアクティブにし,リストボックス1から風邪を選択し反転させるとAV12に風邪が入力される A V13に結核を選択し反転させる。再びAV12をアクティブにしたとき先ほど選択したリストボックス内の風邪を反転させたい。というものです。わかりますでしょうか。よろしくお願いいたします。 ---- コントロール、処理やセルの関係が不明な点が多いので、整理させて下さい。（1）ListBox1〜ListBox4の選択（反転）状況は排他的（この場合、排他的とは一つが反転した場合、他の反転が解除されること）（2）選択したセルの内容に合致するリストボックスを選択反転状態にする直前の投稿から推測すると、次のような動作? AV12選択、ListBox1で「風邪」選択し、Av12に"風邪"が入力される ↓ AV13選択、ListBox4で「結核」選択し、Av13に"結核"が入力され、このとき、ListBox1の選択反転状態は解除されている ↓ AV12選択したとき入力されている"風邪"に基づいてListBox1で「風邪」が選択反転される。このとき、ListBox4の選択反転状態は解除されている //////////////////// （1）についてはそれぞれのリストボックスのClickイベントで他の三つの リストボックスのListIndexに-1を代入するコードとすれば解決するでしょう。（2）についてはWorksheet_SelectionChangeイベントで「セルに入力されている値がどのコントロールにリストされているか」を調べなければなりません。 [[20080207102407]] が直前の相談と推測されるので、List設定はシート入力されているデータを Rowsourceプロパティにて設定している、と類推します。四つあるコントロールの各リストを調べるよりも、Rowsourceの範囲をFindメソッドなどで検索した方が簡単なコードになると推測します。（2）の手順としては、次のようなコードになるでしょう。 Worksheet_SelectionChangeイベントでユーザーフォームの四つのListBoxの ListIndexに-1を必ず代入する。 Cells(Target.Row, Target.Column + 44).Value を Rowsourceの範囲から検索してどのListBoxに値があるかを特定し、そのコントロールのValueプロパティに Cells(Target.Row, Target.Column + 44).Value を代入する。下記はRowsourceがSheet2のA:D列に入力されており、A列がListBox1、B列がListBox2・・・と対応していると仮定したコードです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long, myCol As Long, MyRng As Range Rem ListIndexを初期化 For i = 1 To 4 UserFormshusseki.Controls("ListBox" & i).ListIndex = -1 Next i With Target If .Count > 1 Then Exit Sub If Intersect(.Cells, Me.Range("d12:ah53")) Is Nothing Then Exit Sub If .Value <> "" Then Set MyRng = Worksheets("Sheet2").Range("A:D").Find(Cells(.Row, .Column + 44).Value) myCol = MyRng.Column UserFormshusseki.Controls("ListBox" & myCol).Value = MyRng.Value DoEvents End If End With End Sub (みやほりん)(-_∂)b ---- ありがとうございます。直前の相談は察しの通りです。 (1)に関してはその通りです。（2）に関してちょっと説明が間違っていました。申し訳ありません。 J12選択,ListBox1で「風邪」選択し、Av12に"風邪"が入力される ↓ J13選択、ListBox4で「結核」選択し、Av13に"結核"が入力され、このとき、ListBox1の選択反転状態は解除されている ↓ J12選択したとき入力されている"風邪"に基づいてListBox1で「風邪」が選択反転される。このとき、ListBox4の選択反転状態は解除されているとなります。J列をアクティブにしておき,リストを選択することでAV列に入力されます。そのため（.Column + 44）が必要になってきます。また,リスト1のRowsourceはopen!D15:D29で以下リスト4まではそれぞれopen!E15:E29,open!F15:F29,open!G15:G29 です。今現在,みやほりんさんご提供のコードを試してみたら myCol = MyRng.Column で「オブジェクト変数またはwithブロック変数が設定されていません」と表示され止まります。以上よろしくお願いいたします。（ひで） ---- 「オブジェクト変数またはwithブロック変数が設定されていません」は検索の結果、 MyRngにセル参照が格納されていないため発生しております。「RowsourceがSheet2のA:D列に入力されており、A列がListBox1、B列がListBox2・・・と対応していると仮定」して作成したコードなので、そのまま実行しても動きません。 Set MyRng = Worksheets("Sheet2").Range("A:D").Find(Cells(.Row, .Column + 44).Value) の部分のシート名を "open" に、Rangeの部分を "D15:G29" に変更。コレに伴って、列の返す列番号も右に3列ずれているので、 myCol = MyRng.Column - 3 として御使用下さい。ただ、こちらの検証では、下記の表現に疑問を感じます。「J列をアクティブにしておき,リストを選択することでAV列に入力されます。そのため（.Column + 44）が必要になってきます。」 J列から44列右側の列はBB列になります。 J列をアクティブ、AV列に入力が成されるとすると、（.Column + 38）でなければなりません。 (みやほりん)(-_∂)b ---- みやほりんさん。ありがとうございます。また,返信が遅れてすみませんでした。早速試させていただきます。ご指摘の通り間違っていました。J12→D12でした。（ひで） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200803/20080313140949.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ