0000-9999

００００～９９９９中に
偶数２つ奇数２つでできている
数字をエクセルですべて表示させたいのですが
やり方知っている方教えてください。
二つも質問申し訳ないんですが、
出した偶数２つ奇数２つの中に
０～４が２つ５～９が２つで出来ている
数字をすべて表示させる方法をできたらで
教えてください

No.3 回答者： mshr1962 回答日時： 2007/03/21 11:32

A2～A10001に0000～9999を用意

B2=SUMPRODUCT((MOD(MID($A2,ROW($A$1:$A$4),1),2)=0)*1)=2
C2=SUMPRODUCT((MID($A2,ROW($A$1:$A$4),1)*1<5)*1)=2
上記を10001までコピーする。

B列に奇数・偶数が2個セットならTRUE、それ以外はFALSEになります。
C列に0～4と5～9が2個セットならTRUE、それ以外はFALSEになります。
あとは「データ」「フィルタ」「オートフィルタ」で
B列がTRUEのものを表示させれば、偶数２つ奇数２つでできている数字
B列とC列がTRUEのものを表示させれば、偶数２つ奇数２つで且つ0～4が２つと5～9がふたつでできている数字
が表示できます。

上記関数以外だとマクロを組むしかないのでは？

この回答へのお礼

教えていただいた関数で解決しました。
回答ありがとうございました。

お礼日時：2007/03/22 00:32

No.2 回答者： zap35 回答日時： 2007/03/21 02:02

>偶数２つ奇数２つでできている

A1に０、A2に式
　=A1+1
を入力し、A9999までA2の式をコピーします

B1の式は
=MOD(INT(A1/1000),2)
C1の式は
=MOD(INT(A1/100),2)
D1の式は
=MOD(INT(A1/10),2)
E1の式は
=MOD(A1,2)
F1の式は
=SUM(B1:E1)

F1の値が２の値が偶数２、奇数２の値です。F列に「データ」→「フィルタ」→「オートフィルタ」でオートフィルタを設定し、２の値を表示させると希望通りのものが得られると思います

G1に
=IF(B1<5,1,0)
と入力し、G1をH1～J1にコピーします
K1に
=SUM(G1:J1)
と入力し、値が２なら求める数字です。G1～K1も下方向にコピーしてフィルタで抽出して下さい

No.1 回答者： p-applepie 回答日時： 2007/03/21 02:02

偶数２つ奇数２つというのは、0000～9999をそれぞれ桁は無視して

4つの数字の集まりとして・・という事でしょうか？

Excelで作業をする方法としては・・

A列に文字列として　0000～9999が入っているとして
B列に左から1桁目の奇数偶数判定
C列に2桁目の奇数偶数判定・・と分割すれば可能かと思います。
B列に
=MOD(MID($A1,COLUMN()-1,1)*1,2)
と入力し、E列までコピー。
F列に　=IF(AND(COUNTIF($B1:$E1,0)=2,COUNTIF($B1:$E1,1)=2),A1,"")と入力すれば、奇数・偶数が2つずつの場合は、A列の値を表示します。
(それ以外は空白となります)

二つ目の　0～4が二つ　というのは、同じ数が二つという意味でしょうか？
それとも0～4の自由な組み合わせを含むと言う事でしょうか。
0055、0077、0099でなくてはいけないのか、
それとも組み合わせは自由で　例えば0169はOKなのでしょうか。
補足をお願いします。

この回答へのお礼

＞二つ目の　0～4が二つ　というのは、同じ数が二つという意味でしょうか？
それとも0～4の自由な組み合わせを含むと言う事でしょうか。
自由な組み合わせです

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

お礼日時：2007/03/22 00:29