返回列表 上一主題 發帖

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

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

各位版上大大你們好:

小弟透過網路找到的檔案, 覺得檔案中有一項功能對於整合資料十分方便,
有先去巨集裡面看程式碼
但由於資質愚昧, 看了三天卻仍未參透
想要請問我要如何才能夠做出此功能呢?

避免錯誤描述, 以下用圖文表達, 還請見諒


1. 已完成 【匯入外部資料】 於頁籤中分類完成
2. 第4行整行 分別用公式套用不同頁籤的數值出來
3. 第A列從A6開始整列已先預先輸入日期, 並套用 【格式化條件】 使同於 "當日日期(A4)"  會用不同色標標註
======================
請問:
如何設置圖中的【更新】按鈕,讓他能夠同時有
1. 更新外部資料
2. 將第4行整行按照日期,貼於下方相對應日期的儲存格呢?

以下是附件:
期權分析表.rar (40.54 KB)

懇請論壇大大協助,謝謝了!

回復 1# miketwbts

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

TOP

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

TOP

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

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


以下是檔案附件:
十大.rar (51.57 KB)

再次謝謝!

TOP

回復 4# miketwbts

不是很了解你的用意
我猜想是要把按鈕底下那列的資料插入已經儲存的資料底部
  1. Private Sub CommandButton1_Click()
  2. r = Range("A5").CurrentRegion.Rows.Count
  3. If Range("B" & r + 4) = Range("B" & r + 7) Then Exit Sub
  4. Rows(r + 5).Insert
  5. Range("B" & r + 5).Resize(, 17).Value = Range("B" & r + 8).Resize(, 17).Value
  6. End Sub
複製代碼
學海無涯_不恥下問

TOP

感謝Hsieh大, 切中核心!

TOP

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

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題