プロが教えるわが家の防犯対策術!

いつもお世話になっております。
excel2016、商品情報シートがあり、同じ商品CDで1行横並びのデータを作成したいので
お教えください
(ちなみに色はコード化されています、例えば赤=1、黒=2、白=3等。色は最大5迄)
1行目は見出し、データは2行目です。
処理後は別シートと考えいます

商品情報シート
a    B C  D F G
商品CD 商品名 色 縦 横 長さ
100 ネジ 赤  10 10 20
100 ネジ 黒  10 15 10
101 くぎ  赤 1 2 3
101 くぎ 白  2 2 2

商品CD 商品名 色 縦 横 長さ 色 縦 横 長さ 色 縦 横 長さ
100 ネジ  赤  10 10 20 黒 10 15 10
101 くぎ  赤 1 2 3          白  2 2 2

以上のようなやり方をしたいのですが、よろしくお願いいたします

質問者からの補足コメント

  • どう思う?

    yokohamahope様
    お騒がせしてすみません。暫定で取敢えずコードはできました。
    今後ともよろしくお願いいたします。

    No.4の回答に寄せられた補足コメントです。 補足日時:2020/09/22 13:28

A 回答 (9件)

どうやら、



お忙しく、
手が はなせない、
ご様子。


できれば、

何れだけの 要件が、
求められるのか、
伺えれば よかったのですが、
残念ですね。


なんとも、

仕方も ありません。


まぁ実は、

多データ下での 動作確認と、
必要域への フィルを、
するだけなのですが、

後ろ髪を 引かれつつ、
提出します。


ファイル、
https://1drv.ms/x/s!AjviygfJDgV_4R_NaxhRgQvXdeg7


できれば、

更なる 多データを、
此に 課し、

機能を ご確認、
頂けますか?


其れと、

お求め 頂けましたなら、
「解説せよ、」と、
お申し付け 頂きたく、
思います。


尚、

ファイルは 1度、
ローカルに 別名保存して、
其の保存ファイルを 扱うように、
してくださいね、

別名保存でないと、
意味が 無いですよ。


さすれば、

閲覧も、編集も、
叶うものと 思いますよ。


因みに、

此は 正に、
私が 作成した、
やり方で、

私の 公開以前、
既に、
知られた ものでも、
公開されている ものでも、
ありません。


元より、

私の オリジナルで、

故に、
相応に 誰でも、
勘案し得るものでは、
ない事より、

私に 著作権が、
帰属しています。


当該に付いては、

使用に 際しては、
私の 指定した、
使用上の ルールに、
従う限り、

金品等 一切を、
請求するものでは ありませんが、

真逆に、
従わなかった場合は、
賠償を 請求します。


では、

使用の ルールですが、

此の、
やり方、考え方を、
何時、何処で、
どのIDの ものの、
提示から 知ったか、

使用時には、
誰の 目にも、
灼かに 伺えるよう、
詠う事と、

其れを 見たものが、
此の 義務を、
引き継ぐように 指定する事を、
義務付けます。


使用に 際しては、

此を 怠らない限り、
使用は フリーです。


逆に、

反した場合は 先筆通り、
賠償を 頂きます、

其れだけの 事です。


此、

本来は 履行する方が、
常識な 事なので、

態々 此の様に、
書かないと いけない、

そんな現状が、
狂気的な 異常状態なのです。


然りとて、

書かないと、
誰も 履行しないので、

お目汚しには なるかとも、
思いましたが、

書き込まして 頂きました。


又、

こうでも しておかないと、
間違えた 使用法により、
困惑されているような 事態を、
目の辺りに した時、

「其れ 私が、
作り出した ものなので、
私なら 判りますよ。」
と 投げかけた際に、

狂人扱いを 真面に、
あからさまに されるのですよ、

此は 困るので、
防ぎたいのです。


本来、

賠償等 求めては、
居ませんが、

此の国の 法律体系では、
規制を 個人が、
貼る場合は、

賠償の 形しか、
取れない、

と 思っているもので、
こう しています。


ご理解を 頂けましたなら、
又、
お役に 立てて、
居たならば

幸いです。
「同一商品 色違い 商品情報を 1行横並び」の回答画像9
    • good
    • 0

関数で、



割と 大詰めまで、
できたのですが。


しかし、

件数が 多いと、
重いかも?


其処で、

教えてください、
品番項数、品種内最大種別数、
此の 各々をです。


やはり、

品種内最大種別数の 個数だけ、
横方向に 欄が、
要るのですよね?


