如何用vba刪除不是當日日期

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-3-15 02:05 | 顯示全部帖子

如何用vba刪除不是當日日期

請問如何用VBA
A欄位為日期欄位
若不是當日日期則刪除那一整列
謝謝

樓主熱帖

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

2^#

發表於 2015-3-16 11:33 | 顯示全部帖子

回復 2# lpk187
謝謝大大指導執行程式碼後整個EXCEL沒回應當住需要強制關閉EXCEL
日期格式是20150316
謝謝

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

3^#

發表於 2015-3-16 21:51 | 顯示全部帖子

回復 5# stillfish00
謝謝大大回覆可以成功執行
可以再請教一個疑問是如果A1欄位為標題姓名 B1標題為日期 B2開始格式為2015/03/16請問這樣VBA如何刪除不是當日日期的一整列
麻煩大大謝謝

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

4^#

發表於 2015-3-17 21:22 | 顯示全部帖子

回復 7# stillfish00
我有試過很多方法因不了解才在發問我有試過例如
      Sub Test()
      Dim i As Long
      With ActiveSheet
         For i = .Cells(.Rows.Count, "B2:B").End(xlUp).Row To 1 Step -1
            If StrComp(.Cells(i, "B2:B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
         Next
      End With
End Sub
不懂欄位從B2開始跟日期表示
還請大大指導
謝謝

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

5^#

發表於 2015-3-19 03:04 | 顯示全部帖子

回復 9# stillfish00
感謝大大在百忙中多次回覆小弟的愚問真心謝謝您的指導謝謝^^