| |
▼kikan さん：
>改めて、AutoFilterした後の話になります。
>具体的には
>(ワークシートWAREA)にコピーして
> 下の配列はコピー後の(ワークシートWAREA)になります。
> ・
>の様になってまして H列に種類1〜8までの種類があります。
>ここでラベルに
> ”種類1：２件”
> ”種類2：１件”
> ”種類3：１件”
> ”種類4：２件”
> ”種類5：０件”
> ”種類6：０件”
> ”種類7：０件”
> ”種類8：１件”
> と言った具合に表示させたいのですが・・？
種類があらかじめ分かっているなら、ワークシート関数のCountIf を
使ったらいかがですか？
MsgBox WorksheetFunction.CountIf(H列データ範囲,"種類1")
>また、(ワークシートWAREA)後のﾃﾞｰﾀをCSV出力したいのですがどうすればいいでしょうか
「WAREA」シートを［編集］メニュー -［シートの移動またはコピー］を使って
あたらしいBookにCopyして、そのBookを (CSV形式で)[名前をつけて保存]する
するまでの操作をマクロ記録してください。
|
|
kanabun
- 09/3/18(水) 12:37 -
