[發問] [提問] 匯入外部資料後, 如何依日期自動填入新儲存格呢?

帖子: 7
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2013-5-19

7^#

發表於 2012-3-15 11:52 | 只看該作者

然後也感謝Hsieh大在上分享的文章, 多爬文讓我串連了更多區塊的運用, 很謝謝您的不藏私 !

帖子: 7
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2013-5-19

6^#

發表於 2012-3-15 11:27 | 只看該作者

感謝Hsieh大, 切中核心!

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2012-3-14 21:33 | 只看該作者

回復 4# miketwbts

不是很了解你的用意
我猜想是要把按鈕底下那列的資料插入已經儲存的資料底部

Private Sub CommandButton1_Click()
r = Range("A5").CurrentRegion.Rows.Count
If Range("B" & r + 4) = Range("B" & r + 7) Then Exit Sub
Rows(r + 5).Insert
Range("B" & r + 5).Resize(, 17).Value = Range("B" & r + 8).Resize(, 17).Value
End Sub

複製代碼

學海無涯_不恥下問

帖子: 7
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2013-5-19

4^#

發表於 2012-3-14 20:38 | 只看該作者

Hsieh大大：
先謝謝您的閱覽及答覆

我換一個檔案，不過是相同的情形，
已精簡化到可以正常使用
再煩請您看一下

以下是檔案附件：

十大.rar (51.57 KB)

再次謝謝！

帖子: 7
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2012-3-14
最後登錄: 2013-5-19

3^#

發表於 2012-3-14 20:20 | 只看該作者

好的，謝謝Hsieh大，馬上更正上傳

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-3-14 19:51 | 只看該作者

回復 1# miketwbts

目前你上傳的檔案中
選擇權買賣權分計、三大法人期指兩工作表內透過WEB查詢得到資料
三大法人選擇權統計表工作表負責連結該兩個工作表特定儲存格
不過這些參照顯然出現錯誤，得到的答案都會出現錯誤值
你必須讓三大法人選擇權統計表工作表的公式計算正確後才能執行更新按鈕

學海無涯_不恥下問