麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 型態不符合 ?請教要如何修正? [打印本頁]

作者: t8899 時間: 2024-3-14 08:46 標題: 型態不符合 ?請教要如何修正?

bb = 70
Sheets("自營投信").Range("c3:c" & bb) = Round(Sheets("sheet2").Range("k3:k" & bb).Value / 1000, 0)
K column 的範圍每格除 1000 copy 到 c column
型態不符合 ?請教要如何修正?

作者: Andy2483 時間: 2024-3-14 09:19

回復 1# t8899
以下學習方案請前輩參考
Sub TEST()
bb = 70
With Sheets("自營投信").Range("c3:c" & bb)
.Value = "=ROUND(sheet2!K3/1000,0)"
.Value = .Value
End With
End Sub

作者: t8899 時間: 2024-3-14 09:43

本帖最後由 t8899 於 2024-3-14 09:48 編輯

回復 t8899
以下學習方案請前輩參考
Sub TEST()
bb = 70
With Sheets("自營投信").Range("c3:c" & bb ...
Andy2483 發表於 2024-3-14 09:19

k欄的70個儲存格的值都是不一樣的，這樣只有拷有K3的值 ??k4 ,k5, k6 ............................??
K3/1000 ---->c3
k4/1000------c4
.
.
.
.
不想用for next 的語法

作者: shuo1125 時間: 2024-3-14 10:11

回復 3# t8899
.Value = "=ROUND(sheet2!K3/1000,0)"
Andy大提供使用公式方式應該是可以解決你不用循環的問題...
確定結果不符期望嗎??

作者: t8899 時間: 2024-3-14 12:13

本帖最後由 t8899 於 2024-3-14 12:15 編輯

回復 t8899
.Value = "=ROUND(sheet2!K3/1000,0)"
Andy大提供使用公式方式應該是可以解決你不用循環的 ...
shuo1125 發表於 2024-3-14 10:11

Sheets("自營投信").Range("c3:c" & bb) = Evaluate("round(Sheet2!k3:k" & bb & "/1000,0)")
這是最簡單又更快的方法 (一行(句)就解決)
我在其他的論譠看到的，提供大家參考
Evaluate 可取代陣列 ubound 很少人在用??

作者: Andy2483 時間: 2024-3-14 13:09

回復 5# t8899

謝謝前輩指教,以下方法也請參考
[自營投信!C3].Resize(70) = "=ROUND(sheet2!K3/1000,0)"

作者: shuo1125 時間: 2024-3-14 13:21

回復 6# Andy2483
回復 5# t8899
只知道EVALUATE好像跟[ ]有關..
受教了~感謝兩位!

作者: Andy2483 時間: 2024-3-14 13:42

本帖最後由 Andy2483 於 2024-3-14 13:54 編輯

回復 7# shuo1125

Evaluate方法很實用,可是常常會忘了用
https://learn.microsoft.com/zh-t ... pplication.evaluate

以下論壇連結帖請參考
https://forum.twbts.com/viewthre ... amp;page=3#pid54150

作者: shuo1125 時間: 2024-3-14 13:57

回復 8# Andy2483
Andy大總是不吝分享及指導....
感謝你了~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)