PTT數位生活區 / Office

[算表] VBA Range物件讀取數值問題

看板Office作者 (空洞)時間7年前 (2018/05/15 20:44), 編輯推噓1(1推 0噓 26→)
留言27則, 2人參與, 7年前最新討論串1/1
軟體:excal 版本:2016 不好意思 想請問版上的各位 假設我有兩個宣告為RANGE的物件 Dim aa As Range Dim bb As Range 然後aa透過選取的儲存格讀取資料 Set aa=Range(Selection(1, 1), Selection(11, 1)) 此時aa就會有11筆資料 用MsgBox 確認 aa(1)~aa(11)都OK 接著我想提取其中的兩個資料位置進bb Set bb=Range(aa(1),aa(2)) 但是用MsgBox確認bb 發現bb把所有的aa(1)後[包含]的所有資料都吃了進來 但這不是我想要的 我只需要裡面有aa(1)及aa(2)的資料而已 請問該怎麼處理呢 謝謝 -- Sent from my fx-82SX -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.226.154.22 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1526388241.A.C01.html
推
05/15 21:02, 7年前 , 1F
用aa.cells(1)
05/15 21:02, 1F
→
05/15 21:02, 7年前 , 2F
Set bb = Range(aa.Cells(1), aa.Cells(2)) 試試
05/15 21:02, 2F
→
05/15 21:09, 7年前 , 3F
試了一下 結果依然是一樣的 囧
05/15 21:09, 3F
→
05/15 21:15, 7年前 , 4F
你用Range(rngA,rngB)就是代表一個左上角是rngA，右下角是
05/15 21:15, 4F
→
05/15 21:16, 7年前 , 5F
rngB的長方形@@
05/15 21:16, 5F
→
05/15 21:19, 7年前 , 6F
試試set bb = Union(aa(1), aa(2))
05/15 21:19, 6F
→
05/15 21:21, 7年前 , 7F
然後剛剛測試，range(1)和range.Cells(1)好像其實相同...
05/15 21:21, 7F
→
05/15 21:22, 7年前 , 8F
其運作元理就是以range最左上角的格子為基準做移動
05/15 21:22, 8F
→
05/15 21:23, 7年前 , 9F
所以你就算bb是用union的方式，bb(2)還是只能叫到aa(1)下
05/15 21:23, 9F
→
05/15 21:24, 7年前 , 10F
面那一格
05/15 21:24, 10F
→
05/15 21:25, 7年前 , 11F
如果你希望bb(1)是叫aa(1)，bb(2)是叫aa(5)，建議用
05/15 21:25, 11F
→
05/15 21:26, 7年前 , 12F
collection，如下試試
05/15 21:26, 12F
→
05/15 21:26, 7年前 , 13F
Dim bb As New Collection
05/15 21:26, 13F
→
05/15 21:26, 7年前 , 14F
bb.Add aa(1)
05/15 21:26, 14F
→
05/15 21:26, 7年前 , 15F
bb.Add aa(5)
05/15 21:26, 15F
→
05/15 21:26, 7年前 , 16F
這樣你呼叫bb(2)就會是aa(5)
05/15 21:26, 16F
→
05/15 21:30, 7年前 , 17F
因為會Call到excel的forecast function
05/15 21:30, 17F
→
05/15 21:31, 7年前 , 18F
forecast 不知道know_x,know_y能不能吃collection
05/15 21:31, 18F
→
05/15 22:14, 7年前 , 19F
如果只是要座標的話 bb(1).Row 和 bb(1).Column
05/15 22:14, 19F
→
05/15 22:16, 7年前 , 20F
呃，請忽略我上一樓的推文...= =
05/15 22:16, 20F
→
05/15 22:23, 7年前 , 21F
單純用array不能滿足需求嗎？
05/15 22:23, 21F
→
05/15 22:25, 7年前 , 22F
05/15 22:25, 22F
→
05/15 22:27, 7年前 , 23F
如果你希望可以直接叫array，又可以當成range物件，大概只
05/15 22:27, 23F
→
05/15 22:27, 7年前 , 24F
能自己寫物件模組了
05/15 22:27, 24F
→
05/15 22:49, 7年前 , 25F
稍微簡單寫了一下，沒有認真debug
05/15 22:49, 25F
→
05/15 22:50, 7年前 , 26F
05/15 22:50, 26F
→
05/16 22:12, 7年前 , 27F
謝謝n大了 物件模組最近才剛開始碰 正在熟悉中 囧
05/16 22:12, 27F
‣ 更多 terrylove12 的文章
文章代碼(AID): #1Q-jOHm1 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 terrylove12 的文章
文章代碼(AID): #1Q-jOHm1 (Office)