Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43312 / 76732

←次へ　｜　前へ→


	【38470】Re:オートフィルタで絞り込んだデータで...

kobasan - 06/6/3(土) 16:41 -


	引用なし

	パスワード

今日は、

>sheet2に月、受付、適合、不備は表示されましたが件数（数字）がでません。
>
>keinさんへ以下のテストデータでどうでしょうか。
>
>日付　　　　氏名　　　　ほか　　　　内容
>2006/5/3　　　　山田　　　　・・　　　　受付
>2006/5/4　　　　伊藤　　　　・・　　　　適合
>2006/5/10　　　　花子　　　　・・　　　　不備
>2006/5/22　　　　遠藤　　　　・・　　　　適合
>2006/6/9　　　　加藤　　　　・・　　　　適合
>2006/6/15　　　　河合　　　　・・　　　　受付
>2006/6/16　　　　佐藤　　　　・・　　　　不備
>2006/6/20　　　　高橋　　　　・・　　　　不備
>2006/7/1　　　　種田　　　　・・　　　　不備
>2006/7/4　　　　玉置　　　　・・　　　　受付
>2006/7/15　　　　なぜか　　　　・・　　　　適合
>2006/7/20　　　　きき　　　　・・　　　　適合
>2006/7/22　　　　へんだ　　　　・・　　　　受付
>

初めの日付の書式
　A　　　B　　　C　　D

　 5/3　　山田　・・　受付
　 5/4　　伊藤　・・　適合

と、この日付の書式

日付　　　　氏名　　　　ほか　　　　内容
2006/5/3　　　　山田　　　　・・　　　　受付
2006/5/4　　　　伊藤　　　　・・　　　　適合

とが、ちがうために集計されないのです。

　　　 dkey = Split(r.Text, "/")(0) & r.Offset(, 3).Text　　　 'A列の書式は文字列 m/d

を

　　　 dkey = Split(r.Text, "/")(1) & r.Offset(, 3).Text　　　'A列の書式は文字列 yyyy/m/d
　　　　　　　　　　　　　　　　　 ~~~~　　　　　　　　　　　　　　　　　　　　　　　　　　　　~~~~~~~~~~

に変更してください。

2 hits

▼

【38421】オートフィルタで絞り込んだデータで、特... EBI 06/6/2(金) 11:25