各位大神求用VBA编写一到十阶乘相加的程序，十万火急，万分感谢！！
'X的阶乘并求和Function SumJC(X As Integer) As Double rst = 0 For I = 1 To X '求和 jc = 1 For j = 1 To I '计算阶乘 jc = jc * j Next rst = rst + jc Next SumJC = rstEnd Function,测试 Sub T() 'X=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! '4037913 X = SumJC(10) MsgBox XEnd Sub
这种问题！你应该找专业的人回答！很明显，我不是
Dim s As Long, nn As Long, i As Integers = 0: nn = 1
For i = 1 To 10
nn = nn * i
s = s + nn
Next i
MsgBox ("1!+2!+3!+...+10!=" & s)
请懂VBA编程的大神帮忙啦!A列数据有汉字字母数字且顺序杂乱。希望在B...
Sub test()n = Range("a65536").End(xlUp).Row For i = 1 To n Count = 0 newstr = ""cell_len = Len(Cells(i, 1))For charcount = 1 To cell_len char = Mid(Cells(i, 1), charcount, 1)If Asc(char) > 0 Then newstr = newstr & char End If Next Cells(i, 2)...
求一个excel vba 宏 求大神帮助
'按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式Sub a数据转换()Dim arr(1 To 100, 1 To 4)For Each cel In Selection n = n + 1 arr(n, 1) = n arr(n, 2) = cel.Offset(0, 1) arr(n, 3) = cel.Offset(0, 2) arr(n, 4) = cel.Offse...
急求VBA大神!如何用VBA,将表中符合条件的数据所在的行筛选出来_百度知 ...
Sub VBA()On Error Resume Next '主要过滤掉值为0的情况T = Sheets(1).UsedRange.Rows.Countarr1 = Sheets(1).Range("a1:m" & T)Dim arr2ReDim arr2(1 To T - 1, 1 To 15)For n = 1 To UBound(arr2) For i = 1 To 13 arr2(n, i) = (arr1(n + 1, i) ...
我想用VBA实现把F1列的值,复制粘贴到G列内容,所对应的H列内容中,G列...
For i = 1 To Range("G65536").End(xlUp).Row Cells(i, "H") = Cells(1, "F")Next i
vba函数编写,求大神赐教
vba函数编写,求大神赐教 vba代码编写,sheet1里B列的职称栏在sheet'职称表'里面查找得出,sheet1里的D列等于C+sheet"l累计表"所对应的姓名的数据得出,例如sheet1里面姓名是梁坚,那么职称=副高,累计=-0.5-2... vba代码编写,sheet1里B列的职称栏在sheet'职称表'里面查找得出,sheet1里的D列等于C+sheet"l累计...
小白请教各位大神VBA这段代码应该怎么修改?
循环有问题。如图红色部分：1，m是循环变量，不要在循环体内用其他计算方法去改变它，很容易出错。应该另外设立一个变量，比如k 2，h1是循环终值，随着行数增加，这个终值应该增加 3，变量k在小循环后也应该自增一次，才能切换到大循环。另外，如图蓝色部分，不用每次开关一次数据库，会给数据库带来很大...
关于Excel求差的问题,求大神帮忙用VBA代码,解决一下,
在 Worksheet.Change 中加入以下代码便可实现你要的效果：Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long lngRow = Target.Row If lngRow = 5 Then Dim lngCol As Long lngCol = Target.Column If (lngCol = 3) Or (lngCol = 4) Then Ap...
求vba高手帮个忙,txt文件编码问题
Sub test() Dim fso Dim t Dim OutputPath As String OutputPath = "d:\\aaaaaa.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set t = fso.CreateTextFile(OutputPath, True, True) '第一个参数是文件名，第二个参数为真时是覆盖模式,第三个参数为true就可以...
求写excel vba中的一段代码
图片就不更新了，只更新代码。Integer是整数型，范围：-32,768 到 32,767 Long 长整数型，范围：-2,147,483,648 到 2,147,483,647 把Dim i As Integer改为Dim i As Long即可。【下面的代码已更新】：Sub JiSuan() b = [A2] e = [B2] g = [C2] r = [D65536].End...
想用excel中的VBA语句解一个比较简单的二元一次方程组。求大神帮帮忙...
Dim MyA as integer (就是你的Y88,Y99了，如果类型不对，改成Long or Double)Dim MyB as integer With Thisworksheet(你的表Worksheets(1)类似这样也行)MyA = (.cells(93,25).Value + .cells(70,25).Value * 2 - .cells(72,25).Value * 2) \/ 4 MyB = (.cells(93,25).Value + ...
法永菲科： Sub jp()Dim a, ba = 1b = 0For i = 1 To 10 Step 2For j = 1 To ia = a * jNext jb = b + aa = 1NextMsgBox b End Sub
盘县15876285477： VBA如何写出1到100的阶乘和阶和 - ？
法永菲科： 代码及运行结果如下:Sub 阶乘() Dim i, p, s p = 1 For i = 1 To 100 p = p * i s = s + i Next MsgBox ＂1到100的阶乘为:＂ & p & ＂,阶和为:＂ & s End Sub
盘县15876285477： - 请大家帮帮忙,用vba建立一个标准过程名称为sumtest,用来求10的阶乘 - ？
法永菲科： 你的问题里的声明变量类型是错误的,s的变量类型不能为integer,因为integer的最大值只到32767,阶乘结果值为3628800,超过了integer的范围,会造成计算“溢出”所以要更改s的变量类型为long.正确的代码如下 Sub sumtest() Dim i As Byte, s As Long s = 1 For i = 1 To 10 Step 1 s = s * i Next i Debug.Print s End Sub
盘县15876285477： 用vb求1到n的阶乘和的程序编写 - ？
法永菲科： 用vb求1到n的阶乘和的程序: 1. 自己编写函数代码: Private Function jieC(Byval n As Integer) As LongDim i As IntegerDim Fac As LongFac = 1For i = 1 To nFac = Fac * iNext ijieC = Fac End Function 2. 在需要求阶乘的地方,调用该函数: 例如: Dim y As Long y = jieC(10) '求阶乘(10)将用10调用上面的自定义函数,返回10的阶乘
盘县15876285477： 一的阶乘一直加到十的阶乘的vb程序用do while语句怎么编 - ？
法永菲科： Dim i, j As Integer Dim jiecheng, Totaljiecheng As Long i = 0 j = 0 jiecheng = 0 Totaljiecheng = 0 Do While (i < 10) i = i + 1 jiecheng = 1 j = 0 Do While (j < i) j = j + 1 jiecheng = jiecheng * j Loop Totaljiecheng = Totaljiecheng + jiecheng Loop MsgBox Totaljiecheng
盘县15876285477： ACCESS中如何用VBA模块编写任意数的阶乘？
法永菲科： function fun(a as integer) as integer if a=1 then fun = 1 fun=a*fun(a-1) end function 来自别人的答案: http://wenwen.soso.com/z/q135852284.htm以上这个答案是错了,来能运行 根据以上修改已测试通过: Function funp(a As Long) As Long If a = 1 Then funp = 1: Exit Function End If funp = a * funp(a - 1) End Function
盘县15876285477： VBA 阶乘 - ？
法永菲科： Dim s, nul Dim i, n: n = Val(InputBox(＂n=＂)) nul = CDec(1): s = CDec(0) For i = 1 To n nul = nul * i s = s + nul Next MsgBox CStr(s)
盘县15876285477： VBA 的 阶乘代码 - ？
法永菲科： n=text1.text p=1for i=1 to n p=p*inext i
盘县15876285477： ACCESS中如何用VBA模块编写任意数的阶乘 - ？
法永菲科： 没有任意数的,EXCEL中到175以后就已经非常大了,溢出错误.你是不是要在ACCESS中做个自定义函数求?Public Function fac(x As Long) fac = 1 For i = 1 To x fac = fac * i Next i End Function 我这里没有帮你加错误判断进去,数值太大就会溢出的.
盘县15876285477： Access里VBA的一段编程 求1到N的阶乘的和 - ？
法永菲科： Private Sub Command2_Click()Dim i As Integer, N 'N要定义为变体变量Dim sum As Double, m As DoubleN = InputBox(＂请输入N的值＂)If Not IsNumeric(...
