作者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/cn.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