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

[發問] EXCEL VBA語法疑問

southwind1009

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: WIN7
軟體版本: 64
閱讀權限: 10
性別: 男
註冊時間: 2017-5-1
最後登錄: 2019-6-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-5-16 21:10 | 只看該作者

[發問] EXCEL VBA語法疑問

請問各位高手,能否幫忙檢查這個VBA語法哪裡有錯,為何就是無法開始自動記錄呢???謝謝大大

Public uMode&, StartTime, EndTime
  Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&

  Sub 工作表4共用參照()

  Set MyBook = ThisWorkbook
  Set Sht1 = MyBook.Sheets("工作表4")  '指定活頁名稱（工作表4）

  StartTime = "08:44:01" '開盤時間（提早60秒啟動記錄）
  EndTime = "23:45:05" '收盤時間（延後5 秒停止記錄）

  End Sub
  Sub 工作表4自動記錄()
  If uMode = 0 Then Exit Sub

  If Time > TimeValue(EndTime) Then
  Sht1.[Q2] = "已過收盤" '狀態顯示（記錄在Q2）
  uMode = 0
  Exit Sub
  End If

  Sht1.Range("C2") = Time '券商時間（記錄在C2）  第2列為DDE連結
  '----------------------------------------------------------
  If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then

  xRow = Sht1.Range("B65536").End(xlUp).Row + 1

  If xRow < 4 Then xRow = 4  '從第4列開始逐次加1列紀錄

  Sht1.Range("C" & xRow & ":E" & xRow).Value = Sht1.Range("C2:E2").Value  'C~E 是我DDE的位置（記錄第2列）
'------------------------------------------------
  ThisWorkbook.Save
  Beep
  End If
  Application.OnTime Now + TimeValue("00:00:01"), "工作表4自動記錄" '每一秒遞迴一次
  End Sub
  Sub 工作表4開始執行()
  If uMode = 1 Then Exit Sub
  Call 工作表4共用參照
  uMode = 1
  Sht1.[Q2] = "執行中" '狀態顯示（記錄在Q2）
  Call 工作表4自動記錄
  End Sub
  Sub 工作表4停止執行()
  uMode = 0
  Call 工作表4共用參照
  Sht1.[Q2] = "STOP" '狀態顯示（記錄在Q2）
  End Sub
  Sub 工作表4清除記錄()    '我已經改自動執行所以這個警示框取消了
  'Beep
  'If MsgBox("※確定要清除〔工作表4〕的數據嗎？ ", 4 + 32 + 256) = vbNo Then Exit Sub
  Call 工作表4共用參照
  Sht1.Rows("4:65536").ClearContents '開盤前清除4列(含)以下全部資料
  If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
  Beep
  End Sub