又、

品番数だけ 表示列数が、
要るのですよね?


各々、

幾つづつ 確保しておけば、
いいでしょうかね?
    • good
    • 0

関数より VBコードの、


方が いいのですか?
    • good
    • 0

こんにちは!



VBAになりますが、一例です。
元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールにしてください。

Sub Sample1()
 Dim i As Long, k As Long
 Dim myRow As Long, myCol As Long
 Dim wS As Worksheet
 Dim c As Range
 Dim myAry

  myAry = Array("赤", "黒", "白", "青", "黄") '//←色の順を羅列しておく//
  Set wS = Worksheets("Sheet1")

   With Worksheets("Sheet2")
    .Cells.ClearContents
    .Range("A1:B1").Value = wS.Range("A1:B1").Value
     For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
      Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
       If c Is Nothing Then
        myRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
       Else
        myRow = c.Row
       End If
        .Cells(myRow, "A").Resize(, 2).Value = wS.Cells(i, "A").Resize(, 2).Value

       For k = 0 To UBound(myAry)
        If wS.Cells(i, "C") = myAry(k) Then Exit For
       Next k
        myCol = (k + 1) * 4 - 1
         If .Cells(1, myCol) = "" Then
          .Cells(1, myCol).Resize(, 4).Value = wS.Range("C1:F1").Value
         End If
          .Cells(myRow, myCol).Resize(, 4).Value = wS.Cells(i, "C").Resize(, 4).Value
     Next i
      .Activate
   End With
    MsgBox "完了"
End Sub

こんな感じではどうでしょうか?

※ シート名は実際のシート名にしてください。
コード内に2か所だけあります。m(_ _)m
    • good
    • 0
この回答へのお礼

tomo4さん
ありがとうございます。
参考にさせて頂きます。
今後ともよろしくお願いいたします。

お礼日時:2020/09/22 19:47

》 色はコード化されています


》 赤=1、黒=2、白=3等
と云ふ事は、赤、黒、白と表示されて居るセルには夫々數値の1、2、3が入力されていると?
ビックリポン!
參考迄にだう云ふ書式設定して居るのか、是非教へて下さい!御願ひします。
    • good
    • 1

>色、縦、横、長さ、後2項目が増えそうですので、


>例えば重量、才数の項目が増える予定。増えた場合、項目数の変更可能と意味です。
増やす時には、増えた項目数分の列を、ぞれぞれの色に追加するだけでいいのではないでしょうか。
ただし、こんな表を作ると画面で見ても印刷しても、横に長くて見難い様に思われます。
この回答への補足あり
    • good
    • 0
この回答へのお礼

はい。おしゃる通りです。理解していますが、必要です。
色(コードあり)に対して、縦、横、長さ、重量、才数との5項目です。
色についは、いま減らす要検討しています。

よろしくお願いいたします

お礼日時:2020/09/22 12:18

>そのへん、変更可能対応でお願いします。


>勝手いって申し訳ございません、
商品CD 商品名 色 縦 横 長さ 色 縦 横 長さ 色 縦 横 長さ 色 縦 横 長さ 色 縦 横 長さ
列を上記の様に(色 縦 横 長さを2個分追加)するだけで良いのではないですか? 何が不明なのですか?(変更可能対応ってどういう意味?)
    • good
    • 0
この回答へのお礼

色、縦、横、長さ、後2項目が増えそうですので、
例えば重量、才数の項目が増える予定。増えた場合、項目数の変更可能と意味です。

お礼日時:2020/09/22 11:54

>商品CD 商品名 色 縦 横 長さ 色 縦 横 長さ 色 縦 横 長さ


色が5種類まであるので、上記の3種類から2個分増やせば良いのではないでしょうか。
    • good
    • 0
この回答へのお礼

はい。そうです。
それと対象項目が、縦 横 長さ3項目から5項目になる予定です。
そのへん、変更可能対応でお願いします。
勝手いって申し訳ございません、

お礼日時:2020/09/22 11:39

回答でなくて申し訳ないのですが、ちょっと聞いていいですか?


100番のネジって、色違いで横や長さが異なるのですか?
長さが違えば、商品CDが変わるような気がするのですが、私って無知すぎますかね?
    • good
    • 0
この回答へのお礼

ママチャリ様
商品cdのつけ方は会社毎の考え方で変わります。
今回は色(コードあり)で縦、横、長さの横並びを考えています。

お礼日時:2020/09/22 11:32

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

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


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

人気Q&Aランキング