返回列表 上一主題 發帖

關於變動複寫的問題，請教版上大大

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2016-10-6 08:44 | 顯示全部帖子
回復 2# 藍天麗池


附檔為XLSX沒有巨集的活頁簿,需存為XLSM為有巨集的活頁簿

試試看
  1. Option Explicit
  2. Private Sub Worksheet_Calculate() '工作表的重算事件,為工作表的預設事件
  3.     Dim i As Integer
  4.     If Time >= #9:00:00 AM# And Time <= #1:30:00 PM# Then  '股市交易時間內
  5.         i = 2
  6.        '*******************************************
  7.         '你附檔沒有DEE公式, E到L欄應為DEE公式,才可用到此工作表的重算事件
  8.         '[F:U] : F到U欄  , M欄 為 總量的DEE( 你附檔沒有,請加上做為不同時間點的判斷 )

  10.        '*******************************************
  11.         Do While [F:U].Rows(i).Cells(1) > 0
  12.             With [F:U].Rows(i)
  13.                 If .Cells(2) > 50 And .Cells(8) > 0 Then '.Cells(8) > 0 總量:單量的加總
  14.                     If .Cells(16) = 0 Or .Cells(8) > .Cells(16) Then
  15.                             '.Cells(16) = 0 : '總量尚未紀錄
  16.                             '.Cells(8) >.Cells(16) :總量 > 之前所記錄的總量
  17.                         .Cells(9).Resize(, 8) = .Cells(1).Resize(, 8).Value
  18.                     End If
  19.                 End If
  20.             End With
  21.             i = i + 1
  22.         Loop
  23.     End If
  24. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題