Excel2010、ドロップダウンリストの問題

質問

Excel2010のドロップダウンリストについて、もとのリストが編集できず困っています。（実は電話で、そのような相談を受けているのですが）
「校閲」→「入力規則」で設定する画面がありますが、
ここで、「データの入力規則」の「設定」タブで、入力値の種類→「リスト」とし、元の値のところ、ここが「空欄」になっているようです。
にもかかわらず、
その指定のセルはドロップダウンが使えて、リストがちゃんと出てくるようです。
他の情報としては、
・ドロップダウンのセルの右に出てくる三角マークが表示されない。（本当はドロップダウンを使っていないのではないか、という疑念。あるいは単に表示されない設定にしているだけかもしれません。VBAとか使っているのか）
・セルをクリックすると「ドロップダウンのリンクがなんとか・・」という表示とともに、「実際のリスト自体は表示され、使える」ようです。
・目的としては、そのリスト自体を「編集」（修正）することです。

データを送ってもらえれば何らかの対処もあるかと思いますが、セキュリティ上の関係でできないようです。

何かヒントでも分かればお願いします。

回答No.1

imogasi · ベストアンサー

参考にしてください。
ーー
例えばの話ですが、
ＶＢＥの標準モジュールに
Sub test07()
Worksheets("Sheet1").Range("A1:A10").Select
With Selection.Cells.Validation
.Delete
.Add _
Type:=xlValidateList, _
Formula1:="東京, 大阪, 名古屋"
End With
End Sub
と張り付けて実行すると、Ａ１：Ａ１０セルの横に▼が出て（そのセルをクリックしたときだけ）、東京, 大阪, 名古屋のいずれかを選べます。
特徴は、複数セルに一括で設定できることです。
またシートのどこを探しても、東京, 大阪, 名古屋の文字列は見つかりません。
ＶＢＡのコードの中に定義されてます。
一方、入力規則は、ＶＢＡユーザー以外を念頭に、シートに選択データを入力しておき、このセルデータを使う仕組みです。
ーー
シートにＡｃｔｉｖｅＸのコンボボックスを手動で貼り付けて（Ｃｏｍｂｏｂｏｘ１）
標準モジュールに
Sub test09()
Worksheets("Sheet1").ComboBox1.Style = fmStyleDropDownCombo 'リストに無い値を入力できます。
'ComboBox1.ListFillRange = "" '参照リストのセル範囲を一時的に無効します。
Worksheets("Sheet1").ComboBox1.Clear 'リスト内容を初期化します。
With Worksheets("Sheet1").ComboBox1
.AddItem ("東京")
.AddItem ("青森")
.AddItem ("仙台")
End With
Worksheets("Sheet1").ComboBox1.ListIndex = -1 'コンボボックを入力されていない状態で表示させます。
End Sub
を入れて、
シート１のイベントプロシージュアーに
Private Sub ComboBox1_Change()
Range("D2") = ComboBox1.Value
End Sub
を入れておくと、コンボで選んだ値がＤ２にセットされます。
これらは選択肢はプログラムの中に定義されます。見る人が見ればどれかわかります。
＝＝＝
一般論としては、ユーザーのプログラムで選択項目を設定していると思われます。
ＶＢＡの経験があればどれかわかるでしょうが、コードを見れる立場でないと
どれを使っているかの判別はむつかしいでしょう。
かって、システムを受託した先に頼むほかないのでは？

お礼

ありがとうございます。
そのようなことがVBAで設定可能であるということが、分かり、またその可能性が十分あるということが分かり、大変参考になりました。

補足

その場合、ファイル自体がマクロの拡張子のファイルになっているのでしょうか。