Excel VBA質問箱 IV

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

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


60821 / 76732 ←次へ | 前へ→

【20545】Re:重複データの整理について
発言  [名前なし]  - 04/12/11(土) 21:20 -

引用なし
パスワード
   >並び替え後
>20041201,11013015,0806,1730 になります。
>ID:11013016の退勤時間は消滅してしまいます。
>これが理解できません。
>何故でしょうか?
サンプルデータからみて、出勤時間と退勤時間は必ず対になっていると思っていました。
結果、Range("D2").Delete Shift:=xlUp実行時点で、データは
20041201,11013015,0806,1730
20041201,11013015
になるはずです。そのため、下から5行目の
If ActiveCell.Offset(0, 2).Value = "" Then
で、出勤時間が空白の時その行を削除しています。
退勤時間のみだけでなく、出勤時間のみというのもありえるのであれば、
If ActiveCell.Offset(0, 2).Value = "" And ActiveCell.Offset(0, 3).Value = "" Then
にしないといけません。それ以前に、
20041201,11013015,0806,
20041201,11013015,  ,1730
20041201,11013016,  ,1730
となっていた場合、Range("D2").Delete Shift:=xlUpで
20041201,11013015,0806,1730
20041201,11013015,  ,1730
20041201,11013016,  ,
になってしまうため、コードを見直す必要があります。
>2、
>日付順に並べようと思い
>並び替えのところを Key1:=Range("A1") にしました。
>そうするとD列:退勤時間が同じ日付に対し1件しか表示しなくなります。
>何故でしょうか?
その状態が再現できるサンプルデータを教えていただけませんか?
0 hits

【20493】重複データの整理について m3 04/12/10(金) 13:58 質問
【20517】Re:重複データの整理について [名前なし] 04/12/10(金) 22:11 回答
【20542】Re:重複データの整理について m3 04/12/11(土) 20:36 質問
【20545】Re:重複データの整理について [名前なし] 04/12/11(土) 21:20 発言
【20548】Re:重複データの整理について m3 04/12/11(土) 22:39 質問
【20550】Re:重複データの整理について [名前なし] 04/12/11(土) 23:01 発言
【20552】Re:重複データの整理について m3 04/12/11(土) 23:08 質問
【20554】Re:重複データの整理について m3 04/12/11(土) 23:34 発言
【20555】Re:重複データの整理について [名前なし] 04/12/11(土) 23:40 回答
【20556】Re:重複データの整理について m3 04/12/12(日) 0:46 お礼
【20567】Re:重複データの整理について m3 04/12/12(日) 12:02 質問
【20569】Re:重複データの整理について [名前なし] 04/12/12(日) 12:46 回答
【20570】Re:重複データの整理について m3 04/12/12(日) 14:46 お礼
【20571】Re:重複データの整理について [名前なし] 04/12/12(日) 14:52 発言
【20584】Re:重複データの整理について m3 04/12/12(日) 22:02 質問
【20585】Re:重複データの整理について [名前なし] 04/12/12(日) 23:10 回答
【20589】Re:重複データの整理について m3 04/12/13(月) 0:23 質問
【20592】Re:重複データの整理について [名前なし] 04/12/13(月) 1:02 回答
【20593】Re:重複データの整理について m3 04/12/13(月) 1:16 お礼
【20598】Re:重複データの整理について Jaka 04/12/13(月) 9:11 回答

60821 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free