[已解决]如何求得这个自然数是谁？

stockding111 · 发表于 2013-6-6 23:23

根据一个公式“=($A2/6-n*(n-1)/2)/n”，A2是一个可以变化的数值，N是1-100的自然数，或者可以是任意自然数，但必须结果是，当N是哪个自然数时，这个公式的结果是介于0-1之间的？求高手以宏按钮的方式帮忙。具体详见附件。先谢为敬！

求N是哪个自然数.zip (7.93 KB, 下载次数: 4)

大灰狼1976 · 发表于 2013-6-6 23:58

工作表建一命令按钮，将代码贴入，并在[A2]单元格输入数据后点击按钮测试

Private Sub CommandButton1_Click()
Dim n
n = 1
Do
If ([a2] / 6 - n * (n - 1) / 2) / n > 0 And ([a2] / 6 - n * (n - 1) / 2) / n < 1 Then Exit Do
n = n + 1
Loop
MsgBox n
End Sub

复制代码

1032446692 · 发表于 2013-6-7 00:07

=MODE.SNGL(ROUND((A2/3+1/4)^0.5,),ROUND((A2/3+1/4)^0.5-0.5,),ROUND((A2/3+1/4)^0.5+0.5,))

复制代码

1032446692 · 发表于 2013-6-7 00:08

函数方法下拉就可以了
不知道楼主是不是非得要VBA代码的

1032446692 · 发表于 2013-6-7 00:29

三种做法

stockding111 · 发表于 2013-6-7 01:56

1032446692 发表于 2013-6-7 00:29
三种做法

谢谢老师，很是给力！

stockding111 · 发表于 2013-6-7 02:06

1032446692 发表于 2013-6-7 00:29
三种做法

老师，为什么我把代码中的“A列”变为“FF列”都运行好着，但是换成“BV列”就不行了（该列也同样是数值），提示类型不匹配的错误。是什么原因？

1032446692 · 发表于 2013-6-7 08:55

stockding111 发表于 2013-6-7 02:06
老师，为什么我把代码中的“A列”变为“FF列”都运行好着，但是换成“BV列”就不行了（该列也同样是数值） ...

你放在那一列都是很好运行的出现这种错误的原因很可能是你把数值型数据和字符型数据没区分好。
在单元格里有些看起来是数字的数据不一定是数值型数据。
你最好上个附件我们看看

stockding111 · 发表于 2013-6-7 14:53

1032446692 发表于 2013-6-7 00:07

老师，为什么把这个公式输入到单元格中再打回车，就出错了？你的原文件中得也是，我只要查看一下单元行的公式，再回车就出错了。

1032446692 · 发表于 2013-6-7 15:13

就是那个公式法的？

你用的是哪一版的office？

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