作者mimi523 (freshman)
看板Visual_Basic
标题[VBA ] 请问如何把常数项位置改为变数的方式表示
时间Thu Jul 17 18:48:15 2008
各位大大，我也是一个没有学过VBA，但是老师很坚持要我写出来...
目前查了书和爬文，但相关背景太少了，很多都不太懂。因为时间紧迫只好求助各位
我用录制巨集的方式去看程式码
但因为我相同的巨集要作49遍，需要用到回圈
所以必须将录制好的程式码中的位置改成变数。
(本来我的作法是复制程式码改数字，然後贴49遍，但跑不动>"<，而且好累...)
後来我已经知道可以把Range("I38")改成Cells(38,9)
所以cells里面可以用(i,j)当作变数
但是其他的我就不会改了，如下所示
Cells(43, 20).Select
ActiveCell.FormulaR1C1 = "=LOOKUP(R[-1]C,R43C10:R79C10,R43C17:R79C17)"
^^^^^^ ^^^^ ^^^ ^^^ ^^^
还有
Cells(43, 21).Select
ActiveCell.FormulaR1C1 = "=R[1]C+40"
^^^^
Cells(45, 21).Select
ActiveCell.FormulaR1C1 = "=ADDRESS(R[-2]C,COLUMN(R[-25]C[-1]))"
^^^^^^^ ^^^^^^^^^^^^
以及
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$U$42", Formula2:="=$U$47"
^^^^^^ ^^^^^^^
Cells(4, 28).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R42C20:R79C20,""<=36"")"
^^^^^^^^^^^^^ ^^^^^
Cells(4, 29).Select
ActiveCell.FormulaR1C1 = "=R[38]C[-8]"
^^^^^^^^^^
总之我遇到类似R**C**或是R[**]C[**]就不知道怎麽换成变数了??
先谢谢各位大大了!!感激不尽~~T.T
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.4.235
1F：→ MOONRAKER:RxCy是相对座标 很难在VBA中使用 但是可以完全替换成 07/17 19:13
2F：→ MOONRAKER:绝对座标 你最好仔细观察公式参考到的各格位然後利用 07/17 19:14
3F：→ MOONRAKER:绝对座标(如A5:D12这种)去修改 07/17 19:15
4F：→ mimi523:谢谢M大~我去试试看喔!! 07/17 20:15