VBA中的条件语句 if cells(a,1)>=[B1] And cells(a,1)<=[C

VBA中的条件语句 if cells(a,1)>=[B1] And cells(a,1)<=[C

整个区间是什么概念？
你想自己设定c1的数值？追问对，原来是在B1和C1输入两个数字，然后确定一个区间，比如10和20就是大于10小于20的所有数字都得取，但是这个区间内有些数字是不需要的，我想自己输入需要的数字，比如13，15，16对，原来是在B1和C1输入两个数字，然后确定一个区间，比如10和20就是大于10小于20的所有数字都得取，但是这个区间内有些数字是不需要的，我想自己输入需要的数字，比如13，15，16追答在之前增加这样一行代码即可，然后引用：


Dim my_Value As Single
my_Value = Application.InputBox("please input the value", Type:=1)
if cells(a,1)=my_Value Then追问后面也可以多加几个类似的条件是吧？后面也可以多加几个类似的条件是吧？type：=1是什么意思呢？追答可以增加条件。
type:=1表示只能输入数字。

0公式

1 数字

2文本（字符串）

4逻辑值（True 或 False）

8单元格引用，作为一个 Range 对象

16错误值，如 #N/A

64数值数组追问好的，明白了，谢谢你我回去试试看你好，我再问一下，如果我条件一满足第一个输入框中的数字，条件二满足第二个输入框中的数字，以此类推，该怎么写？追答Dim my_Value1, my_Value2 As Single
my_Value1 = Application.InputBox("please input the value", Type:=1)
my_Value2 = Application.InputBox("please input the value", Type:=1)
if cells(a,1)>my_Value1 AND cells(a,1)private sub commandbutton1_click（）
dim rw%,a%,n%,b%
range("y4","ae10003").clearcontents
rw=[d36556].end(xlup).row
for a=4 to rw
if cells(a,9)>=[w4] and cells(a,9)<=[x4] then
n=n+1
cells（a,1）.resize（,7）.copy range（"y"&n+2）
end if
next
end sub该怎么插入你给的代码？另外input输入框怎么调出？能帮给我指点一下吗你好，我试了一下，引入后可以输入数字，但是只能输入单个数字，我想在一个框内输入多个数字，该怎么办呢？追答哈哈，试着自学一下吧，不必总问别人。
用窗体中的文本框输入，可以设置多个。追问零基础啊，所以短时间肯定弄不出来啦，你的意思是插入多个文本框？那代码该如何改呢

看不懂你的意思

看不懂你在说什么

h

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息