|
ちんさんへ
ど素人にも分かるような、丁寧はアドバイス有難う御座います
一度チャレンジしてみます。
以上
▼ちん さん:
>こんにちは、ちんといいます。
>>同一データの表示しないについて、大変参考になりました。
>>しかし、問題が一つあり重複するものの集計が必要となります。製番とか作業コードが毎回必ずしも同じ種類でないので、ピポットは使えないのではないかと思います
>
>VBAで作成するのであれば、
>日報データの最終列に、ソート用の項目をVBAによりセットする。
>FOR文 または、DO 〜 LOOP命令で、(先頭行から最終行まで)データを読み込み、各コードをソート用の列にセットします。
>
>'**** ソート用のキーをセットする
>FOR i = 1 TO 最終行
> SHEET1.CELLS(i,ソート用の列位置).Value = FORMAT(SHEET1.CELLS(i,コード1の列位置).Value,"0000") & FORMAT(SHEET1.CELLS(i,コード2の列位置).Value,"0000") & ・・・
>
>NEXT i
>
>'**** ソートの実行
>Selection.Sort Key1:=Range("ソート用の列"), ・・・
>
>'**** 同一名称の消去
>OLD_名称=""
>FOR i = 1 TO 最終行
> IF OLD_名称 = SHEET1.CELLS(i,名称の位置).Value THEN
> SHEET1.CELLS(i,名称の位置).Value = "" <--- 同じ名称は消す
> ELSE
> IF OLD_名称 = "" then
>
> ELSE
> OLD_名称 = SHEET1.CELLS(i,名称の位置).Value
>
> 一行下へ挿入の命令を実行。
> 合計の式を、入れる。
> END IF
> END IF
>NEXT i
>
>以上、試してませんが、参考までに・・・
|
|