请问该如何用Function函数编写VBA代码？

Question

如何用Function函数编写VBA代码

Answer 1

1、Function gs()gs = ActiveSheet.Cells(ActiveCell.Row, 1) + ActiveSheet.Cells(ActiveCell.Row, 2) + ActiveSheet.Cells(ActiveCell.Row, 3)End Function在D列及其右边列输入 =gs()2、Function gs(a, b, c)gs = a + b - c '把公式的计算过程写到这里，输入公式时只要传入参数End Function在D1输入 =gs(A1,B1,C1)复制填充公式3、其实要实现 作表中在录入数据后目标单元格自动计算，但不需要别人看见目标单元格中的公式可用工作表保护配合单元格锁定来解决

Answer 2

1、Function gs()gs = ActiveSheet.Cells(ActiveCell.Row, 1) + ActiveSheet.Cells(ActiveCell.Row, 2) + ActiveSheet.Cells(ActiveCell.Row, 3)End Function在D列及其右边列输入 =gs()2、Function gs(a, b, c)gs = a + b - c '把公式的计算过程写到这里，输入公式时只要传入参数End Function在D1输入 =gs(A1,B1,C1)复制填充公式3、其实要实现 作表中在录入数据后目标单元格自动计算，但不需要别人看见目标单元格中的公式可用工作表保护配合单元格锁定来解决

Answer 3

‘直接赋值就可以Sub run()For i = 1 To 100Sheets("Sheet1").Cells(i, 4) = "=A" & i & "+B" & i & "-C" & iNextEnd Sub

Answer 4

Sub&nbsp;test()&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;i,&nbsp;j&nbsp;As&nbsp;Integer&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;a,&nbsp;b&nbsp;As&nbsp;String&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;=&nbsp;1&nbsp;To&nbsp;ActiveSheet.UsedRange.Rows.Count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Range("A"&nbsp;&&nbsp;i)&nbsp;=&nbsp;1&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;b&nbsp;=&nbsp;Range("B"&nbsp;&&nbsp;i).Value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;j&nbsp;=&nbsp;1&nbsp;To&nbsp;ActiveSheet.UsedRange.Rows.Count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Int(j&nbsp;/&nbsp;1000)&nbsp;*&nbsp;1000&nbsp;=&nbsp;j&nbsp;Then&nbsp;Application.StatusBar&nbsp;=&nbsp;"A&nbsp;列进度："&nbsp;&&nbsp;i&nbsp;&&nbsp;"&nbsp;&nbsp;&nbsp;&nbsp;"&nbsp;&&nbsp;"C列进度："&nbsp;&&nbsp;j&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;a&nbsp;=&nbsp;Range("C"&nbsp;&&nbsp;j).Value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;InStr(1,&nbsp;a,&nbsp;b)&nbsp;<>&nbsp;0&nbsp;Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Range("C"&nbsp;&&nbsp;j).Value&nbsp;=&nbsp;""&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DoEvents&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If&nbsp;&nbsp;&nbsp;&nbsp;NextEnd&nbsp;Sub'状态栏写的有进度

Answer 5

全数组，速度稍快些：Sub test()Dim arr, brr, i&, j&, m&, n&m = Cells(Rows.Count, "b").End(xlUp).Rown = Cells(Rows.Count, "c").End(xlUp).Rowarr = Range("A1:B" & m)brr = Range("C1:C" & n)For i = 1 To nFor j = 1 To mIf arr(j, 1) = 1 ThenIf InStr(brr(i, 1), arr(j, 2)) > 0 Thenbrr(i, 1) = ""Exit ForEnd IfEnd IfNextNextCells(1, "c").Resize(n, 1) = brrMsgBox "OK!"End Sub