エクセルの学校：全文検索：Hyper Estraier： �� #N/A

Results of 1 - 1 of about 1385 for �� #N/A (0.016 sec.)

[[20050518091556]]: #score: 6930; @digest: 681c095460ad7d8464b2d131032cf7ea; @id: 14106; @mdate: 2005-06-13T00:22:34Z; @size: 6896; @type: text/plain; #keywords: 縄○ (31260), 北○ (31260), 戸○ (27066), 辺山 (25546), 島○ (24794), 中渡 (23835), 阪○ (23208), 京○ (18164), 藤加 (15768), 神戸 (14605), 東北 (13108), 田佐 (11018), 広島 (10772), 沖縄 (8415), 都市 (7381), 京東 (6607), 大阪 (4886), プダ (4740), ンリ (4300), ○ (3983), 加藤 (3758), ドロ (3680), 渡辺 (3361), 田中 (2686), 東京 (2683), リス (2209), ダウ (2046), ロッ (1926), str (1906), 力規 (1804), 手直 (1653), ref (1484); 『特定の配列をドロップダウンリストに』（田中）
はじめまして。お願いします。田中渡辺山田佐藤加藤東京 ○ ○ ○ ○ 大阪 ○ ○ ○ ○ 神戸 ○ ○ ○ 広島 ○ ○ ○ 沖縄 ○ ○ 東北 ○ ○ ○ 上のような表があったとして、田中で○な都市をドロップダウンリストとして表示したい場合はどうすればいいのでしょうか。空白が入ってしまい上手くいかないのです。よろしくお願いします。 -------- こんにちは。このドロップダウンリストは、どこにあるどんな種類のものですか? 色々あるので、事細かく書かないと話が進まないと思います。 BJ ------- 申し訳ないです。入力規則のリストを使ってドロップダウンリストを作りたいのです。 Q R S T U V 田中渡辺山田佐藤加藤 12 東京 ○ ○ ○ ○ 13 大阪 ○ ○ ○ ○ 14 神戸 ○ ○ ○ 15 広島 ○ ○ ○ 16 沖縄 ○ ○ 17 東北 ○ ○ ○ このような状態でA1に名前のドロップダウンリスト、A2に名前ごとに可変する都市リストを入れたいのです。例えば名前リストで田中を選ぶと、都市リストには東京・大阪・神戸・東北が出るような感じです。わかりづらいかもしれないですがよろしくお願いします。 -------------- マクロ記録を手直ししました。また、97だと動きません。（入力規則のChangeイベントが発生しないから）セル範囲等は、使用に合わせて手直ししてください。 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Mch As Variant, CL As Range, Str As String If Target.Address(0, 0) <> "A1" Then Exit Sub Mch = Application.Match(Range("A1").Value, Range("Q11:AA11"), 0) If IsError(Mch) Then Exit Sub Str = "" For Each CL In Range("Q11:Q17").Offset(, Mch - 1) If CL.Value = "○" Then Str = Str & CL.Offset(, -Mch + 1).Value & "," End If Next If Str = "" Then Exit Sub Str = Left(Str, Len(Str) - 1) Application.DisplayAlerts = False '←これと Range("A2") = "" Application.DisplayAlerts = True '←これの入れ忘れ。05.06.13 With Range("A2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Str .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With End Sub マクロ以外だとちょっと解りません。尚、セルA1の入力規則はご自分で行っているものとしてます。 BJ ---- 探してきました。川野鮎太郎氏作です。 [[20050420175246]] 『入力規則のドロップダウンリスト』(Ring) ↑ こういうことですよね? (sin) ---- このようにされたらどうでしょう?表の下に作業セルを配置しています。 (LOOKUP) A 1 渡辺 2 大阪 Q R S T U V 12 2 田中渡辺山田佐藤加藤 13 東京 ○ ○ ○ ○ 14 大阪 ○ ○ ○ ○ 15 神戸 ○ ○ ○ 16 広島 ○ ○ ○ 17 沖縄 ○ ○ 18 東北 ○ ○ ○ 19 5 4 5 3 3 4 20 1 1 2 1 1 21 2 2 4 2 3 22 3 3 5 5 4 23 6 4 #N/A #N/A 6 24 #REF! 6 #N/A #N/A #REF! 25 #REF! #REF! #N/A #N/A #REF! 26 東京東京大阪東京東京 27 大阪大阪広島大阪神戸 28 神戸神戸沖縄沖縄広島 29 東北広島 #N/A #N/A 東北 30 #REF! 東北 #N/A #N/A #REF! 31 #REF! #REF! #N/A #N/A #REF! Q12に=MATCH(A1,R12:V12,) Q19に=INDEX(R19:V19,Q12) R19に=COUNTIF(R13:R18,"○")として、これをV19までフィルドラッグ。 R20に=MATCH("○",R$13:R$18,)として、これをV20までフィルドラッグ。 R21に=MATCH("○",INDEX(R$13:R$18,R20+1):R$18,)+R20として、これをこれをコピーして、R21:V25に貼り付け。 R26に=INDEX($Q$13:$Q$18,R20)として、これをこれをコピーして、R26:V31に貼り付け。 A1にデータ、入力規則、リストで、元の値に=$R$12:$V$12。 A2にデータ、入力規則、リストで、元の値に =INDEX($R$26:$V$31,1,$Q$12):INDEX($R$26:$V$31,$Q$19,$Q$12)。 ---- 皆さん色々とありがとうございました。＞BJさん実はマクロを触ったことがなく、書かれたマクロをどのようにしてどこに入れればいいかもわかりませんでした… ですが折角教えてもらったものなので、マクロのヘルプと睨めっこしながら頑張りたいと思います。＞sinさん見せていただいたところ確かに同じようなものだったのですが、私が都市にしているところがそちらでは数字になっていてさらに中の式がSMALLとROWでその数字を管理しドロップダウンリストの数を決めているようでしたので自分の力ではそれを文字列でやる術を見つけることができませんでした… 参考にさせていただいて頑張りたいと思います。＞LOOKUPさんきれいにドロップダウンリストで出すことができました。ありがとうございます。ですが実は本来の表がこれよりも非常に大きなものであり、またそれがいくつも分かれているようなものなのでなるべくならばその表以外にセルを使うのは1列ないし1行に止めておきたいのです… この出してもらったものをなんとか一つの式にまとめることができれば出すこともできそうなので参考にさせていただいて頑張りたいと思います。 (田中) ---- sinさんが出されている私のやり方であれば、以下のような感じです。 A1セルに氏名を入れているとした場合。 W列を作業列として使います。 Q R S T U V W 1 田中渡辺山田佐藤加藤大阪 2 東京 ○ ○ ○ ○ 広島 3 大阪 ○ ○ ○ ○ 沖縄 4 神戸 ○ ○ ○ 5 広島 ○ ○ ○ 6 沖縄 ○ ○ 7 東北 ○ ○ ○ W12=IF(COUNTIF(OFFSET($Q$12,1,MATCH($A$1,$R$12:$V$12,0),6),"○")<ROW()-11,"",INDEX($Q$1:$Q$18,SMALL(IF(($R$12:$V$12=$A$1)*($R$13:$V$18="○"),ROW($Q$13:$Q$18)),ROWS($W$12:W12)))) として、Shift+Ctrlキー押しながらEnterキーで確定させて配列数式にして下方にコピー。挿入＞名前＞定義で参照範囲に =OFFSET(Sheet1!$W$12,,,COUNTIF(Sheet1!$W$12:$W$18,"?*")) を入れて、名前を第2リストとする。 A2の入力規則の入力値の種類を「リスト」、元の値に =第2リスト（川野鮎太郎） ---- お呼び立ていたしまして、ご足労様です。 m(__)m (sin) ---- ＞川野鮎太郎さんわざわざ来ていただきましてありがとうございます。きちんと2つのリストとして使うことができました。本当にありがとうございました。＞sinさん上の返事ではお名前を間違えていまして申し訳ないです。いろいろとありがとうございました。 ---- 用無しですが、不具合を修正しておきました。 BJ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050518091556.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