注册 登录
编程论坛 VB6论坛

如何引用inputbox的值(excel)

石乐志 发布于 2018-07-18 09:49, 1380 次点击
现有一列数据(AH),我希望用两个inputbox输入两个阈值,将某区间内的数据筛选出来反映在K列,例如大于05小于40的为"05-40"
先尝试得到区间的最小值
 令a获得inputbox的输入值,将a与RC[24]比较
 尝试过:
1. RC[24]>a
 2.RC[24]>""a""
 3.RC[24]>"a"
 4.RC[24]>&a
 5.RC[24]>""""&a



 ------------------------------------------------------------
 Sub Macro7()

 Dim a As String

 a = InputBox("begin", "zyh")

     Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
     Application.Goto Reference:="R6C11:R1200C11"
     Selection.FormulaR1C1 = _
         "=IF(RC[24]>a,"""",IF(RC[24]>""38"",""40-65"",IF(RC[24]>""05"",""06-38"","""")))"
 End Sub
0 回复
1