[VBA ] 詢問指定跳到某持儲存格數直的列數

[akiaki2007 (Miko)]

大家好!

巨集我是用錄製的~
內容如下

'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"有改過嗎？
→ knstt: 你的目的是什麼, select和goto其實不好用
→ waiter337: Sub 第一種方式()
→ waiter337: 儲存格 = InputBox("請輸入儲存格,例:K2")
→ waiter337: Range(儲存格).Select
→ waiter337: Row = Range(儲存格).Row
→ waiter337: Col = Range(儲存格).Column
→ waiter337: Sheets("工作表1").Cells(Row + 98, Col - 4).Select
→ waiter337: End Sub
→ waiter337: 第三樓 複製到第八樓 直接貼上就可以用了
→ waiter337: Sub 第二種方式()
→ waiter337: '在 L1 輸入abc行  ,M1輸入123列
→ waiter337: Dim rngCopy As Range
→ waiter337: krow = Range("L1")  '<-本身是文字
→ waiter337: kcol = Range("M1").Text  '<將數字改文字格式
→ waiter337: 目標row = Range(krow & kcol).Row   '找出列
→ waiter337: 目標col = Range(krow & kcol).Column '找出行
→ waiter337: Cells(目標row + 98, 目標col - 4) = _
→ waiter337: Range(krow & kcol).Value     '與上一行 為同一行
→ waiter337: '^將資料直接丟給目標位置
→ waiter337: End Sub
→ waiter337: 10~20樓 直接複製貼上也可以
→ waiter337: 看你要哪種
→ waiter337: Dim rngCopy As Range 這行可以拿掉 我多打得
→ waiter337: 差點忘了  第一種方式 我忘了放入copy
→ waiter337: 第二種方式  譬如 L1打K   M1打2  就是指向K2
→ luckid: Cells(Range("k2"), 7).Select        不知是否可行