帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-4

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

2^#

發表於 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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-4

3^#

發表於 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 的語法

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

4^#

發表於 2024-3-14 10:11 | 只看該作者

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

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-5-4

5^#

發表於 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 很少人在用??

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

6^#

發表於 2024-3-14 13:09 | 只看該作者

回復 5# t8899

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

7^#

發表於 2024-3-14 13:21 | 只看該作者

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

8^#

發表於 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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 0
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

9^#

發表於 2024-3-14 13:57 | 只看該作者

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

TOP