編集

たぬたぬ様、前回HNを間違えて入力してしまいました。お詫びいたします。
星野様同様やってみました。出来ました！またまた感激です。有難うございま
した。
実は昨日からこれを理解するために、半日は費やしていました。マクロを使わ
なくても出来るのですね。超感激です。しかし、13)のところで5分位掛ってい
たのでPCが壊れたのかと思いました。（もう古いので、来月買います。）
新しい事、知らない事をたぬたぬ様に教えていただき、自分でも学び、その結
果自分自身が成長することって楽しいですね。
人間が味わう充足感や感動の大半は、ものを学ぶことから生まれると云います。
棺おけに片足突っ込んでいるような私ですが、これからも学習だけは忘れずに
やっていこうと思います。本当に有り難うございました。

たぬたぬ様、前回HNを間違えて入力してしまいました。お詫びいたします。
星野様同様やってみました。出来ました！またまた感激です。有難うございま
した。
実は昨日からこれを理解するために、半日は費やしていました。マクロを使わ
なくても出来るのですね。超感激です。しかし、13)のところで5分位掛ってい
たのでPCが壊れたのかと思いました。（もう古いので、来月買います。）
新しい事、知らない事をたぬたぬ様に教えていただき、自分でも学び、その結
果自分自身が成長することって楽しいですね。
人間が味わう充足感や感動の大半は、ものを学ぶことから生まれると云います。
棺おけに片足突っ込んでいるような私ですが、これからも学習だけは忘れずに
やっていこうと思います。本当に有り難うございました。

返信

編集

>もし13桁のデーターがもっと多い場合は計算式を増やすとよいのですよね！
>5行とか10行とか50行あった場合は多めに60行計算式を入れておくやり方で
>いいのでしょうか？
>お客様のデーターがまちまちの場合なのですが！

8)〜11)のような数式を多めに入れておくということでしょうか？
1)の数式をいじってやらないといけませんが（商品番号が５つという
前提なので５で割ってたり、その余りを計算してたりしてます。）
何とかなるでしょう。

ただ、次のようなことが発生するので注意です。
・Ｂ列にお客様によって空白のセルが出現する。
・エクセルは行が65536までしかないのでお客様の人数やデータの数に注意

休日であればもう少し別の方法をゆっくり考えることができるのですが。。。
申し訳ないです。
これだけのデータベースとなると、エクセルではなく、
アクセスで管理することが便利かと思います。
また、マクロができるようになるといろいろな処理が簡単になりますよ。
基本だけ覚えてみると意外と簡単で便利です。

>もし13桁のデーターがもっと多い場合は計算式を増やすとよいのですよね！
>5行とか10行とか50行あった場合は多めに60行計算式を入れておくやり方で
>いいのでしょうか？
>お客様のデーターがまちまちの場合なのですが！

8)〜11)のような数式を多めに入れておくということでしょうか？
1)の数式をいじってやらないといけませんが（商品番号が５つという
前提なので５で割ってたり、その余りを計算してたりしてます。）
何とかなるでしょう。

ただ、次のようなことが発生するので注意です。
・Ｂ列にお客様によって空白のセルが出現する。
・エクセルは行が65536までしかないのでお客様の人数やデータの数に注意

休日であればもう少し別の方法をゆっくり考えることができるのですが。。。
申し訳ないです。
これだけのデータベースとなると、エクセルではなく、
アクセスで管理することが便利かと思います。
また、マクロができるようになるといろいろな処理が簡単になりますよ。
基本だけ覚えてみると意外と簡単で便利です。

返信

編集

やってみました、出来ました！またまた感激です。有難うございました。又聞いてい
いでしょうか？もし13桁のデーターがもっと多い場合は計算式を増やすとよいのです
よね！5行とか10行とか
50行あった場合は多めに60行計算式を入れておくやり方でいいのでしょうか？
お客様のデーターがまちまちの場合なのですが！宜しくお願いします。

やってみました、出来ました！またまた感激です。有難うございました。又聞いてい
いでしょうか？もし13桁のデーターがもっと多い場合は計算式を増やすとよいのです
よね！5行とか10行とか
50行あった場合は多めに60行計算式を入れておくやり方でいいのでしょうか？
お客様のデーターがまちまちの場合なのですが！宜しくお願いします。

返信

編集

ちょっと面倒なやり方かもしれませんし、
ほかに簡単なやり方があるかもしれませんが
次のような方法はどうでしょうか？

前提：A列とB列には8000行まで入力されている。

