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

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

[[20060921133716]]: #score: 10961; @digest: 9f8fc2b1215476e30f131e5430375e58; @id: 25297; @mdate: 2006-09-21T05:30:06Z; @size: 4742; @type: text/plain; #keywords: ヨネ (13530), 菜レ (12049), 肉牛 (10447), 肉豚 (9210), 豚肉 (8314), 果物 (7974), 牛肉 (7791), 肉鹿 (7748), lst (6686), 鶏肉 (6463), 長野 (6181), 産地 (5799), 野菜 (5507), レタ (4992), パパ (4329), ゴー (3226), 愛媛 (3106), 絞込 (3016), イヤ (3007), 栃木 (2959), 各品 (2771), 静岡 (2696), validation (2601), 易リ (2582), 沖縄 (2404), 青森 (2286), 千葉 (2238), 分類 (2009), isempty (1717), 鹿児 (1680), ンゴ (1654), target (1626); 『簡易リストボックスの応用』（ヨネ）
こんにちは。以下のデータから簡易リストボックスの作り方で良い方法があれば教えてください。 Sheet1に以下のようなデータがあるとします。 Sheet1 A B C 1 分類種類産地 2 果物いちご千葉 3 果物りんご青森 4 果物りんご長野 5 果物みかん愛媛 6 果物みかん静岡 7 果物マンゴー沖縄 8 果物パパイヤ沖縄 9 野菜きゅうり千葉 10 野菜レタス長野 11 野菜レタス栃木 12 肉牛肉山形 13 肉牛肉兵庫 14 肉豚肉鹿児島 15 肉豚肉栃木 16 肉鶏肉群馬 Sheet2にセルA1 には分類のリストとして果物、野菜、肉を入力規則として設定したい。セルB1 にはセルA1で選択したものの絞込みされた種類のリストを出したい。例えば A1に果物を選択していたら B1にはいちご、りんご、みかん、マンゴー、パパイヤを入力規則として設定したい。セルC1 にはセルA1,セルB1で選択したものの絞込みされた産地のリストを出したい例えば A1に果物、B1にりんごを選択していたら C1には青森、長野を入力規則として設定したい。こちらの [[20040826180010]] 入力規制』（TK）を参考に考えてみたのですが、わかりませんでした。よろしくお願い致します。 ---- 項目別にリストを作成し、名前を定義します。産地は各品目に関連しているようなので、その品目毎に名前を定義します。 ↓のようなリストにして、挿入→名前→作成で上端行で名前を定義します。分類果物野菜肉いちごりんごみかん果物いちごきゅうり牛肉千葉青森愛媛野菜りんごレタス豚肉長野静岡肉みかん鶏肉マンゴーパパイヤ各セルにはデータ→入力規則で、リストの元の値に下のように指定します。 A1:=分類 B1:=INDIRECT(A1) C1:=INDIRECT(B1) (Hatch) ---- (Hatch)さんありがとうございます。ただこのSheet1のデータは、分類、種類、産地ともに今後、増えていくものなので事前にリストを作って置くことができないのです。 Sheet1の状態から、一気にリストを作ることはできないでしょうか。(ヨネ) ---- 近くのスレで似たようなものを作ったのでちょっと編集してみました。 [[20060920215636]]『入力規則のリストに先頭が数字の名前が付けられない場合』（えでたか） Sheet2のシートタブを右クリックし、コードの表示を選択。出てきた画面に下記コードを貼り付けて閉じる。 (ROUGE) '---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim tbl, i As Long, ky, lst As String With Target If .Count > 1 Then Exit Sub If .Row <> 1 Then Exit Sub If .Column > 3 Then Exit Sub End With With Sheets("Sheet1") '<--ここ tbl = .Range("A2:C" & .Range("C" & Rows.Count).End(xlUp).Row) End With Select Case Target.Column Case 1 With CreateObject("Scripting.Dictionary") For i = 1 To UBound(tbl, 1) If Not IsEmpty(tbl(i, 1)) And Not .exists(tbl(i, 1)) Then _ .Add tbl(i, 1), Empty Next If .Count > 0 Then For Each ky In .Keys lst = lst & "," & ky Next Else lst = "" End If End With Case 2 If Target.Offset(, -1).Value = "" Then Exit Sub With CreateObject("Scripting.Dictionary") For i = 1 To UBound(tbl, 1) If tbl(i, 1) = Target.Offset(, -1).Value And Not IsEmpty(tbl(i, 2)) And _ Not .exists(tbl(i, 2)) Then _ .Add tbl(i, 2), Empty Next If .Count > 0 Then For Each ky In .Keys lst = lst & "," & ky Next Else lst = "" End If End With Case 3 If Target.Offset(, -1).Value = "" Then Exit Sub With CreateObject("Scripting.Dictionary") For i = 1 To UBound(tbl, 1) If tbl(i, 1) = Target.Offset(, -2).Value And tbl(i, 2) = Target.Offset(, -1).Value _ And Not IsEmpty(tbl(i, 3)) And Not .exists(tbl(i, 3)) Then .Add tbl(i, 3), Empty Next If .Count > 0 Then For Each ky In .Keys lst = lst & "," & ky Next Else lst = "" End If End With End Select If lst = "" Then: Target.Validation.Delete: Target.Value = Empty: Exit Sub If InStr(1, lst, Target.Text) = 0 Then Target = Empty With Target.Validation .Delete .Add xlValidateList, , , lst End With End Sub ---- すごい!!できました(^○^)。感激です! どうもありがとうございました。（ヨネ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060921133716.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