ABK

請教一下!  
我跑了一下這支VBA， 它只要每記錄一次資料 就會發出提示聲音一次 同時頁面也會往下跑，
要如何讓頁面不往下跑 和關閉提示的聲音?

ABK

是我記錄的資料比較多  修改一下控制頁面 的行數， 頁面就不會往下跳了!
  ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中

修改 -18 的值就可以了!

ABK

找到聲音的指令了!  在Beep 前面加 '       就關掉聲音了!
   ThisWorkbook.Save   '存檔
   'Beep

ABK

請教一下!
我想用pcboy大的程式 增加另一個時段 StartTime 14:59:50  /  EndTime 隔日 05:00:10， 也就是加入午後盤。 程式碼要如何改?

<pcboy大 的程式碼 如下>

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "08:44:50"  '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "21:45:10"    '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
    Sht1.[O8] = "已過收盤"
    uMode = 0
    Exit Sub
End If