ＥＸＣＥＬで数字を与えられた文字に変換し、規定のセルに同時に入力したい

質問

いつもお世話になり、誠に有難うございます。
またまたお教えいただきたいのですが、、、

　Ａ　　　Ｂ　　　　　　　Ｃ　　　Ｄ　　　Ｅ
1伊藤　ピッチャー　
2斉藤　レフト
3佐藤　サード
4鈴木　ショート
5
6
7
とあった場合、
Ｃ2に「1」を入力すると「伊藤」にすぐに変換され、同時にＥ4の空白にも「伊藤」が自動入力される関数などがありましたら、ご教示願います。

回答No.8

134 · ベストアンサー

Vlookupを使うため、Ａ列に挿入し　=row()と入力して、９行目までコピーしてください。

　そののち、Ａ列は「非表示」としてください。

Ｄ１～Ｄ９に数字を入れると　入力したセルが、選手名に変わる　と解釈しました

１．Ａｌｔ＋Ｆ１１　を押す
２．Ｆ７を押す
３．以下のコードをペーストする

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyNum As Single, Name As String

If Target.Column = 4 And Row < 10 Then

If WorksheetFunction.IsNumber(Target.Value) = False Then End

On Error Resume Next
MyNum = Target.Value: Name = WorksheetFunction.VLookup(MyNum, Range("a1:c9"), 2, 0)
Target.Value = Name

End If
End Sub

質問文でのＥ４　（この回答を適用するとＦ４）を入力すると…につきましては、規則性が不明ですので、割愛させていただきます

お礼

お返事いただきまして、誠に有難うございます！
ちょっと記述の読解に時間がかかりますが、すぐに取り組んでみます。
お忙しいところありがとうございました！

回答No.10

134

締め切っていないということで、Ｅ列に名前を入れる方法をお求めなのでしょうかね。

　質問に質問を返すのはどうかもと思って、曖昧にしていましたけど、４＝ピッチャーというのがよく分からずにいました。
一般的に、１：ピッチャー、２：キャッチャー、３：ファースト、４：セカンド、５：サード、６：ショート…と思っていたもので。

=lookup("ピッチャー",$b$1:$b$9,$a$1:$a$9)
とＥ４セルに入力したら、ピッチャーの名前が反映されはします。
　同様に、Ｅ７セルに
=lookup("レフト",$b$1:$b$9,$a$1:$a$9)
と入力すると、レフトの選手が反映されます

お礼

ご回答頂き、誠にありがとうございました。
こちらの勉強不足で、質問自体もめちゃくちゃになってしまいました。
改めて、やり直し、また分からないことがありましたら、ご教示願います。

回答No.9

134

少し修正します

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyNum As Single, Name As String

If Target.Column = 4 And Target.Row < 10 Then　'rowの前にTarget.

If WorksheetFunction.IsNumber(Target.Value) = False Then End

On Error Resume Next
MyNum = Target.Value: Name = WorksheetFunction.VLookup(MyNum, Range("a1:c9"), 2, 0)
Target.Value = Name

End If
End Sub

お礼

修正版で取り組んでみます。有難うございます。

回答No.7

hyorono

なんども、ほんっとにすみません・・・
ピッチャーなど、ポジションを入力するのは、D列1行目からでなく
E列1行目から横。でした・・・ごめんなさい・・・。

　　　　Ｄ列　　　　　　　　Ｅ列　　　　　　　Ｆ列　　　　　　　　　　Ｇ列　　　　　　　H列　　　　　　　　I列・・・
1|　　　　　　　　　　　　ピッチャー　　　　レフト　　　　　　　　　サード　　　　　ショート　　　セカンド
2|　　2（鈴木）　　=IF(VLOOKUP($D2,$A:$C,3,FALSE)=D$1,VLOOKUP($D2,$A:$C,3,FALSE),"")
3|　　3（山田）
4|

お礼

お返事ありがとうございます！

補足

すいません。せっかく回答を頂いたのですが、数式をそのまま利用させていただいても、意味が分からず、答えが導き出せませんでした。
この数式を活用しながら、やってみます！
本当に助かりました。
ありがとうございました。

回答No.6

hyorono

たびたびすみません！！
E2に書いた式は
=IF(VLOOKUP($D2,$A:$C,3,FALSE)=D$1,VLOOKUP($D2,$A:$C,3,FALSE),"")
でした。
「=D1」を、「=D$1」に変えてます。

お礼

お返事ありがとうございます！

回答No.5

hyorono

例えば、ピッチャーを入力したときはＥ4に、レフトと入力した場合はＥ7にと、分けたいのですが

については、A列を1、2、3・・・B列を名前（1なら伊藤、2なら鈴木など）C列にポジションを入れてください。

　　　　Ｄ列　　　　　　　Ｅ列　　　　　　 　Ｆ列　　　　　　　Ｇ列
1|　　ピッチャー　　　　レフト　　　　　　　 　サード　　　　　ショート
2|　　2（鈴木）　　=IF(VLOOKUP($D2,$A:$C,3,FALSE)=D1,VLOOKUP($D2,$A:$C,3,FALSE),"")
3|　　3（山田）
4|

E2列に書いた式を、D2～F4（F4はデータがある位置）までドラッグしてください。
これで出来ると思いますよ！

お礼

お返事ありがとうございます！

回答No.4

hyorono

こんばんわ。
表示だけでは駄目ですか？
ビジュアルが「伊藤」になれば良いのであれば
書式設定の表示形式で出来ますが。
その、「伊藤」をほかに計算式などで認識させているのであれば
「1」＝「伊藤」とほかの式でも認識させてしまえば大丈夫ですし。

回答No.3

maile

お礼や補足の追加の質問を見る限り…。

入力に使ったセル自体を変換したいという意味ならば、関数を使う以上はムリかと。

マクロやＶＢＡを使用すれば可能かと思われますが。

お礼

お返事ありがとうございます。
そうですか。無理ですか。。。
無理言ってすいませんでした。。

回答No.2

Tasuke22

E4には　=C2 でいいのでは

問題は本当に C2 と　E4 なのかな？

お礼

早速のお返事有難うございます。
私の説明不足でした。申し訳ありませんでした。

補足

例えば、ピッチャーを入力したときはＥ4に、レフトと入力した場合はＥ7にと、分けたいのですが。。。

回答No.1

suzukikun

１伊藤というのを分けてセルにいれておけばVLOOKUPで簡単にできますがそれじゃだめですか？

お礼

早速のお返事有難うございます！
勉強不足で申し訳ないのですが、vlookですと、1は残りませんか？
対照表にそった文字をそのまま変換して入力できたらいいな、と思っております。