為什麼這篇VBA 跳 到 指定 儲存格鄉民發文收入到精華區：因為在VBA 跳 到 指定 儲存格這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者akiaki2007 (Miko)看板Visual_Basic標題[VBA ] 詢問指定跳到某持...
大家好!
巨集我是用錄製的~
內容如下
'Range("K2").Select
Selection.Copy
Application.Goto Reference:="R100C7"
End Sub
K2儲存格可以手key數值(ex.200..)
巨集設定我要跳到第K2值的列&第7欄
照原本的巨集,K2=100
即便我我改了K2=200,也只會跳到R100C7
我要怎麼修改這條編碼讓他可以隨K2的值變動?
ex當K2=150→跳到R150C7
當K2=234→跳到R234C7
非常感謝大家幫忙><
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.51.165.114
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1478245195.A.554.html
推 johnpage: Reference:="R100C7"有改過嗎？ 11/04 17:30
→ knstt: 你的目的是什麼, select和goto其實不好用 11/04 23:01
→ waiter337: Sub 第一種方式() 11/10 15:02
→ waiter337: 儲存格 = InputBox("請輸入儲存格,例:K2") 11/10 15:02
→ waiter337: Range(儲存格).Select 11/10 15:02
→ waiter337: Row = Range(儲存格).Row 11/10 15:02
→ waiter337: Col = Range(儲存格).Column 11/10 15:02
→ waiter337: Sheets("工作表1").Cells(Row + 98, Col - 4).Select 11/10 15:02
→ waiter337: End Sub 11/10 15:03
→ waiter337: 第三樓 複製到第八樓 直接貼上就可以用了 11/10 15:03
→ waiter337: Sub 第二種方式() 11/10 15:21
→ waiter337: '在 L1 輸入abc行 ,M1輸入123列 11/10 15:21
→ waiter337: Dim rngCopy As Range 11/10 15:21
→ waiter337: krow = Range("L1") '<-本身是文字 11/10 15:21
→ waiter337: kcol = Range("M1").Text '<將數字改文字格式 11/10 15:21
→ waiter337: 目標row = Range(krow & kcol).Row '找出列 11/10 15:21
→ waiter337: 目標col = Range(krow & kcol).Column '找出行 11/10 15:21
→ waiter337: Cells(目標row + 98, 目標col - 4) = _ 11/10 15:22
→ waiter337: Range(krow & kcol).Value '與上一行 為同一行 11/10 15:23
→ waiter337: '^將資料直接丟給目標位置 11/10 15:23
→ waiter337: End Sub 11/10 15:23
→ waiter337: 10~20樓 直接複製貼上也可以 11/10 15:23
→ waiter337: 看你要哪種 11/10 15:24
→ waiter337: Dim rngCopy As Range 這行可以拿掉 我多打得 11/10 15:25
→ waiter337: 差點忘了 第一種方式 我忘了放入copy 11/10 15:30
→ waiter337: 第二種方式 譬如 L1打K M1打2 就是指向K2 11/10 15:31
→ luckid: Cells(Range("k2"), 7).Select 不知是否可行 11/19 10:51