標題: [發問]依篩選後資料,填入日期記錄(已解決) [打印本頁]

---

作者: 巴克斯    時間: 2011-8-10 08:17     標題: [發問]依篩選後資料,填入日期記錄(已解決)

本帖最後由 巴克斯 於 2011-8-10 17:32 編輯

如題&附件,請問如何只針對篩選過的資料,填入相關資料,謝謝

[attach]7349[/attach]

---

作者: play9091    時間: 2011-8-10 09:43

試試看，不知道是不是你要的！

1. Sub 巨集2()
   
2. '
   
3. ' 巨集2 巨集
   
4. '
   
5. 
   
6. '篩選資料
   
7.     ActiveSheet.Range("$A$1:$B$57").AutoFilter Field:=1, Criteria1:="B"
   
8. '全選
   
9.     Range("A1").CurrentRegion.Select
   
10. '取代
    
11.     Selection.Replace What:="8/1", Replacement:="8/10", LookAt:=xlPart, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14. End Sub

複製代碼

---

作者: 巴克斯    時間: 2011-8-10 10:15

回復 2# play9091

謝謝回覆
不過我是先人工篩選,想要針對已篩選的資料B
其舊日期資料8/1,想逐一加入當日日期(由8/1變成8/1,8/10)---加入當日8/10資料

因為篩選出來的B資料中,其舊資料日期不一定全是8/1(抱歉沒舉例好)
所以不全然用單一的取代,請問如何獲取逐欄位置,加入當日日期資料
謝謝

---

作者: oobird    時間: 2011-8-10 10:42

1. Sub yy()
   
2. With ActiveSheet
   
3. If .FilterMode Then
   
4. For Each c In .[b:b].SpecialCells(2, 23)
   
5. If c.Row > 1 Then c.Value = c.Value & "," & Application.Text(Date, "m/d")
   
6. Next
   
7. End If
   
8. End With
   
9. End Sub

複製代碼

---

作者: 巴克斯    時間: 2011-8-10 17:31     標題: RE: [發問]依篩選後資料,填入日期記錄(已解決)

回復 4# oobird

謝謝木工版大,問題解決了
程式又精簡,我要好好學習

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)