DDE 擷取分鐘最高最低

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

1^# 跳轉到 »

發表於 2013-6-21 16:10 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-6-24 16:18 編輯

回復 1# vzcen
這DEE工作表物件的程式碼

Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range
Static Msg As Boolean '以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
If Weekday(Date, vbMonday) > 5 Or Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub '非營業日或非營業時間
If Msg = False Then
清除舊資料
Msg = True
End If
With Cells(Rows.Count, "C").End(xlUp)
If .Row = 7 Then
Set Rng = .Offset(1)
Else
Set Rng = .Cells
End If
End With
If Rng = "" Or Rng.Text <> Format([b5], "hh:mm") Then
If Rng <> "" Then Set Rng = Rng.Offset(1)
Rng = Format([b5], "hh:mm")
Rng(1, 2) = [B6].Text
Rng(1, 3) = [B6].Text
ElseIf Rng.Text = Format([b5], "hh:mm") Then
If [B6] > Rng(1, 2) Then Rng(1, 2) = [B6].Text
If [B6] < Rng(1, 3) Then Rng(1, 3) = [B6].Text
End If
End Sub
Private Sub 清除舊資料()
On Error GoTo Er
If [營業日] <> Date Then '檢查定義名稱:"營業日"的值
Me.Names.Add "營業日", Date '定義名稱:"營業日"的值為當日
If Weekday(Date, vbMonday) <= 5 Then Range([C8], [E8].End(xlDown)).Clear '營業日
End If
Exit Sub
Er: '處裡: 沒有定義名稱:"營業日"的錯誤
Me.Names.Add "營業日", Date '定義名稱:"營業日"的值為當日
Resume Next '回到錯誤的下一個程式碼:繼續執行
End Sub

複製代碼

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

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

2^#

發表於 2013-6-22 15:07 | 顯示全部帖子

回復 6# vzcen
這問題請附檔看看

5# 可如圖示修改格式

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

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

3^#

發表於 2013-6-23 14:34 | 顯示全部帖子

回復 8# vzcen
今天是週日,試的如何!

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

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

4^#

發表於 2013-6-24 16:19 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-6-24 16:23 編輯

回復 11# vzcen
B5的格式就不必修改了
B5的內容會顯示成102903, 此為6位數,請問 B5, 10點以前會顯示成95959, 此為5位數

Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range
Static Msg As Boolean '以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
' If Time < #10:28:00 AM# Or Time > #1:30:00 PM# Then Exit Sub '非營業日或非營業時間
If Msg = False Then
清除舊資料
Msg = True
End If
With Cells(Rows.Count, "C").End(xlUp)
If .Row = 7 Then
Set Rng = .Offset(1)
Else
Set Rng = .Cells
End If
End With
'If Rng = "" Or Rng.Text <> Mid([B5].Text, 1, IIf(Len([B5]) = 6, 4, 3)) Then '如果[B5]10點以前的的數值是95959, 5位數用此程式碼
If Rng = "" Or Rng.Text <> Mid([B5].Text, 1, 4) Then
If Rng <> "" Then Set Rng = Rng.Offset(1)
With Rng
.NumberFormatLocal = "@"
'.Cells = Mid([B5].Text, 1, IIf(Len([B5]) = 6, 4, 3)) '如果[B5]10點以前的的數值是95959. 5位數用此程式碼
.Cells = Mid([B5].Text, 1, 4)
.Cells(1, 2) = [B6].Text
.Cells(1, 3) = [B6].Text
End With
'ElseIf Rng.Text = Mid([B5].Text, 1, IIf(Len([B5]) = 6, 4, 3)) Then '如果[B5]10點以前的的數值是95959. 5位數用此程式碼
ElseIf Rng.Text = Mid([B5].Text, 1, 4) Then
If [B6] > Rng(1, 2) Then Rng(1, 2) = [B6].Text
If [B6] < Rng(1, 3) Then Rng(1, 3) = [B6].Text
End If
End Sub

複製代碼

Private Sub 清除舊資料()
On Error GoTo Er
If [營業日] <> Date Then '檢查定義名稱:"營業日"的值
Me.Names.Add "營業日", Date '定義名稱:"營業日"的值為當日
If Weekday(Date, vbMonday) <= 5 Then Range([C8], [E8].End(xlDown)).Clear ' 修改 3#
End If
Exit Sub
Er: '處裡: 沒有定義名稱:"營業日"的錯誤
Me.Names.Add "營業日", Date '定義名稱:"營業日"的值為當日
Resume Next '回到錯誤的下一個程式碼:繼續執行
End Sub