[發問] 如何記綠動態資料的儲存格

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-4 20:01 | 只看該作者

回復 1# kimo5566
請附上你的檔案

帖子: 31
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taipe
註冊時間: 2011-4-29
最後登錄: 2014-1-20

3^#

發表於 2011-5-5 02:51 | 只看該作者

本帖最後由 Hsieh 於 2011-5-5 08:27 編輯

回復 2# GBKEE

板大已經
附上檔案
感謝

book10.rar (8 KB)

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-5 08:38 | 只看該作者

本帖最後由 GBKEE 於 2011-5-5 08:59 編輯

回復 3# kimo5566
請將程式碼貼於一般模組內存檔關閉後再開啟檔案時自動執行Auto_Open的程序

Option Explicit
Sub Auto_Open()
Dim T As Date
T = Time '現在時間
Sheets("Sheet2").UsedRange.Offset(, 1).Select
If T < #1:30:00 PM# Then Sheets("Sheet2").UsedRange.Offset(, 1).Clear
'早於開盤時間時清除舊有資料
If T < #9:00:00 AM# Then T = #9:00:00 AM# Else T = Now
'現在時間早於開盤時間時 [設定的時間] 為 9點
'現在時間晚於等於開盤時間時 [設定的時間]為現在時間 '
Application.OnTime T, "Ex" '於[設定的時間]執行 Ex 程序
End Sub
Sub Ex()
Dim Rng As Range, T As Date
T = Time
With Sheets("Sheet2")
Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) '記錄下來的位置
Rng.Resize(, 2) = T
Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
Rng.Resize(, 2).EntireColumn.AutoFit
End With
If Minute(T) Mod 10 Then '設定時間的分鐘不是 10 ,20,30....
T = TimeSerial(Hour(T), Minute(T) + (10 - Minute(T) Mod 10), 0)
'調整設定時間的分鐘是 10 ,20,30....
Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
Else
T = T + #12:10:00 AM# '[設定時間]+10分鐘 10 ,20,30....
End If
If Time < #1:30:00 PM# Then '於開盤時間時內
Application.OnTime T, "Ex" '於[設定的時間]執行 Ex 程序
End If
End Sub

複製代碼

帖子: 31
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taipe
註冊時間: 2011-4-29
最後登錄: 2014-1-20

5^#

發表於 2011-5-5 21:42 | 只看該作者

回復 4# GBKEE

感謝板大已經可以run了

      請問一下  Cells(2====> 是指兩個項目變動寫2  若三項就寫3  請問這樣修正嗎以下碼不維持不變
         Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)  '記錄下來的位置
      Rng.Resize(, 2) = T
         Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
      Rng.Resize(, 2).EntireColumn.AutoFit

   還有一個想問是一分鐘的話是不是修成以下這樣就好了
If Minute(T) Mod 1Then
   T = TimeSerial(Hour(T), Minute(T) + (1 - Minute(T) Mod 1), 0)

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

6^#

發表於 2011-5-5 22:11 | 只看該作者

本帖最後由 luhpro 於 2011-5-5 22:14 編輯

回復 5# kimo5566

1.  Cells(2, ...  的 2 指的是第 2 列.
  語法 : Cells(列號, 欄號)
  Cells( 3, 2) = Range("B3") <第 2 欄 = B>
  Cells(10, 5) = Range("E10") <第 5 欄 = E>
並非你所想的情形.

2. 你那個公式的結果會變成永遠不會觸發.
若要針對每一分鐘的情形應該是要對秒數 Mod 60 .

原先 xx:x9:59  <--- 分鐘數 Mod 10 結果為 9
      xx:x0:00  <--- 分鐘數 Mod 10 結果為 0
所以每 10 分鐘會變動一次

至於每分鐘都要跳過一次, 若依你的方式
  xx:00:01  <--- 分鐘數 Mod 1 結果為 0
xx:00:02  <--- 分鐘數 Mod 1 結果為 0
xx:01:xx  <--- 分鐘數 Mod 1 結果為 0 (餘同)
應該改成這樣
  xx:xx:59  <--- 秒鐘數 Mod 60 結果為 59
xx:xx:00  <--- 秒鐘數 Mod 60 結果為 0
才對喔.

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-5-6 07:53 | 只看該作者

本帖最後由 GBKEE 於 2011-5-6 07:57 編輯

回復 5# kimo5566
**項目變動需修改你要擴充為幾列幾欄的範圍**
With Sheets("Sheet2")
Set Rng = .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)  '寫下記錄的位置
      . => Sheets("Sheet2")
            .Cells(2, Columns.Count) => range("iv2")
            .End(xlToLeft)=>所在範圍向左移動直到有資料的位置
            .Offset(, 1)=>所在範圍向右移動 1欄

Rng.Resize(, 2) = T => 寫下記錄的位置.擴充為1列2欄的範圍=T
Rng.Offset(1).Resize(3, 2) = Sheets("Sheet1").Range("C1").Resize(3, 2).Value
=>寫下記錄的位置.所在範圍向下移動 1列,擴充為3列2欄的範圍=Sheets("Sheet1").Range("C1").Resize(3, 2).Value

If Minute(T) Mod 10 Then    '設定時間的分鐘不是 10 ,20,30....
這條件式為如你是開盤後才打開檔案時來調整時間的為每10 ,20,30....紀錄
要調整為每分鐘紀錄可修改如下
If Second(T) <> 0 Then
T = TimeSerial(Hour(T), Minute(T) + 1, 0)
Else
  T = T + #12:01:00 AM#    '[設定時間]+1分鐘
ENDIF

帖子: 31
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taipe
註冊時間: 2011-4-29
最後登錄: 2014-1-20

8^#

發表於 2011-5-6 20:58 | 只看該作者

回復 7# GBKEE

感謝板主細心解說
讓我學到很多東西感謝

帖子: 31
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taipe
註冊時間: 2011-4-29
最後登錄: 2014-1-20

9^#

發表於 2011-5-6 23:18 | 只看該作者

回復 7# GBKEE

板主想再請教裡面二個語法問題
第一是
         我把項目改成5列四欄的話
Rng.Offset(1).Resize(5, 4) = Sheets("Sheet1").Range("C1").Resize(5, 4).Value

  Rng.Resize(, 2).EntireColumn.AutoFit 這句要去改變裡面的 Resize(, 2) 數字
還有這句表達什麼

  第二是
調整為每分鐘紀錄可修改如下
If Second(T) <> 0 Then
T = TimeSerial(Hour(T), Minute(T) + 1, 0)
之前有一句要刪掉嗎    Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
Else
  T = T + #12:01:00 AM#    '[設定時間]+1分鐘
ENDIF

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-5-7 06:26 | 只看該作者

回復 9# kimo5566
對於vba 的方法,屬性你可多查看說明 ,如在程式碼中選取 EntireColumn 按下F1 就可查看到說明.
EntireColumn.AutoFit =>指定範圍的整個欄 .欄寬和列高調整為最適當的值
Rng.Resize(, 2).NumberFormatLocal = "h:mm:ss AM/PM"
是將範圍格式設為"h:mm:ss AM/PM",刪不刪皆可.