返回列表 上一主題 發帖

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

本帖最後由 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

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

TOP

回復 75# GBKEE
我再次重新 DEBUG 一次,結果是:
02.PNG
2012-10-16 10:51

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

TOP

回復 69# GBKEE


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

TOP

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

TOP

回復 77# GBKEE


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

TOP

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

回復 78# devidlin
依55# 的附檔 很簡單的自己練習看看,
表單要先弄好的,將程式碼更新為如下,存檔後再開啟看看.
ThisWorkbook程式碼
  1. Dim AA As New Application   '新的Excel 物件
  2. Sub Workbook_Open()
  3.     Application.Visible = False
  4.     With AA
  5.         .Visible = True
  6.         .WindowState = xlNormal
  7.         .Left = 242
  8.         .Top = 59
  9.         .Width = 648
  10.         .Height = 401
  11.     End With
  12.     UserForm1.Show
  13. End Sub
複製代碼
UserForm(表單)程式碼
  1. Dim Msg As Boolean
  2. Private Sub UserForm_Initialize()   'UserForm(表單) 初始化時的事件程序
  3.     '請先在UserForm(表單) 加入4個 Label控制項
  4.     '系統自動命名(Label1, Label2 , Label3 , Label4)
  5.     '請自行調整 4個 Label控制項 的位置,長,寬,高
  6.     Dim i As Integer
  7.     StartUpPosition = 0
  8.     Top = 1
  9.     For i = 1 To 4
  10.         With Me.Controls("Label" & i)
  11.             .TextAlign = 1 ' fmTextAlignCenter
  12.             .Font.Bold = True
  13.             .Font.Size = 15
  14.             .SpecialEffect = fmSpecialEffectEtched
  15.         End With
  16.     Next
  17. End Sub
  18. Private Sub UserForm_Activate()       'UserForm(表單) 顯示時的事件程序
  19.     Dim xlTile As String, S As String
  20.     S = Space(5)
  21.     Do Until Msg = True
  22.         DoEvents
  23.         If Time < #8:00:00 AM# Then
  24.             xlTile = "尚未開盤"
  25.         ElseIf Time > #1:30:00 PM# Then
  26.             xlTile = "已收盤"
  27.         Else
  28.             xlTile = "營業中"
  29.         End If
  30.         If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
  31.         If xlTile <> "尚未開盤" Then
  32.             Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
  33.             Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
  34.             Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
  35.             Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
  36.         End If
  37.     Loop
  38. End Sub
  39. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(表單) 關閉時的事件程序
  40.     Msg = True
  41.     Application.Visible = True
  42.     ThisWorkbook.Save
  43.     Application.Quit
  44. End Sub
複製代碼

TOP

回復 79# GBKEE


    G大你好,我想大大好人做到底,幫忙用vb打包一下,因小地手邊沒有Visual Basic可以嗎?     謝 謝。
devidlin

TOP

回復 80# devidlin
它還是Excel 檔案


test.rar (19.99 KB)

TOP

回復 81# GBKEE
表單 (UserForm) 開啟後,是無法再開啟其它 Excel 工作表單的,
所以之前我才會建議使用其它程式工具來解決此困擾問題。

TOP

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題