作者akiaki2007 (Miko)
看板Visual_Basic
標題[VBA ] 詢問指定跳到某持儲存格數直的列數
時間Fri Nov 4 15:39:52 2016
大家好!
巨集我是用錄製的~
內容如下
'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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1478245195.A.554.html
1F：推 johnpage: Reference:="R100C7"有改過嗎？ 11/04 17:30
2F：→ knstt: 你的目的是什麼, select和goto其實不好用 11/04 23:01
3F：→ waiter337: Sub 第一種方式() 11/10 15:02
4F：→ waiter337: 儲存格 = InputBox("請輸入儲存格,例:K2") 11/10 15:02
5F：→ waiter337: Range(儲存格).Select 11/10 15:02
6F：→ waiter337: Row = Range(儲存格).Row 11/10 15:02
7F：→ waiter337: Col = Range(儲存格).Column 11/10 15:02
8F：→ waiter337: Sheets("工作表1").Cells(Row + 98, Col - 4).Select 11/10 15:02
9F：→ waiter337: End Sub 11/10 15:03
10F：→ waiter337: 第三樓 複製到第八樓 直接貼上就可以用了 11/10 15:03
11F：→ waiter337: Sub 第二種方式() 11/10 15:21
12F：→ waiter337: '在 L1 輸入abc行 ,M1輸入123列 11/10 15:21
13F：→ waiter337: Dim rngCopy As Range 11/10 15:21
14F：→ waiter337: krow = Range("L1") '<-本身是文字 11/10 15:21
15F：→ waiter337: kcol = Range("M1").Text '<將數字改文字格式 11/10 15:21
16F：→ waiter337: 目標row = Range(krow & kcol).Row '找出列 11/10 15:21
17F：→ waiter337: 目標col = Range(krow & kcol).Column '找出行 11/10 15:21
18F：→ waiter337: Cells(目標row + 98, 目標col - 4) = _ 11/10 15:22
19F：→ waiter337: Range(krow & kcol).Value '與上一行 為同一行 11/10 15:23
20F：→ waiter337: '^將資料直接丟給目標位置 11/10 15:23
21F：→ waiter337: End Sub 11/10 15:23
22F：→ waiter337: 10~20樓 直接複製貼上也可以 11/10 15:23
23F：→ waiter337: 看你要哪種 11/10 15:24
24F：→ waiter337: Dim rngCopy As Range 這行可以拿掉 我多打得 11/10 15:25
25F：→ waiter337: 差點忘了 第一種方式 我忘了放入copy 11/10 15:30
26F：→ waiter337: 第二種方式 譬如 L1打K M1打2 就是指向K2 11/10 15:31
27F：→ luckid: Cells(Range("k2"), 7).Select 不知是否可行 11/19 10:51