1)セルC1に=IF(MOD(ROW(C1),5)=0,(ROW(C1)-MOD(ROW(C1),5))/5,(ROW(C1)-MOD(ROW(
C1),5))/5+1)
2)セルC1を「コピー」し、セルC2〜C5に「貼り付け」
3)セルD1に =INDIRECT("A"&C1,TRUE)
4)セルD1を「コピー」し、セルD2〜D5に「貼り付け」
5)セルE1に ="B"&C1
6)セルE1を「コピー」し、セルE2〜E5に「貼り付け」
7)セルF1に =LEFT(INDIRECT(E1,TRUE),13)
8)セルF2に =right(MID(INDIRECT(E2,TRUE),14,14),13)
9)セルF3に =right(MID(INDIRECT(E3,TRUE),28,14),13)
10)セルF4に =right(MID(INDIRECT(E4,TRUE),42,14),13)
11)セルF5に =right(MID(INDIRECT(E5,TRUE),56,14),13)
12)セルC1〜F5を範囲選択し「コピー」
13)セルC6〜F40000を範囲選択し「貼り付け」
14)D列を選択し「コピー」、さらにD列を選択し「形式を選択して貼り付け」
15)F列を選択し「コピー」、さらにF列を選択し「形式を選択して貼り付け」
16)A列、B列、C列、E列を削除

ちょっと面倒なやり方かもしれませんし、
ほかに簡単なやり方があるかもしれませんが
次のような方法はどうでしょうか？

前提：A列とB列には8000行まで入力されている。

1)セルC1に=IF(MOD(ROW(C1),5)=0,(ROW(C1)-MOD(ROW(C1),5))/5,(ROW(C1)-MOD(ROW(
C1),5))/5+1)
2)セルC1を「コピー」し、セルC2〜C5に「貼り付け」
3)セルD1に =INDIRECT("A"&C1,TRUE)
4)セルD1を「コピー」し、セルD2〜D5に「貼り付け」
5)セルE1に ="B"&C1
6)セルE1を「コピー」し、セルE2〜E5に「貼り付け」
7)セルF1に =LEFT(INDIRECT(E1,TRUE),13)
8)セルF2に =right(MID(INDIRECT(E2,TRUE),14,14),13)
9)セルF3に =right(MID(INDIRECT(E3,TRUE),28,14),13)
10)セルF4に =right(MID(INDIRECT(E4,TRUE),42,14),13)
11)セルF5に =right(MID(INDIRECT(E5,TRUE),56,14),13)
12)セルC1〜F5を範囲選択し「コピー」
13)セルC6〜F40000を範囲選択し「貼り付け」
14)D列を選択し「コピー」、さらにD列を選択し「形式を選択して貼り付け」
15)F列を選択し「コピー」、さらにF列を選択し「形式を選択して貼り付け」
16)A列、B列、C列、E列を削除

返信

編集

たぬたね様、星野様、割り込みすみません。
いつも勉強させて頂いております。
Ｂ1の一行に番号１３桁がたてに５並んでいるのを一行づつにするのは
たぬたぬ様のご指導通りやったら出来ました。
自分で考えたのは、もっと手間のかかるやり方でしたので、目から鱗で
した。=*^-^*=♪
しかし、あのやり方で8000件は少し厳しいかなと思います。
8000件あった場合は、もうマクロの世界でしょうか？
宜しくお願い致します。

たぬたね様、星野様、割り込みすみません。
いつも勉強させて頂いております。
Ｂ1の一行に番号１３桁がたてに５並んでいるのを一行づつにするのは
たぬたぬ様のご指導通りやったら出来ました。
自分で考えたのは、もっと手間のかかるやり方でしたので、目から鱗で
した。=*^-^*=♪
しかし、あのやり方で8000件は少し厳しいかなと思います。
8000件あった場合は、もうマクロの世界でしょうか？
宜しくお願い致します。

返信

編集

少し状況がわかりづらく、的外れの回答かもしれませんが、

１．セルＡ１を「コピー」、Ａ２〜Ａ５まで「貼り付け」。

２．セルＣ１に　=left(B1,13)　と入力
　　（これでセルＣ１に１つ目の商品番号１３桁が表示）

３．セルＣ２に　=mid(B1,14,14)　と入力
　　（これでセルＣ２に２つ目の商品番号１３桁が表示）

４．セルＣ３に　=mid(B1,28,14)　と入力
　　（これでセルＣ３に３つ目の商品番号１３桁が表示）

５．セルＣ４に　=mid(B1,42,14)　と入力
　　（これでセルＣ４に４つ目の商品番号１３桁が表示）

６．セルＣ５に　=mid(B1,56,14)　と入力
　　（これでセルＣ５に５つ目の商品番号１３桁が表示）

７．Ｃ列を「コピー」し、「形式を選択して貼り付け」
　　「値」をチェックしＯＫをクリック
　　（Ｃ列に入力された数式を値に変更）

８．Ｂ列を「削除」

これでＡ１〜Ａ５までが同じ名前、
Ｂ１〜Ｂ５までがそれぞれの商品番号１３桁が入った状態になります。

