第1个回答 2013-01-17
假设你单元格在A1 ,在B1输入=if(A1>100,A1+1,IF(100<=A1<200,A1+3,IF(200<=A1<300,A1+4,IF(300<=A1<400,A1+5,A1+6))))
第2个回答 2013-01-17
你是想在输入行得到这个结果吗?
如果是,我回答不了你,因为要写VBA代码
如果只是判断单元格,在另一个格子输出,用下面的公式,假设输入数据在A1
=if(A1<100,a1+1,if(A1<200,a1+3,if(A1<300,A1+4,if(A1<400,A1+5,a1+6))))
或者用户lookup函数做
=LOOKUP(A1,{0,99,199,299,399,400},{1,3,4,5,6,6})+A1
第3个回答 2013-01-17
这个问题我预定了,A1中输入数值
=IF(AND(A1>=0,A1<100),A1+1,IF(AND(A1>=100,A1<200),A1+3,IF(AND(A1>=200,A1<300),A1+4,IF(AND(A1>=300,A1<400),A1+5,A1+6))))
加在输入的数值上需要VBA代码,看看这个修改A1单元格的值
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Val(Cells(1, 1)) > 400 Then
Cells(1, 1) = Val(Cells(1, 1)) + 6
ElseIf Val(Cells(1, 1)) > 300 Then
Cells(1, 1) = Val(Cells(1, 1)) + 5
ElseIf Val(Cells(1, 1)) > 200 Then
Cells(1, 1) = Val(Cells(1, 1)) + 4
ElseIf Val(Cells(1, 1)) > 100 Then
Cells(1, 1) = Val(Cells(1, 1)) + 3
ElseIf Val(Cells(1, 1)) > 0 Then
Cells(1, 1) = Val(Cells(1, 1)) + 1
End If
End Sub
再有什么需要更改的地方可以再找我,可以按ALT+F11试试打开代码编辑器本回答被提问者采纳
第4个回答 2013-01-17
=If(isblank(A1),"",If(And(A1>0,A1<=100),A1+1,If(And(A1>100,A1<=200),A1+3,If(And(A1>200,A1<=300),A1+4,If(And(A1>300,A1<=400),A1+5,A1+6)))))