[[20060204111138]]　『簡易リストボックスの使用方法』（あゆ＆ゆか）　ページの最後に飛ぶ

『簡易リストボックスの使用方法』（あゆ＆ゆか）

はじめまして、初めて質問させていただきます。
本ＨＰのライブラリを拝見し、簡易リストボックスの使用方法がわかりました。
そこで、質問です。
「元の値」を
1：東京都
2：千葉県
3：神奈川県
とした場合に、「１：東京都」を選択したらセルに「１」のみが入力されるようにはできないでしょうか。

もしできない場合、「入力時メッセージ」に
1：東京都
2：千葉県
3：神奈川県
と表示させ、元の値は単純に
1
2
3
とするつもりなのですが、複数のセルに様々な「入力時メッセージ」を設定しても、表示はされても表示位置がすべて同じになってしまいます。
セルにカーソルをあてたときに、すぐそばにメッセージが出るようにはできないでしょうか。

どうかご教授よろしくお願いいたします。

 以下のLOOKUPさんの紹介手法が参考になると思います。
[[20040319230842]] 『プルダウンから』(Kenny) 
(みやほりん)(-_∂)b『簡易リストボックスの使用方法』（あゆ＆ゆか）

早速のご教授ありがとうございました。
ご指示いただいた一覧を拝見しました。

「たとえば、Ａ～ＣでプルダウンをＡ１に作り、Ｂ１に結果を出す。」
とありますが、プルダウンが現れるセルと同一のセルに結果を出したいのですが。
方法はありますでしょうか。

申し訳ありません。今までのログを消してしまいました。
私の質問は以下のとおりです。
セルＡ１に1：東京都　２：千葉県　３：神奈川県とプルダウンさせる。
（元の値はＢ1に1：東京都、Ｂ２に２：千葉県、Ｂ３に３：神奈川県とする）。
Ａ１セルで「１：東京都」を選択すると、Ａ1には「１」のみが表示される。

どうぞよろしくお願いいたします。

 >申し訳ありません。今までのログを消してしまいました。
 復元は、kazuさんにしてもらうとして、、、

 みやほりんさんが、下記の過去ログを紹介していました。
[[20040319230842]] 『プルダウンから』(Kenny)

 （キリキ）(〃⌒o⌒)b

 vbaです。

 シートモジュールに貼り付けてください。

 Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
     If .Cells(1, 1).Address(0, 0) = "A1" Then
         Application.EnableEvents = False
         .Value = Left(.Value, 1)
         Application.EnableEvents = True
     End If
 End With
 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Target
     If .Cells(1, 1).Address(0, 0) = "A1" Then
     With .Validation
         .Delete
         .Add Type:=xlValidateList, Formula1:="=$B$1:$B$3"
     End With
     End If
 End With
 End Sub
 (seiya)

 先に紹介されている過去ログの最後のLOOKUPさんの手法をお試しください。
入力規則の元のリストとなるセル範囲で表示形式の書式設定でユーザー定義の
書式文字列を
1：東京都:::
2：千葉県;;;
3：神奈川;;;
と設定し、セルにはそれぞれ1、2、3 と入力しておきますと、
プルダウンリストには表示形式による表示が優先表示され、
選択確定時にはリストに実際に入力されている値が表示されます。
(みやほりん)(-_∂)b
　
#間違って書き込みを消してしまった場合は、むしろ放っておいてください。
#常連有志が書き込み復活してくれる場合があります。

ありがとうございました！
これで、仕事が開始できます。
本当に助かりました。感謝しております。

 遅くなりました、復元しました。
 （kazu）2006/02/04 13:31

先日は、皆様ありがとうございました。
恐縮ですが、また「リストボックス」について質問させていただきます。
リストボックスの幅は変えられるのでしょうか。
セルそのものの幅を変えない限り、リストボックスでプルダウンしたリストの文字が
全て表示されません。
ところが、いくつか作成したリストボックスのうち、あるセルだけは幅は短くても
構わないのに、他のリストボックスより幅が広くなってたりします。
何か法則でもあるのでしょうか。

コメント返信：

[ 一覧(最新更新順) ]

[[20060204111138]] 『簡易リストボックスの使用方法』（あゆ＆ゆか） ページの最後に飛ぶ

[[20060204111138]]　『簡易リストボックスの使用方法』（あゆ＆ゆか）　ページの最後に飛ぶ