Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13343 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5824】入力規則 or コンボボックスの使い方 kinta 03/6/2(月) 23:46 質問
【5827】Re:入力規則 or コンボボックスの使い方 ichinose 03/6/3(火) 0:49 回答
【5834】Re:入力規則 or コンボボックスの使い方 kinta 03/6/3(火) 9:44 お礼
【5837】Re:入力規則 or コンボボックスの使い方 Jaka 03/6/3(火) 11:23 回答
【5841】Re:入力規則 or コンボボックスの使い方 Jaka 03/6/3(火) 11:47 回答
【5824】入力規則 or コンボボックスの使い方
質問  kinta  - 03/6/2(月) 23:46 -
引用なし
パスワード
   入力規則もしくはコンボボックスのリストに「ID」と「名称」を持たせ、
「名称」のみを表示させることは可能でしょうか？

大雑把で恐縮ですが、どなたかご教授願います。
【5827】Re:入力規則 or コンボボックスの使い方
回答  ichinose  - 03/6/3(火) 0:49 -
引用なし
パスワード
   ▼kinta さん：
こんばんは。

>入力規則もしくはコンボボックスのリストに「ID」と「名称」を持たせ、
>「名称」のみを表示させることは可能でしょうか？

というと、シート上での話ですね？

入力規則は、出来るんでしようかねえ？、私は無理だと思いますが・・。

コンボボックス（コントロールツールボックスにある）ならば、プロパティの設定のみで
可能です。
仮にIDがＡ列、名称がＢ列だとすると（リスト範囲がA1:B5としましょう）、
コードにすると
'=================================================================
Sub 設定()
　　With Worksheets("Sheet1").ComboBox1
　　　.ListFillRange = "sheet1!a1:b5"
　　　.TextColumn = 2
　　　.ColumnCount = 2
'　　　ここまでで、ご希望のリスト、表示はできますが、
　　　.BoundColumn = 1
'　　　 ↑としておくと、.ValueでIDが取得できます
　　　.ColumnWidths = "1cm;5cm"
'　　　　↑リスト巾の調整をここで行ってください
　　　End With
End Sub

となりますが、全部プロパティウインドウで設定できます。


>
>大雑把で恐縮ですが、どなたかご教授願います。
【5834】Re:入力規則 or コンボボックスの使い方
お礼  kinta  - 03/6/3(火) 9:44 -
引用なし
パスワード
   こんにちは、ichinoseさん。

ご教授有難うございました。
早速試してみます。
【5837】Re:入力規則 or コンボボックスの使い方
回答  Jaka  - 03/6/3(火) 11:23 -
引用なし
パスワード
   みなさま　こんにちは。
横レス失礼します。

例えばA1:A10にＩＤ、B1:B10に名称が入っているとして、入力規制セルをC1としIDを表示するセルをC2としますと。

入力規制のリスト範囲を「=$B$1:$B$10」しＣ２に

=IF(C1<>"",INDIRECT("B" &MATCH(C1,B1:B10,0)),"")

で、どうでしょうか？

また間違っていますか？

それと入力規制セルにＩＤと名称を表示させたかったら、作業列を使ってそのセルに
=A1 & " " & B1
としそれをリスト範囲としてはどうでしょうか？
作業列を使ってもMATCH関数で何番目か解りますし．．．。

違っていたらごめんなさい。
【5841】Re:入力規則 or コンボボックスの使い方
回答  Jaka  - 03/6/3(火) 11:47 -
引用なし
パスワード
   すみません。間違えました。

>=IF(C1<>"",INDIRECT("B" &MATCH(C1,B1:B10,0)),"")

　↓

=IF(C1<>"",INDIRECT("A" &MATCH(C1,B1:B10,0)),"")
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13343 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free