【無料配信♪】Renta !全タテコミ作品第1話

いつもお世話になります。

エクセルで500名のアンケート入力をしています。
A列に氏名、B,C,Dから順に第一から第三希望を入力する必要があり、選択肢は
7つ(りんご、トマト、イチゴ、なす、ピーマン、みかん、にんじん)とあって、重複しない3つを選んでいます。
今までは仮に1,2,3と数字を入力してから置換で置き換えていました。
(誰が何を選んだかを確認したいので、数字のままでは困る)
置換えではなく、1を押したら「りんご」2は「トマト」と入力される方法はないでしょうか?
ちなみに、キーボードだけで操作したいのでリストは使いたくなく、ユーザー定義もイマイチでした。。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

>1を押したら「りんご」2は「トマト」と入力される方法はないでしょうか?



余計な事は何も無しで。

手順:
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
 dim h as range
 on error resume next
 for each h in application.intersect(target, range("B:D"))
 select case h.value
 case 1
  h = "りんご"
 case 2
  h = "ばなな"
 case 3
  h = "みかん"
 case 4
  h = "ちょこ"
 case 5
  h = "すいか"
 case 6
  h = "とまと"
 case 7
  h = "こたつねこ"
 end select
 next
end sub

ファイルメニューから終了してエクセルに戻る
BからD列に1から7や、他の言葉を記入したり削除したりいろいろ触ってみる。
    • good
    • 6
この回答へのお礼

ありがとうございます、完璧なお答えでした。

お礼日時:2014/03/17 09:43

No.2、No.3です。


No.3に画像添付忘れました。
「エクセルで数字を入力したら文字に変換され」の回答画像4
    • good
    • 0
この回答へのお礼

たくさんお答えくださって、本当にありがとうございます。
今回はできるだけ別のセルを作りたくなかったのでNo1の方の方法でやることにしましたが、CHOOSEも非常に使えそうな関数だと思いました。
ありがとうございました。

お礼日時:2014/03/17 09:46

No.2です


質問をよく読んでいませんでした。
画像で
E2に 
=IF(B2="","",CHOOSE(B2,"りんご","トマト","イチゴ","なす","ピーマン","みかん","にんじん"))
右方、下方にオートフィル
    • good
    • 3

choose関数ではだめですか


A1に 数字
B1に =CHOOSE(A1,"りんご","トマト","イチゴ","なす","ピーマン","みかん","にんじん")

CHOOSE関数-数字によって答を変える
http://kokoro.kir.jp/excel/choose.html
    • good
    • 1

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで数字を入れたらとなりのセルに文字が出るようにするにはどうしたらいいですか?

小売店ですが仕入れの伝票の入力をしなければなりません。項目は・コード(六桁の数字)・商品名・数量・単価・金額です。
このコードナンバーを入れたら隣のセルに商品名そのまた隣のセルに単価と出るようにするにはどうしたらいいのでしょうか?
現在はすべてひとつづつ入力しています。
数量と単価を入れたら金額がでるようにだけは出来ましたがそれ以上がわかりません。
宜しくお願い申し上げます。

Aベストアンサー

別のシートで
   A   B  C 
  コード 商品名 単価
1 111111  あ  1000 
2 222222  い  2000
3 333333  う  3000

の一覧を作っておいて、VLOOKUPを使えばOKだと思います。

   A   B  C 
  コード 商品名 単価
1 111111   
2 222222

B1の欄には=VLOOKUP(A1,Sheet2!$A$1:$C$3,2,0)
C1の欄には=VLOOKUP(A1,Sheet2!$A$1:$C$3,3,0)

でいけると思います。
Sheet2と云うのは一覧のあるシート名です。

Qエクセルで数字を入れると決まった文字が出るようにしたい

エクセルで、数字を入れると決まった文字が出るようにしたいです。
例えばA1に1000を入れるとB1にさくら、1200をいれるとたんぽぽ、というような設定は出来ますか?

Aベストアンサー

2項目程度ならIF関数ですが多くなる様でしたらVLOOKUP関数が一般的だと思います。
仮にE1,E2に1000,1200、F1,F2にさくら、たんぽぽのリストを準備します。
B1セルに=VLOOKUP(A1,$E$1:$F$2,2,FALSE)

Qあるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように

お世話になります。

表題の通り、
あるセルに特定の文字列を打つと、
他のセルにあらかじめ決められた文字が自動入力するようにしたいです。

具体的に言うと、
(1)セル(A,1)に「キリン」と打ち込むと

   A   B   C   D
1 キリン
2
3
4

(2)1列目の B,C,Dに予め決めておいた文字が入力されるようにしたい

   A   B   C   D
1 キリン 首  長い  アフリカ
2
3
4

のです。
エクセルで可能でしょうか?
詳しい方よろしくお願いいたします!

Aベストアンサー

出来ます。この場合はキリンがキーになっていますね。
先ずこのキーをもとにSheet2にデータを登録しておきます。
   A   B   C   D
