3个回答
2014-10-15 · 知道合伙人教育行家
天雨下凡
知道合伙人教育行家
采纳数：17564
获赞数：65155
爱电脑、爱数学、爱音乐； 熟悉VB、C/C++、JAVA； EXCEL与VBA有所研究…… 数学，一些会，一些被忘却……
向TA提问 私信TA
关注
![]()
展开全部
用VBA，步骤如下：
ALT+F11，输入如下代码：
Function fac(n As Integer) As Integer
If n = 1 Or n = 2 Then
fac = 1
Else
fac = fac(n - 1) + fac(n - 2)
End If
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") < 0 Then Exit Sub
Rows(2).ClearContents
Dim i As Integer
For i = 1 To Range("A1")
Cells(2, i) = fac(i)
Next i
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
