エクセルで入力した数字に反映させたい

質問

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

質問ですがあるセルに数字を入力したら
文章が出るようにしたいのですが？。

具体的には
シート1のAのセルに「1」と入力したら
シート2のCのセルに「一ヶ月以内にお振込みをお願いします」
シート1のAのセルに「2」と入力したら
シート2のCのセルに「二週間以内にお振込みをお願いします」
てな感じです。

文章を見ればわかるとおり請求書を作ってるんですが
いまのとこ手打ちかコピペでミスが多いんです。
わたし一人でやってるもんじゃないんで(;_;)

どうぞよろしくお願い致します

回答No.2

maruru01 · ベストアンサー

こんにちは。maruru01です。

まず、番号と文章の対応表をどこかに作成しておきます。
仮に、Sheet3のAB列1行目～に、

A　　　B
1　一ヶ月以内にお振込みをお願いします
2　二週間以内にお振込みをお願いします
・　　・
・　　・
・　　・

という感じで作成します。
（一応10行とします。）

シート2のC1に、

=IF(COUNTIF(Sheet3!$A$1:$A$10,シート1!A1),VLOOKUP(シート!A1,Sheet3!$A$1:$B$10,2,FALSE),"")

と入力して、下の行へコピーします。
これで、シート1のA1～に入力した番号に対応する文章が、シート2のC1～に表示されます。
なお、対応表のデータ範囲は、適宜変更して下さい。

お礼

maruru01さんいつもありがとうございますm(__)m

質問なんですが文章の長さに制限ありますか？

回答No.5

imogasi

VBEに
Function GOKUset(A)
Select Case A
Case 1
GOKUset = "一ヶ月以内にお振込みをお願いします"
Case 2
GOKUset = "二週間以内にお振込みをお願いします"
Case 3
GOKUset = "来月末までにお振込みをお願いします"
End Select
End Function
を貼り付けます。GOKUsetはaaaでもccdでも良いです。
sheet1のA7.A8,A9に１，２，３と入れます。
Sheet2のC1セルに=GOKUset(Sheet1!A7)と入れます。
Sheet2のC2セルに=GOKUset(Sheet1!A8)と入れます。
Sheet2のC3セルに=GOKUset(Sheet1!A9)と入れます。
C1:C3は
今月末までにお振込みをお願いします
二週間以内にお振込みをお願いします
来月末までにお振込みをお願いします
となります。
A7を３に変えると、C1は即座に
来月末までにお振込みをお願いします
に変ります。
３つ以上増えた時、どこをどのように増やせば良いか判りますね。

お礼

書き込みありがとうございました。

VBEがうまく使えずできませんでした(T_T)
でも使えたらとても便利ですね。
がんばって勉強します。

回答No.4

maruru01

>質問なんですが文章の長さに制限ありますか？
ヘルプで「仕様」で検索すると載っていますが、
セルの内容は、32767文字までですが、表示は1024文字までとなっています。
結局、1024文字以内と考えるべきでしょう。
これ以上は、複数のセルに分割して表示させるしかないと思います。

なお、上記の仕様はExcel2000の説明です。
コンピュータ関連の質問は、環境（OS、ソフト名とヴァージョン）を明記するようにしましょう。

お礼

質問にお答え下さってありがとうございます。

Ｗｉｎ98でＥＸＣＥＬ97です。
1042文字も無いですがやっぱり文字がでません(;_;)

もう一度やり直してみます。
色々ありがとうございます。

ＰＳ．maruru01さんてすごい知識をお持ちですね。
尊敬してしまいます。

回答No.3

tizzy

入力したい文は何種類くらいあるのでしょうか？
IFの中にIFをを入れ込んで使えるのは最大7つです。
それ以上になりますとVLOOKUPやマクロで対応
することになると思います。

PAPA0427さんと同様にIFで条件を
指定してあげればよいと思います。
ただ、式の中に直接文字を入力すると
非常に長くなってわかりにくくなる場合が
ありますので、例文が多い場合には
空いている場所に例えば、D1からD5に
1～5の例文を入力しておき

=IF(Sheet1!A1=1,Sheet1!D1,IF(Sheet1!A1=2,Sheet1!D2,・・・・・・

というように文を入力したセルを
対応させるようにするとすっきりします。
ご参考までに。

お礼

ありがとうございます。

IFの中にIFをを入れ込んで使えるのは最大7つは
知りませんでした。参考になりました。

回答No.1

PAPA0427

シート２のＣ１セルに
=IF(Sheet1!A1=1,"一ヶ月以内にお振込みをお願いします",IF(Sheet1!A1=2,"二週間以内にお振込みをお願いします",""))
でいけると思いますが。
後は、このセルを他のセルにコピーしてください。

お礼

ありがとうございました。

他の入力が必要なセルにも応用できました。

補足

書き込みありがとうございます。

この通りで出来たんですが
文章を長くしたら表示されなくなってしまいました。
文字制限てあるんでしょうか？