1 キリン 首  長い  アフリカ
2 ゾウ  鼻  長い アフリカ
3 
4
次に表示させたいセルに
 A   B             C           D
1  =VLOOKUP(A1,Sheet2!A:D,2) =VLOOKUP(A1,Sheet2!A:D,3) ″ 
2  =VLOOKUP(A2,Sheet2!A:D,2) =VLOOKUP(A2,Sheet2!A:D,3) ″
3  =VLOOKUP(A3,Sheet2!A:D,2) =VLOOKUP(A3,Sheet2!A:D,3) ″
4  =VLOOKUP(A4,Sheet2!A:D,2) =VLOOKUP(A4,Sheet2!A:D,3) ″

を入れておきます。
これで出来ると思います。
エラー表示がいやな場合は、=IF(A1="","",VLOOKUP(A1,Sheet2!A:D,2)) の様にして下さい。

出来ます。この場合はキリンがキーになっていますね。
先ずこのキーをもとにSheet2にデータを登録しておきます。
   A   B   C   D
1 キリン 首  長い  アフリカ
2 ゾウ  鼻  長い アフリカ
3 
4
次に表示させたいセルに
 A   B             C           D
1  =VLOOKUP(A1,Sheet2!A:D,2) =VLOOKUP(A1,Sheet2!A:D,3) ″ 
2  =VLOOKUP(A2,Sheet2!A:D,2) =VLOOKUP(A2,Sheet2!A:D,3) ″
3  =VLOOKUP(A3,Sheet2!A:D,2) =VLOOKUP(A3,Sheet2!A...続きを読む

Qエクセル A1に1と入力すると○、2と入力すると×

エクセル初心者です。よろしくお願いします。

エクセル A1のセルに1と入力すると○、2と入力すると×と表示されるようにしたいです。

なるべく簡単なやり方を教えてください。

Aベストアンサー

セルの書式設定の表示設定の分類のユーザー定義を選び
下記式をコピペして下さい。

[=1]"○";[=2]"×";G/標準

で、出来ると思います。

Q(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?

こんにちは。
質問内容はタイトルのとおりです。

あるワークシートのあるセルに文字を入力すると、ほかのワークシートのセルにも同じ文字が自動的に書き込まれる方法を知りたいです(ブックは同じ)。複数のワークシートを制御するには、やはりマクロを使うのでしょうか?

よろしくお願いします。

Aベストアンサー

clam_chowderさん、こんにちは。

Sheet1のA1にたとえば「100」と入力しますね。
Sheet2のA1に、これと同じ数値を表示するには、
 =Sheet1!A1
でOKです。

数式をいれるのが苦手なら、
Sheet2のA1セルで「=」を入力すると、数式入力状態に入りますから、
ここでSheet1のシートタブをクリックし、
リンクしたいA1セルをクリックしてEnterすると、
自動的にさきほどと同じ式が入ります。

Q【エクセル】指定したセルに入力することで、別の特定のセルに決まった文字を表示させるには?

社用データを作る際の手間を省こうとしたのに、かえって難しくなってしまいました(-"-;)
分かりにくい質問で恐縮ですが、よろしくお願いします。

現在Excel2003を使っています。
「指定したセルに文字・数字問わず入力があった場合、特定のセルに特定の文字を表示させる数式(または方法)」は無いでしょうか。
(できれば指定したセルに入力が無い限り、特定文字を表示させるセルは非表示のままにしたいと思っています)

例えば、「A1のセルに『○田×男(人名など)』と入力した時、B1のセルに『様』と表記させる」と言った具合です。
(このとき、A1に入力が無ければB1も空白のままにしておきたいのです)

手動で入力した方が早そうな気もしますが、応用次第で他の表や作業もスッキリしそうなので、手があれば是非ご教授下さい。

Aベストアンサー

間違えました。

B1 に
=IF(A1="","","様")

でした。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Q文字を入力したら数値が自動入力!(エクセル)

いつもお世話になっています。

例えばA列の1行目に「りんご」と入力(若しくはリストの中から選択)すれば、B列の1行目には自動的に「5」と数値が入力されるという仕組みを教えて頂ければと思います。
因みにA列1行目に入力する文字(上記の例では「りんご」)が仮にA列の1行目以外に入力しても、それに対応し、数値を出せるようにしたいのです。(例:A列5行目に「りんご」を入力すると、B列5行目に数値の「5」が表示)

以上の説明で分かりにくいかもしれませんが、宜しくお願いします。

Aベストアンサー

こんばんは。

1.「りんご」と「5」の関係を表す対応表が存在する場合
  B列に IF 関数 と Vlookup 関数を入れ子で記述
2.1.対応表が無い場合
  B列に IF 関数を記述
3.B列に数式を入力せず空欄のままにしておきたい場合
  マクロを記述

上記はアバウトですが、詳細がわかれば具体的な回答が可能と思います。

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング