mfsong

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-3-31
最後登錄: 2015-1-30

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-4-2 13:32 | 只看該作者

[發問]如何找出每月固定一筆資料

本帖最後由 GBKEE 於 2014-4-2 17:07 編輯

請問已知日期中如何再一堆資料中每月該日期的資料，也就是每月一筆資料？麻煩的是資料是每2~3天不定期一筆，
若找不到該月份的日期資料，就以該日期前日的資料為準，詳附件例子，請各位高手幫忙！！

data.rar (39.64 KB)

樓主熱帖

mfsong

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-3-31
最後登錄: 2015-1-30

論壇贊助勳章

7^#

發表於 2014-4-3 17:55 | 只看該作者

回復 6# GBKEE

謝謝版主！問題解決了！我曾自己嘗試解決，因很多指令不熟，使得程式搞得很複雜，但看得各位高手式子又短，羨慕各位功力！
THANKS！！

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兔年全勤獎章

6^#

發表於 2014-4-3 16:45 | 只看該作者

回復 5# mfsong

Option Explicit
Sub Ex()
Dim Mydate As Double, d As Integer, Rng As Range, A As Range, yy As Integer, i As Integer, k As Integer
d = InputBox("輸入基準日", , 13)
Set Rng = UsedRange.Columns(1)
For yy = Year([B1]) To Year([B1].End(xlToRight)) '年度
For i = 1 To 12 '月份
For k = d To 1 Step -1 '往前找日期
Mydate = DateValue(yy & "/" & i & "/" & k)
If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
GoTo 10
End If
Next
For k = d + 1 To Day(DateAdd("m", 1, DateValue(yy & "/" & i)) - 1) '往後找日期
Mydate = DateValue(yy & "/" & i & "/" & k)
If IsNumeric(Application.Match(Mydate, Rows(1), 0)) Then
Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
GoTo 10
End If
Next
10
If Not A Is Nothing Then Set Rng = Union(Rng, A)
Set A = Nothing
Next
Next
Rng.Select '選取資料範圍
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

mfsong

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-3-31
最後登錄: 2015-1-30

論壇贊助勳章

5^#

發表於 2014-4-3 13:54 | 只看該作者

回復 4# Hsieh

Exactly! 程式很精簡，不過資料無法處理跨年說...謝謝了！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-4-3 10:22 | 只看該作者

回復 3# mfsong

Sub ex()
Dim Mydate#, d%, Rng As Range, A As Range
d = InputBox("輸入基準日", , 13)
ym = Format([B1], "yyyy/")
Set Rng = UsedRange.Columns(1)
For i = 1 To 12
Mydate = DateValue(ym & i & "/" & d)
k = d
Do Until IsNumeric(Application.Match(Mydate, Rows(1), 0))
k = k - 1
If k < 1 Then GoTo 10
Mydate = DateValue(ym & i & "/" & k)
Loop
Mydate = DateValue(ym & i & "/" & k)
Set A = UsedRange.Columns(Application.Match(Mydate, Rows(1), 0))
Set Rng = Union(Rng, A)
10
Next
Rng.Select '選取資料範圍
End Sub

複製代碼

學海無涯_不恥下問

TOP

mfsong

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2014-3-31
最後登錄: 2015-1-30

論壇贊助勳章

3^#

發表於 2014-4-2 17:44 | 只看該作者

回復 2# p212

Sorry, 前面說明不清楚；補充如後：來源資料是但是每隔2~3天一筆之連續數月的資料，希望輸入固定一天資訊後，之後能整理出該月的當天資料，
例如：輸入13，希望整理出1/13, 2/13, 3/13,.....的每行資料，其中若無2/13，則往前推2/12資料為準。
以上說明。

TOP

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

2^#

發表於 2014-4-2 13:55 | 只看該作者

回復 1# mfsong
從問題的描述與附件看不出您的困擾與期待為何，可否提供預期結果範例？
謝謝！

TOP