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

看板Visual_Basic作者 (Miko)時間8年前 (2016/11/04 15:39), 編輯推噓1(1026)
留言27則, 4人參與, 最新討論串1/1
大家好! 巨集我是用錄製的~ 內容如下 '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

11/04 17:30, , 1F
Reference:="R100C7"有改過嗎?
11/04 17:30, 1F

11/04 23:01, , 2F
你的目的是什麼, select和goto其實不好用
11/04 23:01, 2F

11/10 15:02, , 3F
Sub 第一種方式()
11/10 15:02, 3F

11/10 15:02, , 4F
儲存格 = InputBox("請輸入儲存格,例:K2")
11/10 15:02, 4F

11/10 15:02, , 5F
Range(儲存格).Select
11/10 15:02, 5F

11/10 15:02, , 6F
Row = Range(儲存格).Row
11/10 15:02, 6F

11/10 15:02, , 7F
Col = Range(儲存格).Column
11/10 15:02, 7F

11/10 15:02, , 8F
Sheets("工作表1").Cells(Row + 98, Col - 4).Select
11/10 15:02, 8F

11/10 15:03, , 9F
End Sub
11/10 15:03, 9F

11/10 15:03, , 10F
第三樓 複製到第八樓 直接貼上就可以用了
11/10 15:03, 10F

11/10 15:21, , 11F
Sub 第二種方式()
11/10 15:21, 11F

11/10 15:21, , 12F
'在 L1 輸入abc行 ,M1輸入123列
11/10 15:21, 12F

11/10 15:21, , 13F
Dim rngCopy As Range
11/10 15:21, 13F

11/10 15:21, , 14F
krow = Range("L1") '<-本身是文字
11/10 15:21, 14F

11/10 15:21, , 15F
kcol = Range("M1").Text '<將數字改文字格式
11/10 15:21, 15F

11/10 15:21, , 16F
目標row = Range(krow & kcol).Row '找出列
11/10 15:21, 16F

11/10 15:21, , 17F
目標col = Range(krow & kcol).Column '找出行
11/10 15:21, 17F

11/10 15:22, , 18F
Cells(目標row + 98, 目標col - 4) = _
11/10 15:22, 18F

11/10 15:23, , 19F
Range(krow & kcol).Value '與上一行 為同一行
11/10 15:23, 19F

11/10 15:23, , 20F
'^將資料直接丟給目標位置
11/10 15:23, 20F

11/10 15:23, , 21F
End Sub
11/10 15:23, 21F

11/10 15:23, , 22F
10~20樓 直接複製貼上也可以
11/10 15:23, 22F

11/10 15:24, , 23F
看你要哪種
11/10 15:24, 23F

11/10 15:25, , 24F
Dim rngCopy As Range 這行可以拿掉 我多打得
11/10 15:25, 24F

11/10 15:30, , 25F
差點忘了 第一種方式 我忘了放入copy
11/10 15:30, 25F

11/10 15:31, , 26F
第二種方式 譬如 L1打K M1打2 就是指向K2
11/10 15:31, 26F

11/19 10:51, , 27F
Cells(Range("k2"), 7).Select 不知是否可行
11/19 10:51, 27F
文章代碼(AID): #1O73jBLK (Visual_Basic)
文章代碼(AID): #1O73jBLK (Visual_Basic)