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

Results of 1 - 1 of about 222 for 簡易リストボックス (0.005 sec.)

[[20041029231447]]: #score: 10961; @digest: 7fd26c29b1a3a974fdbd5ba150fdd40f; @id: 9780; @mdate: 2004-11-02T01:44:32Z; @size: 2717; @type: text/plain; #keywords: octn (15117), （oc (8640), 目18 (8131), ボ付 (7815), 近目 (7380), 速対 (5832), ョボ (4008), data3 (2528), xlvalues (2325), 最上 (2319), 上位 (2249), ト元 (2153), xlwhole (2140), ト範 (2037), lookin (2024), トボ (1806), data2 (1676), リス (1595), lookat (1559), data1 (1479), 力作 (1417), ラク (1297), 易リ (1291), び変 (1281), a20 (1273), ボッ (1041), スト (1038), target (975), クス (836), 簡易 (686), がリ (654), 位に (612); 『リストボックスを使用頻度で並び替える』（octn）
こちらの学校で習った簡易リストボックスを便利に使用していますしかしボックス内の選択支が20以上になる場合もありまして何とかならない物かと・・・たとえば選択の都度語句（セル）がリストボックスの最上位に並び変わると良いと思うのですがこの様なことはできますか? よろしくお願いいたします Excel2003 WindowsXP ---- マクロを使えばできると思います。リストが選択されたら、sheetモジュールのChangeイベントで、リスト元になっているセル範囲のデータを並べ替えればできるかと思います。 (INA) ---- INAさん回答して下さってありがとうございます。 sheet1のA1にリストボックスがあり sheet2のA1:A20がリスト範囲の時リストデータの下方（たとえば項目18）を選択入力します次回入力時には項目18 がリスト範囲の最上位に並び変わっていてできればリストボックスのスクロールバーも上位に戻したいのですが・・よろしくご教授ねがいます（octn） ---- sheet2 A1:A20 に名前を data と定義して、 sheet1 A1 に入力規則のリストを設定してお試し下さい。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range If Target.Address(0, 0) <> "A1" Then Exit Sub With Worksheets("Sheet2") Set r = .Range("A1:a20").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole) If r Is Nothing Then Exit Sub r.Cut .Range("A1").Insert Shift:=xlDown .Range("A1:A20").Name = "data" End With End Sub (INA) ---- INAさんおはようございますうまく行きましたすばらしいです! しかし実際のシートには他にもリストボックス（B1とC1）がありましてリスト範囲はそれぞれ sheet2のB1:B20、C1:C20 です同じように並び替えることはできるでしょうか（octn） ---- どうぞ〜。 Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range With Worksheets("Sheet2") Select Case Target.Address(0, 0) Case "A1" Set r = .Range("A1:A20").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole) Case "B1" Set r = .Range("B1:B20").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole) Case "C1" Set r = .Range("C1:C20").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole) End Select If r Is Nothing Then Exit Sub r.Cut .Cells(1, r.Column).Insert Shift:=xlDown .Range("A1:A20").Name = "data1" .Range("B1:B20").Name = "data2" .Range("C1:C20").Name = "data3" End With End Sub *名前の定義は、A=data1,B=data2,C=data3 です。 (INA) ---- 早速対応していただきありがとうございます最近目がショボ付いてきたのでこれで入力作業がラクになりますまた判らない事で質問させて頂くことがあるかと思いますのでよろしくお願いいたしますほんとうにありがとうございました（octn） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200410/20041029231447.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