請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

1 ... 5 6 789 10 11 12 13 14 下一頁

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

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

71^# 跳轉到 »

發表於 2012-10-16 10:08 | 只看該作者

本帖最後由 GBKEE 於 2012-10-16 10:12 編輯

回復 72# c_c_lai
.Rows(xlRow).Delete
是在寫這程式時沒注意到同一車號會有一筆資料以上所以只刪一行
http://forum.twbts.com/viewthread.php?tid=8048&rpid=45188&ordertype=0&page=1#pid45188
這裡已修改可刪多行
.Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(2).Delete xlUp

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

72^#

發表於 2012-10-16 10:30 | 只看該作者

回復 73# GBKEE
因為我非正科班出身，這行語法內的 Offset(2) 指的是？
是從第一列起算之下兩行 (即第三列) 起刪除，還是？
如果他有三列以上吻合條件的資料項又是如何處理？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

73^#

發表於 2012-10-16 10:56 | 只看該作者

回復 75# GBKEE
我再次重新 DEBUG 一次，結果是：

雖然在實務上我知道要如何處哩，但人活著就是要多多學習，
不熟悉的語法要深切去瞭解，不是嘛？

TOP

devidlin

中學生 Rank: 2

帖子: 58
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-21
最後登錄: 2019-2-26

論壇贊助勳章

74^#

發表於 2012-10-16 11:56 | 只看該作者

回復 69# GBKEE

請問c大，此excel檔，可以打包成一個執行檔來用嗎? 謝謝。

devidlin

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

75^#

發表於 2012-10-16 13:46 | 只看該作者

回復 76# devidlin
那要在VB 中製成
取巧方式: 執行此檔案後, 可如 59# 的圖片另開Excel程式,執行其他Excel活頁簿 .

TOP

devidlin

中學生 Rank: 2

帖子: 58
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-21
最後登錄: 2019-2-26

論壇贊助勳章

76^#

發表於 2012-10-16 14:59 | 只看該作者

回復 77# GBKEE

G大你好，可以試做1個範例來參考嗎?謝謝。

devidlin

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

77^#

發表於 2012-10-16 16:01 | 只看該作者

本帖最後由 GBKEE 於 2012-10-16 16:03 編輯

回復 78# devidlin
依55# 的附檔很簡單的自己練習看看,
表單要先弄好的,將程式碼更新為如下,存檔後再開啟看看.
ThisWorkbook程式碼

Dim AA As New Application '新的Excel 物件
Sub Workbook_Open()
Application.Visible = False
With AA
.Visible = True
.WindowState = xlNormal
.Left = 242
.Top = 59
.Width = 648
.Height = 401
End With
UserForm1.Show
End Sub

複製代碼

UserForm(表單)程式碼

Dim Msg As Boolean
Private Sub UserForm_Initialize() 'UserForm(表單) 初始化時的事件程序
'請先在UserForm(表單) 加入4個 Label控制項
'系統自動命名(Label1, Label2 , Label3 , Label4)
'請自行調整 4個 Label控制項的位置,長,寬,高
Dim i As Integer
StartUpPosition = 0
Top = 1
For i = 1 To 4
With Me.Controls("Label" & i)
.TextAlign = 1 ' fmTextAlignCenter
.Font.Bold = True
.Font.Size = 15
.SpecialEffect = fmSpecialEffectEtched
End With
Next
End Sub
Private Sub UserForm_Activate() 'UserForm(表單) 顯示時的事件程序
Dim xlTile As String, S As String
S = Space(5)
Do Until Msg = True
DoEvents
If Time < #8:00:00 AM# Then
xlTile = "尚未開盤"
ElseIf Time > #1:30:00 PM# Then
xlTile = "已收盤"
Else
xlTile = "營業中"
End If
If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
If xlTile <> "尚未開盤" Then
Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
End If
Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(表單) 關閉時的事件程序
Msg = True
Application.Visible = True
ThisWorkbook.Save
Application.Quit
End Sub