1 ...3456789101112... 14
返回列表 上一主題 發帖

價格紀錄的語法有寫錯嗎??

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
96# 跳轉到 »
發表於 2016-4-10 16:00 | 只看該作者
回復 92# c_c_lai

Sub 時間()
    Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")-------------這個地方時間不用寫入
    Application.OnTime Now() + TimeValue("00:00：01"), "時間"
End Sub
   
---------------------------------------------------------------------------------------------------------------------------
Sub RecordPrice(TG As Range)
    Dim WR As Long, cts As Long
   
    With Sheets("RTD")
        If .Range("A1") < 1 Then Exit Sub
   
        cts = TG.Column
   
        WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1         '  求取該異動欄位的最後一筆紀錄列位置
        
        If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
            .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  設定儲存格格式 (時間)----------------這個地方的功能是??有時間的部分可以都拿掉嗎??
            
            .Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
        End If
    End With
End Sub

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
95#
發表於 2016-4-10 15:57 | 只看該作者
本帖最後由 c_c_lai 於 2016-4-10 16:01 編輯

回復 91# 藍天麗池
你是指？

你不是要求資料寫入時不用寫入時間嗎？

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
94#
發表於 2016-4-10 15:57 | 只看該作者
回復 92# c_c_lai


    我不懂的是為什麼時間無法寫入

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
93#
發表於 2016-4-10 15:56 | 只看該作者
回復 84# c_c_lai

時間內容為什麼不能寫入??我後面的計算都要靠時間內容才有辦法運作，可以請C大幫我解惑一下嗎??
我的想法是如果量變動就寫入B2-E2，這樣不行嗎??我們設定量變動才寫入其他有沒有變動應該不影響寫入吧！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
92#
發表於 2016-4-10 15:53 | 只看該作者
回復 91# 藍天麗池
"空白" 不懂你的意思？能否永圖表畫個漫畫？

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
91#
發表於 2016-4-10 15:50 | 只看該作者
回復 84# c_c_lai

C大我不太懂你的意思，為什麼位是空白??你往下寫不是就有數字了嗎??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
90#
發表於 2016-4-10 15:24 | 只看該作者
回復 81# 藍天麗池
GBKEE 大大的程式：
ThisWorkbook：[code]Option Explicit

Private Sub Workbook_Open()
    Dim xRng As Range, First_Aaddres  As String, xRng_Name As String
    Dim nm As Variant
   
    Application.RTD.ThrottleInterval = 0
    Application.Calculation = xlCalculationAutomatic     '  自動重算
   
    '  清除「名稱管理員」內的所有內容
    For Each nm In ActiveWorkbook.Names
        nm.Delete
    Next nm
   
    With Sheets("RTD")
        '  檔案開啟時 定義了 Sheets("RTD") 所有總量 DDE 公式的儲存格
        Set xRng = .Rows(2).Cells.Find("TotalVolume", LookIn:=xlFormulas)
        
        If Not xRng Is Nothing Then
            First_Aaddres = xRng.Address
            
            Do
                xRng_Name = Split(xRng.Formula, "'")(1)
                xRng_Name = "TotalVolume" & Split(xRng_Name, ".")(0)
                .Names.Add xRng_Name, xRng       '  名稱定義: 所有總量的 DDE 公式的儲存格

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
89#
發表於 2016-4-10 15:19 | 只看該作者
本帖最後由 c_c_lai 於 2016-4-10 15:26 編輯

回復 83# 藍天麗池
.GBKEE 大大的程式一直貼不上
自行看程式吧！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
88#
發表於 2016-4-10 15:13 | 只看該作者
本帖最後由 c_c_lai 於 2016-4-10 15:20 編輯

回復 83# 藍天麗池
.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
87#
發表於 2016-4-10 15:09 | 只看該作者
回復 83# 藍天麗池
我的部分：
ThisWorkbook：
  1. Option Explicit

  3. Private Sub Workbook_Open()
  4.     '  Nothing to do (保留)
  5. End Sub
複製代碼
shtRTD(RTD)表單:
  1. Option Explicit

  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4.     '  當 Target (總量) 欄位有異動時， 則去呼叫 RecordPrice 的方法 (Method)。
  5.    
  6.     If Target.Row = 2 And Target.Column Mod 4 = 0 Then
  7.         Call RecordPrice(Target)
  8.     End If
  9. End Sub
複製代碼
Module1:
  1. Option Explicit

  3. Sub RecordPrice(TG As Range)
  4.     Dim WR As Long, cts As Long
  5.    
  6.     With Sheets("RTD")
  7.         If .Range("A1") < 1 Then Exit Sub
  8.    
  9.         cts = TG.Column
  10.    
  11.         WR = .Cells(Rows.Count, cts).End(xlUp).Row + 1         '  求取該異動欄位的最後一筆紀錄列位置
  12.         
  13.         If WR = 3 Or .Cells(WR - 1, cts) <> .Cells(2, cts) Then
  14.             .Cells(WR, cts).Offset(, -3).NumberFormatLocal = "hh:mm:ss"   '  設定儲存格格式 (時間)
  15.             
  16.             .Cells(WR, cts).Offset(, -2).Resize(, 3) = .Range(TG.Address).Offset(, -2).Resize(, 3).Value
  17.         End If
  18.     End With
  19. End Sub

  21. Sub 時間()
  22.     Sheets("RTD").Cells(2, 1) = WorksheetFunction.Text(Now(), "hh:mm:ss")
  23.     Application.OnTime Now() + TimeValue("00:00：01"), "時間"
  24. End Sub

  26. Sub Cls()
  27.     With Sheets("RTD")
  28.         .Range("A3:OK5000").ClearContents
  29.         .[A3].Select
  30.     End With
  31. End Sub
複製代碼

TOP

        靜思自在 : 原諒別人就是善待自己。
1 ...3456789101112... 14
返回列表 上一主題