返回列表 上一主題 發帖

[發問]依篩選後資料,填入日期記錄(已解決)

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-10 08:17 | 只看該作者

[發問]依篩選後資料,填入日期記錄(已解決)

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

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

篩選資料記錄日期.rar (3.23 KB)
收藏 分享

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
5#
發表於 2011-8-10 17:31 | 只看該作者

RE: [發問]依篩選後資料,填入日期記錄(已解決)

回復 4# oobird

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 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
複製代碼

TOP

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
3#
發表於 2011-8-10 10:15 | 只看該作者
回復 2# play9091

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

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

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
2#
發表於 2011-8-10 09:43 | 只看該作者
試試看，不知道是不是你要的！
  1. Sub 巨集2()
  2. '
  3. ' 巨集2 巨集
  4. '

  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
複製代碼
初學VBA乍到twbts

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題