Ｐａｇｅ 732 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼数字を人名に置き換える方法は？ 有栖川卜伝 03/2/12(水) 13:41 ┣Re:数字を人名に置き換える方法は？ ぴかる 03/2/12(水) 14:15 ┃ ┗Re:数字を人名に置き換える方法は？ 有栖川卜伝 03/2/12(水) 16:44 ┃ ┗Re:数字を人名に置き換える方法は？ コロスケ 03/2/12(水) 16:49 ┃ ┗Re:数字を人名に置き換える方法は？ 有栖川卜伝 03/2/12(水) 17:24 ┃ ┗Re:数字を人名に置き換える方法は？ コロスケ 03/2/12(水) 17:39 ┃ ┗Re:ありがとうございます。感動しました。 有栖川卜伝 03/2/13(木) 10:55 ┗Re:数字を人名に置き換える方法は？ ポンタ 03/2/13(木) 10:10 ┗Re:数字を人名に置き換える方法は？ 有栖川卜伝 03/2/13(木) 12:02 ─────────────────────────────────────── ■題名 ： 数字を人名に置き換える方法は？ ■名前 ： 有栖川卜伝 ■日付 ： 03/2/12(水) 13:41 -------------------------------------------------------------------------
| 初めて、質問いたします。有栖川と申します。 1つの列に、人名が重複しないように並べたいのですが、 数字で行えば、同じ数字にしなければよいわけですよね。 なので１から７０くらいまでの数字に人名を割り振って、 その表に数字を打ち込めば、その人名に変わるという方法が、 あれば教えて頂きたいのですが。。。。できますでしょうか？ ちなみに、VBAやC言語はドシロウトです。 |
| 有栖川卜伝さん、こんにちは。 >1つの列に、人名が重複しないように並べたいのですが、 >数字で行えば、同じ数字にしなければよいわけですよね。 >なので１から７０くらいまでの数字に人名を割り振って、 >その表に数字を打ち込めば、その人名に変わるという方法が、 >あれば教えて頂きたいのですが。。。。できますでしょうか？ エクセル関数のVLOOKUP関数なんかか楽でいいんじゃないかと思います。あらかじめ１〜７０の番号とそれに対応する人名表を作成しておきます。そしてＡ１セルに７と打つとＢ１セルにマッチした人名が表示されよう関数を入力する。こんなんでどうでしょう？。 |
| 早速のご返答、ありがとうございます。 しかしながら、エラー続きで全く反応してくれません。 別ページで番号１〜８０までA列に置いて、隣のB列に 対応する、人名を置いて置きました。VLOOKの使い方がよくわからず、 四苦八苦しております。別のページの表でその番号をつかいたいわけですが、 どうにも循環関数だのなんだのという、表示が出てしまっています。 よろしく、ご指導ください。 |
| こんにちは。 シートのA1に入力された数字を元に名前を「データ」というシートから引っ張ってくるのはこんな感じです。データ範囲に名前をつけておくともっと簡単に書けますが、それは次回ということでまず、試してみてください。 =VLOOKUP(A1,データ!$A$1:$B$80,2,FALSE) |
| ▼コロスケ さん： >こんにちは。 >シートのA1に入力された数字を元に名前を「データ」というシートから引っ張ってくるのはこんな感じです。データ範囲に名前をつけておくともっと簡単に書けますが、それは次回ということでまず、試してみてください。 > >=VLOOKUP(A1,データ!$A$1:$B$80,2,FALSE) ありがとうございます。しかし、A1の数字をもとにしてということになりますよね。でもエクセルでは、そのセル自体に数字を打って、そのセルが人名に変わる事って不可能なのでしょうか？ |
| こんにちは。Changeイベントを使えばできますよ。 ご希望のシートモジュールにに下記コードをコピペしてみてください。 （例なので、ご要望と違ってもご容赦願います。） ではー♪ Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Application.EnableEvents = False For Each rng In Target Select Case rng.Value Case "" rng.Value = "" Case 1 rng.Value = "1番目の名前" Case 2 rng.Value = "2番目の名前" Case 3 rng.Value = "3番目の名前" Case Else 'なにもしない End Select Next Application.EnableEvents = True End Sub |
| 有栖川です。コロスケさん、こんにちは。 できました。すごいですね。これなんです。 ズバリですね。ありがとうございました。 |
| 横から失礼します。 もともと、 ＞1つの列に、人名が重複しないように並べたいのですが、 が目的なら、人名が重複していないかチェックして、 重複していたら警告するマクロを組んだほうが 良いのではないでしょうか？ 場合によっては、マクロを使わなくても 目的を達成できるかもしれませんし・・・。 なぜ、重複しないように並べたいのかを お書きになると、具体的なレスがつくと思います。 |
| 御助言、ありがとうございました。 まだまだ、コンピュータ関係は未熟なものですから、 マクロとか、「そのような表示があったかも」というような 感じなんです。なので、これから色々お世話になろうかと 存じますので、よろしくお願いいたします。とりあえず今回は コロスケさんの手法で、いけそうなのでがんばってみます。 それではこの辺で。 |