帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-4-20 21:00 | 只看該作者

如何只更新當日欄位VBA

本帖最後由 jerrystock 於 2014-4-20 21:03 編輯

請問如何複製D1~D3欄位到E1~E3欄位的數據.但是隔日就不複製昨日的D1~D3欄位的數據
因為昨日D1~D3來到隔日就會更新數據.但E1~E3不更新只記錄往後新增出來的D欄資料
像是明日新增出來的D5與D6欄位複製到E5欄與E6欄.以此類推 .不是複製全部D欄.VBA
例如:今日
         D          E
2       10.5    10.5
3       20       20
4       12       12
明日
5       40       ?
6       35       ?
謝謝

附檔

TEST1.zip (7.71 KB)

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-4-21 08:21 | 只看該作者

回復 1# jerrystock

像這樣嗎？

Book1.rar (10.57 KB)

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

3^#

發表於 2014-4-21 14:02 | 只看該作者

本帖最後由 jerrystock 於 2014-4-21 14:07 編輯

回復 2# owen06
感謝大大百忙中回復我的問題
原則上是這樣沒錯  如果欄位只有E欄跟F欄.F欄只更新E欄新增部分數據.不參考(日期)與(今日新增)字串
只有2欄數據.F欄只更新E欄新增部分這樣子可以嗎?  謝謝

TEST2.zip (7.61 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-4-21 14:45 | 只看該作者

回復 3# jerrystock
40與50的數值依據在哪?
看不出E欄與F欄有甚麼關連?

學海無涯_不恥下問

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

5^#

發表於 2014-4-21 15:13 | 只看該作者

本帖最後由 jerrystock 於 2014-4-21 15:17 編輯

回復 4# Hsieh
E欄是當日股價會更新每日不同
F欄是買進的股價是固定不變
E5=40元
E6=35元
F欄就複製E5與E6就是當日買進的價錢
所以兩欄之前數據不會同步.新增數據就是當日買進價錢所以就新增到F5與F6
小弟描述不好請勿見怪謝謝

TEST3.zip (7.64 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2014-4-21 16:35 | 只看該作者

Sub ex()
Dim Rng As Range, A As Range
With 工作表1
Set Rng = Range([F2], .Cells(.Rows.Count, "E").End(xlUp).Offset(, 1))
If Application.CountBlank(Rng) > 0 Then
For Each A In Rng.SpecialCells(xlCellTypeBlanks)
A = A.Offset(, -1).Value
Next
End If
End With
End Sub

複製代碼

回復 5# jerrystock

學海無涯_不恥下問

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2014-4-21 16:47 | 只看該作者

回復 5# jerrystock

醬咧？

Book1.rar (8.89 KB)

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

8^#

發表於 2014-4-21 19:49 | 只看該作者

回復 6# Hsieh

感謝Hsieh大大解決我的問題也感謝owen06大大不惜辛勞為我找答案
不過應用上Hsieh大大的程式碼,個人環境接受度範圍較廣
owen06大大的程式碼,用在當下可以解決,但環境有些改變後就不能使用了
Hsieh大大的程式碼,環境改來改去都還能使用
這是小弟淺見,小弟完全不懂VBA,請大大見諒
感謝兩位大大幫助謝謝兩位^^

TOP