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

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

2^#

發表於 2011-5-5 02:51 | 顯示全部帖子

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

回復 2# GBKEE

板大已經
附上檔案
感謝

book10.rar (8 KB)

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

3^#

發表於 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)

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

4^#

發表於 2011-5-6 20:58 | 顯示全部帖子

回復 7# GBKEE

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

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

5^#

發表於 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

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

6^#

發表於 2011-5-7 21:13 | 顯示全部帖子

回復 10# GBKEE

感謝板主耐心回答
現在表格可以正常運算了