ご質問から想定した状況が間違っていたら申し訳ありません。
その場合はその旨レスいただければ、再度回答したいと思います。

少し状況がわかりづらく、的外れの回答かもしれませんが、

１．セルＡ１を「コピー」、Ａ２〜Ａ５まで「貼り付け」。

２．セルＣ１に　=left(B1,13)　と入力
　　（これでセルＣ１に１つ目の商品番号１３桁が表示）

３．セルＣ２に　=mid(B1,14,14)　と入力
　　（これでセルＣ２に２つ目の商品番号１３桁が表示）

４．セルＣ３に　=mid(B1,28,14)　と入力
　　（これでセルＣ３に３つ目の商品番号１３桁が表示）

５．セルＣ４に　=mid(B1,42,14)　と入力
　　（これでセルＣ４に４つ目の商品番号１３桁が表示）

６．セルＣ５に　=mid(B1,56,14)　と入力
　　（これでセルＣ５に５つ目の商品番号１３桁が表示）

７．Ｃ列を「コピー」し、「形式を選択して貼り付け」
　　「値」をチェックしＯＫをクリック
　　（Ｃ列に入力された数式を値に変更）

８．Ｂ列を「削除」

これでＡ１〜Ａ５までが同じ名前、
Ｂ１〜Ｂ５までがそれぞれの商品番号１３桁が入った状態になります。

ご質問から想定した状況が間違っていたら申し訳ありません。
その場合はその旨レスいただければ、再度回答したいと思います。

返信

編集

よろしくお願いします、Ａ1に名前が入ってます、Ｂ1の一行にその方の買い上げの番
号１３桁がたてに５並んで入ってます、この５並んでる１３桁を一行づつにしたいの
です、そしＡ1の名前もおなじに下に複写してＡ1からＡ5まで名前Ｂ1からＢ５まで13
桁の商品番号がそれぞれ入るようにしたいのです。よろしくご指導お願いします

よろしくお願いします、Ａ1に名前が入ってます、Ｂ1の一行にその方の買い上げの番
号１３桁がたてに５並んで入ってます、この５並んでる１３桁を一行づつにしたいの
です、そしＡ1の名前もおなじに下に複写してＡ1からＡ5まで名前Ｂ1からＢ５まで13
桁の商品番号がそれぞれ入るようにしたいのです。よろしくご指導お願いします

返信

編集

たぬたぬ様感謝です、出来ました！有難うございます。もう一つ難題がありますので
申し訳ありませんが又よろしくご指導お願いします。ほんとうに有難うございました
。

たぬたぬ様感謝です、出来ました！有難うございます。もう一つ難題がありますので
申し訳ありませんが又よろしくご指導お願いします。ほんとうに有難うございました
。

返信

編集

たとえば、Ｃ列に名字＋スペース＋名前を表示させるとしますと、

セルＣ１に次の式を入力します。

＝Ａ１&"　"&Ｂ１

これでセルＣ１に「Ａ１の名字　Ｂ１の名前」と表示されます。
（「"」と「"」の間を全角スペースにするか半角スペースにするかは好みです。）

次にセルＣ１を「コピー」し、セルＣ２からセルＣ８０００に「貼り付け」る。
これでＣ２からＣ８０００も同様に「その行の名字　その行の名前」が表示されます

。

表示はされますが、実際にＣ列のセルに入っているのは数式ですので、
必要であれば、

Ｃ列を選択して「コピー」する。
Ｃ列を選択し、「形式を選択して貼り付け」（右クリックメニューにあります）
「値」をチェックしてＯＫをクリック

これで数式ではなく「名字　名前」が入力されているようになります。

わかりますでしょうか？

たとえば、Ｃ列に名字＋スペース＋名前を表示させるとしますと、

セルＣ１に次の式を入力します。

＝Ａ１&"　"&Ｂ１

これでセルＣ１に「Ａ１の名字　Ｂ１の名前」と表示されます。
（「"」と「"」の間を全角スペースにするか半角スペースにするかは好みです。）

次にセルＣ１を「コピー」し、セルＣ２からセルＣ８０００に「貼り付け」る。
これでＣ２からＣ８０００も同様に「その行の名字　その行の名前」が表示されます

。

表示はされますが、実際にＣ列のセルに入っているのは数式ですので、
必要であれば、

Ｃ列を選択して「コピー」する。
Ｃ列を選択し、「形式を選択して貼り付け」（右クリックメニューにあります）
「値」をチェックしてＯＫをクリック

これで数式ではなく「名字　名前」が入力されているようになります。

わかりますでしょうか？

返信

編集

http://hpcgi1.nifty.com/kenzo30/a_cbbs/cbbs.cgi

http://hpcgi1.nifty.com/kenzo30/a_cbbs/cbbs.cgi

返信