急急急!VBA问题! 怎么编辑function?

Function AAA()End Function 然后再把你刚才剪切下来的东西 粘贴到Function 里面 变成:Function AAA()...End Function 最后,你在原来的Sub 里 调用自己刚创建的这个Function 就可以了 最终的代码应该变成这样:Sub Marco1()Call AAA()End Sub Function AAA()...End Function ...

checkdata = sum End Function

1.按Alt+F11，打开VBA编辑器。 2.单击菜单“插入→模块”，将插入名称为“模块1”的模块，在右侧的代码窗口中输入下列代码：Function SumByColor(Ref_color As Range, Sum_range As Range)Application.Volatile Dim iCol As Integer Dim rCell As Range iCol = Ref_color.Interior.ColorIndex For...

该成：i=cells(65536,3).end(xlup).row

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 调用代码示例：Private Sub CommandButton1_Click() Call PlaySound("d:\Ring07.wav", 0&, &H0)End Sub 相关PlaySound函数...

PF(x As Integer) For i = 2 To Application.WorksheetFunction.Max(x - 1, 2) If x Mod i = 0 Then PF = i Exit For End If Next If i = Application.WorksheetFunction.Max(x, 3) Then PF = xEnd Function ...

Function GetMax(dt1, dt2, dt3)Dim arr As Variant arr = Array(dt1, dt2, dt3)GetMax = Application.WorksheetFunction.Max(arr)End Function

出现这样错误提示的时候，点【调试】按钮，计算机就会用一个黄色的条标记出有错误的代码，就知道哪里出错了，点一下鼠标就知道。目测Sheet55不存在，可以写为Sheet1或者是Sheets("Sheet55")。

首先在VBA下面自定义一个函数。具体如下：下面是一个VBA自定义函数，1、打开一个工作表；2、按ALT＋F11(或执行工具--宏---VisualBasic编辑器)；3、执行“插入--模块”，再双击新插入的模块，在右面窗口中粘贴下面代码。4、若A1内容为 中国航天6号a，则B1中输入：=hztopy(A1) 即可。Function ...

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