陣列篩選問題(已解決) - Excel程式區

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

5^# 跳轉到 »

發表於 2011-8-26 12:05 | 只看該作者

本帖最後由 softsadwind 於 2011-8-26 13:24 編輯

感謝，不過這程式跑出來是會直接幫你把剛好滿一個月的列出來..
並直接幫你把資料以今天的名義新增上去，並單獨顯示出來。這樣子是方便直接用該頁寄發信件。

不過會發生一個問題，就是遇到六日沒上班，這兩天的資料就會跳過讓過..
篩選條件要變成30日之前的都要列出來，把這些計算結果複製到新分頁，
然後再用複製的方式接續2011頁面的最後一行
2011那一頁就維持原貌。

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-8-25 15:47 | 只看該作者

回復 3# softsadwind

Option Explicit
Sub Ex()
Dim i As Double
With Sheets("2011")
.AutoFilterMode = False
For i = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Date = DateAdd("M", 1, .Cells(i, "A")) Then '間隔1個月
With .Cells(i, "A").Resize(, 6)
.Copy
.Insert xlShiftDown
.Cells(0, 1) = Date
.Cells(0, 5) = ""
End With
End If
Next
.Range("A1").AutoFilter 5, "="
End With
End Sub

複製代碼

TOP

softsadwind

中學生 Rank: 2

帖子: 129
主題: 3
精華: 0
積分: 178
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-12-28
最後登錄: 2018-11-10

3^#

發表於 2011-8-25 13:31 | 只看該作者

回復 2# oobird
這是開發用的日報表
間隔N天（一般是30天)再聯繫一次，是為了避免過度密集的丟信，被當成垃圾信。
所以這個篩選是一直持續的
每N天就會出現客戶名稱，方便業務人員去過濾名單和寄出廣告信件。

我想用個例子來看，可能會更清楚

A客戶 8/25聯繫過，因為是開發中..所以不見得會有回應...因此他的最後一次聯繫的日子還是在8/25
到9/25那天，判別N天(N=30) ，A客戶就會在出現一次。業務根據這個名單，再寄發一次廣告信。這時候，就會把最後一次聯繫的日期改成9/25，手動匯入日報表內。

所以A客戶在日報表會有兩欄
9/25 a客戶
8/25 a客戶

等到10/25，又會被篩選出現一次，再手動更新a客戶的聯繫日期為10/25
日報表就變成
10/25 a客戶 .......
9/25 a客戶.....
8/25 a客戶......

如果不用N 那就是直接用30帶進去，以30天為一個循環。

50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2011-8-25 12:50 | 只看該作者

判別 n天前最後一次聯繫

最終目的是要得到什麼樣的結果？

TOP

[發問] 陣列篩選問題(已解決)

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]