[已解决]公式区间变量

psxk3535028-1

朗驰 发表于 2022-5-8 15:51
嗯  没有B列

是下面这个公式     放在任意单元格  比如  我是放在这里的  Range("B4:B98").FormulaR1C ...

FormulaR1C1决定了表达单元格的格式就是用RC表示，R,就是ROW，行,C就是Column，列，基准单元格左负右正，上负下正，行列交叉决定单元格地址

朗驰

psxk3535028-1 发表于 2022-5-9 02:25
FormulaR1C1决定了表达单元格的格式就是用RC表示，R,就是ROW，行,C就是Column，列，基准单元格左负右正， ...

感谢   学到了  

FormulaR1C1决定了表达单元格的格式就是用RC表示

朗驰

psxk3535028-1 发表于 2022-5-9 02:13
M,N是代码里面的，不是公式里面的值
如果如图所示，试试下面的代码，看看可行

感谢


1004autofil

psxk3535028-1

朗驰 发表于 2022-5-9 13:56
感谢

可能是没有选中BK4的原因，试试下面加上  Range("BK" & l).Select

l = InputBox("", "", "")
m = InputBox("", "", "")

       n = InputBox("", "", "")
Range("BK" & l).Select
Range("BK" & l).FormulaR1C1 = "=IF(AND(RC[-62]>=" & m & ",RC[-62]<" & n & "),"""" ,RC[-62])"
Range("BK" & l).AutoFill Destination:=Range("BK4:BK98"), Type:=xlFillDefault

朗驰

psxk3535028-1 发表于 2022-5-9 18:25
l = InputBox("", "", "")
m = InputBox("", "", "")

老师  仍旧1004

psxk3535028-1

我这里运行没有问题啊，不知什么原因

朗驰

psxk3535028-1 发表于 2022-5-9 21:34
我这里运行没有问题啊，不知什么原因

是版本问题还是缺啥吗


07精简版

朗驰

psxk3535028-1 发表于 2022-5-9 18:24
可能是没有选中BK4的原因，试试下面加上  Range("BK" & l).Select

l = InputBox("", "", "")

= "=IF(AND(RC[-62]>=" & m & ",RC[-62]


多谢    不知道为什么  


多次尝试  报错


然后 兜兜转转  还是您这个公式 有用  


我也不知点解


I M N
I  为BK4:BK&I  这样  但是 好像 公式中所有数字都为变量 就不好写了


-----------------------------------------------------------------------------------------------------------

但是下面这个  不知道为啥总失效    就是有的能用 有的就没反应 只有当前表  


For Each sht In Worksheets '建立for循环，遍历所有工作表
   
        If sht.Name <> "汇总" Then '若表名不等于“汇总”，执行下面代码
            If sht.Name <> "模板" Then
            
hide 列  也是  有的就是死活都横跳  就是不隐藏羽展开