返回列表 上一主題 發帖

[發問] 型態不符合 ?請教要如何修正?

[發問] 型態不符合 ?請教要如何修正?

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

回復 1# t8899
以下學習方案請前輩參考
Sub TEST()
bb = 70
With Sheets("自營投信").Range("c3:c" & bb)
   .Value = "=ROUND(sheet2!K3/1000,0)"
   .Value = .Value
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

本帖最後由 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 的語法

TOP

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

TOP

本帖最後由 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 很少人在用??

TOP

回復 5# t8899

謝謝前輩指教,以下方法也請參考
[自營投信!C3].Resize(70) = "=ROUND(sheet2!K3/1000,0)"
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

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

TOP

本帖最後由 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

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

TOP

        靜思自在 : 布施如播種,以歡喜心滋潤種子,才會發芽。
返回列表 上一主題