ミスチルの大名曲の数々が配信決定!! 31日間無料!!【PR】

エクセルでの質問です
1つのセルに例えば”1530”という数字を入力します
そうすると その数字を分解して f1のセルに”0” e1のセルには”3” d1のセルに”5” c1のセルに”1” b1のセルに”¥”が自動的に入るようにしたいのですが どうすれば良いでしょう
数字は4ケタ~7ケタまで変わります
よろしくお願いいたします。

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

A 回答 (2件)

こんにちは!


外していたらごめんなさい。

データはA列の1行目からあるとします。
B1セルに
=IF($A1="","",IF(LEN($A1)+1<COLUMN(A1),"",MID("\"&$A1,COLUMN(A1),1)))
として列方向と行方向にオートフィルではどうでしょうか?m(__)m
    • good
    • 1
この回答へのお礼

ありがとうございました。
御蔭さまで出来ました。

お礼日時:2011/06/07 18:40

MID関数が一番簡単でしょう。


A1セルに数値を入れるとして最初のセルC1に=mid($A$1,1,1)とします。それを横に7つコピーします。
その後、カンマで区切られた真ん中の数値1を、1つ隣なら2、2つ隣なら3にすれば良いです。
意味としたら、A1セルにある数値の、1桁目の1文字を表示という関数です。
\マークはB1セルに=if(isblank(A1),"","\")とすると、A1に数値が入ると¥を表示します。
    • good
    • 0
この回答へのお礼

ありがとうございます。
いろいろ試してみます。

お礼日時:2011/06/07 18:39

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

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

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

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

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

Qエクセル 文字を1つのセルに1文字ずつ入力した形に変更するには

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

エクセルの1セルに、13ケタの商品コードがあります。
これを、別シートのフォーマットにある、13コのセルに1字ずつに分割したいのです。
例えば、"4901234567890"という数値がセルに入力されていて、別シートのA1には"4"A2には"9"、A3には"0"・・・という形です。

同様に、商品名等の情報も、1文字ずつセルに入力していきたいのですが、そのようなことを可能にする技術がありますでしょうか?

以上宜しくお願い致します。

Aベストアンサー

こんにちは。maruru01です。

No.1の方の回答を応用して、
Sheet1のA1のデータを別のシートに分割するとします。
分割の上端のセルに、

=MID(Sheet1!$A$1,ROW(A1),1)

と入力して下へ13桁分コピー

質問欄の内容は、A1、A2、・・・と下の行へ、ということでしたが、もし右へ、ということなら、数式を、
ROW→COLUMN
に変更して下さい。

Q複数桁の数字を1セルずつ表示したい

エクセル2010を使っています。

1つのセルに入っている複数桁の数字を、1セルずつ分けて表示させたいと思っています。
しかも、数字を置き換えて桁数が減った場合には、右に詰めたいです。

(例)
AIに12345 と入力したら、B1に1、B2に2、B3に3、B4に4、B5に5と表示させたい。
A1の数字を123に置き換えたら、B1、B2は空欄、B3に1、B4に2、B5に3と置き換わるようにしたい。

ただ単に数字を1セルずつ分けるだけでしたら、mid関数を使ってできるのですが、
桁数の異なる数字に置き換えると右に詰めるようにするにはどうしたらよいでしょうか。

更に、数字の左側に円マークも表示させたいです。

よろしくお願いします。

Aベストアンサー

>B1に1、B2に2、B3に3、B4に4、B5に5と表示させたい。

 それでは数字が縦並びになっている事になりますが、それを

>右に詰めたいです。

とは一体どういう意味なのでしょうか?
 しかも、

>更に、数字の左側に円マークも表示させたいです。

となりますと、1,2,3,4,5の5個の数字に加えて円マークまで表示するのですから、合わせて6個のセルが必要になりますから、B5に1の位を表示させたのでは、セルの個数が足りないため、\12345を表示する事は出来ません。
 ですから、

>B1に1、B2に2、B3に3、B4に4、B5に5と表示させたい。

というのは間違いであるものと考えて、B1~G1に1桁ずつ、円マーク付きで表示する方法を回答させて頂きます。

 まず、G1セルに次の関数を入力して下さい。

=IF(COLUMNS(G:$G)>LEN(TEXT($A1,"¥0;¥-0")),"",LEFT(RIGHT(TEXT($A1,"¥0;¥-0"),COLUMNS(G:$G)),1))

 そして、G1セルをコピーして、B1~F1のセル範囲に貼り付けて下さい。

 以上です。

>B1に1、B2に2、B3に3、B4に4、B5に5と表示させたい。

 それでは数字が縦並びになっている事になりますが、それを

>右に詰めたいです。

とは一体どういう意味なのでしょうか?
 しかも、

>更に、数字の左側に円マークも表示させたいです。

となりますと、1,2,3,4,5の5個の数字に加えて円マークまで表示するのですから、合わせて6個のセルが必要になりますから、B5に1の位を表示させたのでは、セルの個数が足りないため、\12345を表示する事は出来ません。
 ですから、

>B1に1、B2に2、B3に3、B4に4、B5...続きを読む

Qエクセルで、いつのセルに入っている7桁の数字をそれぞれ1つづつ、7つのセルに分ける関数はありますか??

こんばんは。大変こちらでお世話になっています。

エクセルのデーターをもとに、宛名印刷をしたくていろいろ試みているのですが、会社規定の封筒の郵便番号枠に、美しく数字を印字することがどうしてもできません。
こうなったら、郵便番号をばらして、1字づつ印刷しようかと思っています。

そこで教えて頂きたいのですが、今1つのセルに入っている郵便番号7桁をそれぞれ1桁づつ、7つのセルに分けたいのです。これは何か関数を使ってできるのでしょうか?
どうぞ教えてください。よろしくお願いします。

Aベストアンサー

MIDという関数が良いかと思います。
A1に対象の値が入っているとして
=MID(A1,xxx,1)
xxxの部分は何桁目から取り出すか、最後の数字が何文字取り出すかという指定です。

例)A1に「abcdefg」とあり
=MID(A1,3,1)
とすると「c」が表示されます。

Qエクセルで桁数の分からない数値を右から1数値ずつ抜き出したい

エクセルで教えて下さい!!

桁数の分からない数値があります。
12345を他のセルに1数値づつ抜き出したい。
桁数が分かっていれば簡単なのですが…
桁数が分からない為その12345が入っていたセルには123456と6桁入る場合もあります。

RIGHTなら右から2文字とか3文字とか抜き出しますが…1つのセルに1つの数字を抜き出したいのです。
RIGHTなら1番右1文字は抜き出せても12345が入っている場合、2番目の4の数値を1文字だけ抜き出す事って不可能ですよね。(45を1つのセルに抜き出す事になります)

説明下手で申し訳ないですが(~_~;)分かれば教えて下さい宜しくお願いします!!ヽ(^o^)丿

Aベストアンサー

こんにちは~

> 桁数の分からない数値を右から1数値ずつ抜き出したい

「右から」ということは、たとえば A1セルに 123 と入っているとすれば、
B1が 3、C1が 2、D1が 1 となればいいのでしょうか?

そうだとして、A1に元の数値が入っているとすれば、
B1に
=IF(LEN($A1)<COLUMN(A1),"",LEFT(RIGHT($A1,COLUMN(A1)))*1)

または
=IF(LEN($A1)<COLUMN(A1),"",--LEFT(RIGHT($A1,COLUMN(A1))))

と入れて、必要なだけ右にフィルコピーしてください。
A1 に入る数値の最大桁数が 10桁だと思えば、K1セルまでコピー

★ COLUMN(A1) の A1は、元の数値がどのセルかに関係なく、必ず A1にしてください。

QExcelで数値を右詰めでセルに一つずつ分割したい

Excel2007です。
最大10桁の数値をセル毎に分割したい。
その際、1の位を一番右にして、右詰めで表示したい。
関数でする方法は、ありますか?

左詰めなら =MID($A1,COLUMN(A1),1)でできることは
調べてあります

Aベストアンサー

■右詰めが入力位置のことなら
10桁未満の時に前方空白表示なら(123456789→_,1,2,3,4,5,6,7,8,9)
=TRIM(MID(TEXT($A1,"??????????"),COLUMN(A1),1))

10桁未満の時に前方0表示なら(123456789→0,1,2,3,4,5,6,7,8,9)
=MID(TEXT($A1,"0000000000"),COLUMN(A1),1)

Qエクセルで1セルに一文字だけ入力したい

エクセルで原稿用紙のように表組みをして、1セルに一文字ずつ入力できるようにしたいのですが、このようなことは可能なのでしょうか。
もちろん、日本語縦書きで漢字も使用してです。

原稿用紙のようにマス罫の中に入力したいのです。
良い方法を教えてください。宜しくお願いします。

Aベストアンサー

入力規則で1つのセルに1文字しか入力できなくすることは可能かもしれませんが、これでは2文字以上入力するとエラーになってしまいます

希望されるものとは違うとは思いますが、A1に文章を入力して、B1に以下の式を入力します
 =MID($A$1,(20-COLUMN())*20+ROW()-1,1)

A2セルをA2:T21の範囲にコピーしてみてください。
エクセルでできるのはこんなことぐらいではないでしょうか
(20×20の升目になるはずです)

Qエクセル関数/任意の桁数の数字1個1個を別々のセルに読み込む関数

こんにちは
例えば、あるセルに123456という6桁の数字が入っていたとして、1、2、3、4、5、6の6個の数字をそれぞれ別々の(6個の)セルにコピーしてくれるようなエクセル関数はあるでしょうか?

Aベストアンサー

G列に入力した最大6桁の「数値」の、一の位はF列に、十の位はE列
に…と桁毎に分離したいと。小数点以下を無視した基本は、

F1: =mod(int(G1/1),10)
E1: =mod(int(G1/10),10)
D1: =mod(int(G1/100),10)

以下、察して下さい。で、これはブランクでも全部の桁に0が入りま
すね。途中の桁の0は表示して、余分なヤツだけ見えないようにする
工夫が必要です。たとえば

F1: =if(int(G1/1),mod(int(G1/1),10),"")
E1: =if(int(G1/10),mod(int(G1/10),10),"")

みたいな感じはいかがでしょう。

Qエクセル 文字を右詰めで1つのセルに1文字ずつ入力した形に変更するには

いつもお世話になります。
昨日、MID関数等で、1つのセルに入力されている情報を1文字ずつセルに入力する方法を知ったのですが、それを右詰めにする方法はありますでしょうか。

例;Sheet1に、6ケタまでの数値を入れるセルがあります。
これをSheet2のA1~F1のセルに1字ずつ入れたいのですが、Sheet1に"1000"と入れた場合、Sheet2のセルA1~F1には
A1=(空白),B1=(空白),C1="1",D1="0",E1="0",F1="0"
という形にしたいのです

以上宜しくお願い致します。

Aベストアンサー

こんにちは。maruru01です。

数値限定で。
Sheet2のA1に、

=MID(TEXT(Sheet1!$A$1,REPT("?",6)),COLUMN(A1),1)

と入力して、右へコピーします。
ちなみに、この数式だと数字がない桁は空白ではなく半角スペースが入ります。
もし、半角スペースも入れたくないなら、

=TRIM(MID(TEXT(Sheet1!$A$1,REPT("?",6)),COLUMN(A1),1))

とTRIM関数を通して下さい。

また、最大桁数が変わる場合は、数式中の「6」を任意に変更して下さい。

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行までとしていますが、必要に応じて変更して下さい

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む


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

人気Q&Aランキング