这个公式有什么方法可以写吗

inmostolive · 发表于 2011-1-21 15:47

功能是实现一个数的连续减，最多减到12，比如A1-1-2-3-4-5-6-7-8-9-10-11-12,当减出来的值小于10则停止并显示值的结果，
=IF(A1-1<10,A1-1,IF(A1-1-2<10,A1-1-2,IF(A1-1-2-3<10,A1-1-2-3,IF......)))

谢谢!

[ 本帖最后由 inmostolive 于 2011-1-21 16:27 编辑 ]

wangyuhu · 发表于 2011-1-21 15:50

上传附件并模拟结果，10个数吧

goalone1985 · 发表于 2011-1-21 15:55

用VBA吧
dim a as integer,sum as integer
sum=worksheets('sheet1').range("A1").value
for a=1 to 12
sum=sum-a
if sum<10 then
worksheets('sheet1').range("A1").value=sum
exit for
end if
next a

yvhgydn · 发表于 2011-1-21 16:01

Sub fd()
Do While Range("a1") >= 10
n = n + 1
Range("a1") = Range("a1") - n
Loop
End Sub

inmostolive · 发表于 2011-1-21 16:01

谢谢楼上几位，能通过函数实现吗，附件已上传在顶楼

[ 本帖最后由 inmostolive 于 2011-1-21 16:04 编辑 ]

yvhgydn · 发表于 2011-1-21 16:12

原帖由 inmostolive 于 2011-1-21 16:01 发表
谢谢楼上几位，能通过函数实现吗，附件已上传在顶楼

函数不行，如果非要使用函数，也需要使用自定义函数，

zm0115 · 发表于 2011-1-21 16:18

拙作，见附件。需要辅助列

工作簿1.rar (3.48 KB, 下载次数: 24)

wangyuhu · 发表于 2011-1-21 16:20

=IF(A1<10,A1,A1-SUM(ROW(INDIRECT("1:"&MIN(IF(A1-{1;3;6;10;15;21;28;36;45;55;66;78}<10,ROW(1:12)))))))
数组，按三键，应该有更简单的

一剑惊心 · 发表于 2011-1-21 16:26

既然最大值是78，那么
=MAX(--TEXT(B1-{1;3;6;10;15;21;28;36;45;55;66;78},"[>9]!0;!0;0"))数组

inmostolive · 发表于 2011-1-21 16:26

太感谢各位了，谢谢！
终于解决了！

		自动登录	找回密码
密码			免费注册

[已解决] 这个公式有什么方法可以写吗

评分