如何將每個時段內的指定數值抽出 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何將每個時段內的指定數值抽出

返回列表下一主題上一主題發帖

[發問] 如何將每個時段內的指定數值抽出

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

11^# 跳轉到 »

發表於 2013-9-2 15:58 | 只看該作者

A1min.rar (135.22 KB)
再請教如何將指定時段內的指定數值取代上一個/下一個時段內相關數值?之後重新排列(如Sheet1中的右邊例子)，再三謝謝!
指定時段:
9:14, 12:59, 16:59 這3個時段的"Open"數值取代下一個時段9:15, 13:00, 17:00的"Open"數值
16:15, 12:00, 23:00 這3個時段的"Close"數值取代上一個時段16:14, 11:59, 22:59的"Close"數值

超級版主 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兔年全勤獎章

12^#

發表於 2013-9-2 18:22 | 只看該作者

回復 11# donod

Option Explicit
Sub Ex()
Dim Rng(1 To 3) As Range, i As Integer, Ar(), S
Set Rng(1) = Sheets("Sheet1").Range("b:b")
Ar = Array(#9:14:00 AM#, #12:59:00 PM#, #4:59:00 PM#, #4:15:00 PM#, #12:00:00 PM#, #11:00:00 PM#)
For i = 0 To UBound(Ar)
Set Rng(2) = Rng(1).Find(Ar(i), LookIn:=xlFormulas)
If Not Rng(2) Is Nothing Then
S = Rng(2).Address
Do
If i <= Int(UBound(Ar) / 2) Then
Rng(2).Offset(1, 1) = Rng(2).Offset(, 1)
Else
Rng(2).Offset(-1, 4) = Rng(2).Offset(, 4)
End If
If Not Rng(3) Is Nothing Then
Set Rng(3) = Union(Rng(3), Rng(1).Parent.Range(Rng(1).Parent.Cells(Rng(2).Row, "a"), Rng(1).Parent.Cells(Rng(2).Row, "g")))
Else
Set Rng(3) = Rng(1).Parent.Range(Rng(1).Parent.Cells(Rng(2).Row, "a"), Rng(1).Parent.Cells(Rng(2).Row, "g"))
End If
Set Rng(2) = Rng(1).FindNext(Rng(2))
Loop Until S = Rng(2).Address
End If
Next
If Not Rng(3) Is Nothing Then Rng(3).Delete
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

13^#

發表於 2013-9-2 19:59 | 只看該作者

回復 12# GBKEE
要感謝的太多了!感謝GEKEE版大教導!

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

14^#

發表於 2013-9-5 12:59 | 只看該作者

再請教如何將B欄的時間自動增加1分鐘(e.g. 9:15轉為9:16)
之後在H欄顯示相關Date Code(e.g. 5130916 代表5月13日9:16)
謝謝!

A1min.rar (140.66 KB)

超級版主 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兔年全勤獎章

15^#

發表於 2013-9-5 14:00 | 只看該作者

回復 14# donod
試試看

Option Explicit
Sub Ex()
Dim D As Variant, E As Range
For Each E In Range("b2", [b2].End(xlDown))
D = Split(E.Offset(, -1), "/")
E.Value = E + #12:01:00 AM#
E.Offset(, 6) = D(0) & D(1) & Replace(E.Text, ":", "")
Next
End Sub

複製代碼

還是

Sub Ex1()
Dim D As Variant, E As Range, b As Date
For Each E In Range("b2", [b2].End(xlDown))
b = E + #12:01:00 AM#
D = Split(E.Offset(, -1), "/")
E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
Next
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

16^#

發表於 2013-9-5 14:25 | 只看該作者

回復 15# GBKEE
跟從GBKEE版大的指導，成功了!再三感謝!

Option Explicit
Sub Ex()
Dim D As Variant, E As Range, b As Date
For Each E In Range("b2", [b2].End(xlDown))
D = Split(E.Offset(, -1), "/")
b = E + #12:01:00 AM#
E.Value = E + #12:01:00 AM#
'E.Offset(, 6) = D(0) & D(1) & Replace(E.Text, ":", "")
E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

17^#

發表於 2013-9-5 15:13 | 只看該作者

請問如果要處理的檔案A.xls已經打開，以上的VBA檔案在B.xlsm，如何寫才能對A.xls作自動變動，謝謝!

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

18^#

發表於 2013-9-5 18:15 | 只看該作者

這個不行

Sub Ex()
Dim D As Variant, E As Range, b As Date
Windows("A.xls").Activate
Sheets("Sheet1").Select
With ActiveWorkbook.Sheets(1)
For Each E In Range("b1", [b1].End(xlDown))
D = Split(E.Offset(, -1), "/")
b = E + #12:01:00 AM#
E.Value = E + #12:01:00 AM#
E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
Next
End With
End Sub

複製代碼

B.rar (11.78 KB)

超級版主 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兔年全勤獎章

19^#

發表於 2013-9-5 20:18 | 只看該作者

回復 18# donod

Option Explicit
Sub Ex()
Dim D As Variant, E As Range, b As Date
With Workbooks("A.xls").Sheets("Sheet1")
For Each E In .Range("b2", .[b2].End(xlDown))
D = Split(E.Offset(, -1), "/")
b = E + #12:01:00 AM#
E.Value = E + #12:01:00 AM#
E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
Next
End With
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 140
主題: 24
精華: 0
積分: 167
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-2-26
最後登錄: 2023-1-30

20^#

發表於 2013-9-5 23:25 | 只看該作者

回復 19# GBKEE
明白了，感謝GBKEE版大教導!

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

返回列表下一主題上一主題