Excel VBA質問箱 IV

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

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


13342 / 13645 ツリー ←次へ | 前へ→

【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がA列、名称がB列だとすると(リスト範囲が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にID、B1:B10に名称が入っているとして、入力規制セルをC1としIDを表示するセルをC2としますと。

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

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

で、どうでしょうか?

また間違っていますか?

それと入力規制セルにIDと名称を表示させたかったら、作業列を使ってそのセルに
=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)),"")

13342 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free