エ

質問

リストをしようした際に
例）
　　１　赤
　　２　青
　　３　黄色
で１　赤を選択した場合
セルに１のみ転送することできますか？
お願いします。

回答No.3

imogasi · ベストアンサー

色々難しいこと考えなくても、（手っ取り早いのでエクセルVBAですがVBでも一緒でしょう）ListIndexを使えば良いでしょう。
（１）例としてA１～A4セルに１　山田太郎、２　大川次郎、３　会田五郎、４　木下勝男と入れる。VBならAddItem・・・。
（２）シートにListBoxを貼りつける。VBならUserForm1上。
（３）コントロール内で右クリック。プロパティをクリック。
（４）ListFillRangeに、A1:A4を入れる。VBならAddItem・・・。
（５）コントロール内でダブルクリック。
（６）Private Sub ListBox1_Click()
End Subが出る。VBE画面。
（７）ActiveCell.Value=ListBox1.ListIndex+1
を入力する.VBならTextBoxなどを作りそこへ表示する。
(8)デザインモードを解除して
（９）シート上で例えばB5をクリックし、リストボックスの大川次郎を
クリックするとB5に「２」と入力される。VBならTextBoxなどへセットか。

回答No.2

LAMY

「リストをしよう」と書いていますが、どのような状態か不明確です。
例の内容で各セルに値が入っている(リストっぽく見せている)のでしょうか？
特定の機能(リストボックス、コンボボックス等)のリストを使用している？
また「選択した場合」と書いてありますが、利用者はその行為により「選択する」
と「決定する」事が行えるので、皆、質問内容が理解できないのでしょう。
手厳しいですが回答するには質問者のレベル、質問内容により回答内容が変化
するので出来れば「補足」にて詳細を記述して下さい。

セルの値だけで表現しているなら特定ボタンとマクロを作成して、ボタン押下後
にアクティブセルの位置確認と、値を入力するマクロを作成すれば実現できます。
(常に無条件で、特定の値を別セルに移動させるなら＃１ですね)
例の状態ならMid関数でも有効でしょう。
　　MID(対象,開始位置,文字数)　※文字数は大きい値で良い

Ｃ２セルに「３　黄色」が入っている場合、値を挿入したいセルに以下の数式を
入れれば良いでしょう。
　　=MID(C2,3,999)

リストボックス、コンボボックス等を使用しているなら、選択は選択しただけに
なりますので、別ボタンを作成(決定ボタン)して決定する動作を促すべきです。
そのボタンに各リストのアクティブな値を持ってくるマクロを登録すれば良いと
思いますが如何でしょう？

回答No.1

daiju3000

おはようございます
A1にリストがあったとします。
文字列からスペースの位置を検索して、左から"スペースの位置-1"番目まで表示します。式の""の中にはスペースが入っています。

=LEFT(A1,FIND(" ",A1)-1)