咨询个vba知识

taizhoexcelhome

函数数组公式要按三键，请问一下vba函数数组公式代码跟普通公式有区别吗？需要怎么添加代码呢？感谢

杨建营

Range.FormulaArray="你录入的公式"，这样录入的是数组公式。

准提部林

如例//
Sub TEST1() '單格數組公式--填充下拉
With Range("a2:a12")
     .Item(1).FormulaArray = "=SUM(B2:D2*5)"
     .Item(1).AutoFill Destination:=.Cells
End With
End Sub

Sub TEST2() '區域數組公式
Range("a2:a12").FormulaArray = "=SUM(B2:D2*5)"
End Sub

准提部林

幾個字的代碼也審核!!!

taizhoexcelhome

准提部林 发表于 2023-4-15 11:31
幾個字的代碼也審核!!!

感谢老师指导，谢谢

taizhoexcelhome

杨建营 发表于 2023-4-15 11:19
Range.FormulaArray="你录入的公式"，这样录入的是数组公式。

感谢老师指导，谢谢

taizhoexcelhome

准提部林 发表于 2023-4-15 11:29
如例//
Sub TEST1() '單格數組公式--填充下拉
With Range("a2:a12")

准提部林老师：您好！
我是vba的初学者，您写的代码我没有看明白。
以下是我的情况：
1、=MIN(IF(F3:AB3>0,F3:AB3,999))  这个数组公式是没有问题的，我现在想在vba里面用这个数组公式，转化如下：
2、wf7.Cells(rf7,5)=Application.WorksheetFunction.Min(if(wf3.range(cells(rf3,7),cells(rf3,wf3.UsedRange.Columns.Count))>0,wf3.range(cells(rf3,7),cells(rf3,wf3.UsedRange.Columns.Count)),999))  系统一直提示我缺少表达式，我不知道问题在哪里？

taizhoexcelhome

杨建营 发表于 2023-4-15 11:19
Range.FormulaArray="你录入的公式"，这样录入的是数组公式。

杨建营老师，您好！
我用您的公式，还是有问题，我不知道问题出在哪里？我把我的情况说明一下
以下是我的情况：
1、=MIN(IF(F3:AB3>0,F3:AB3,999))  这个数组公式是没有问题的，我现在想在vba里面用这个数组公式，转化如下：
2、wf7.Cells(rf7,5)=Application.WorksheetFunction.Min(if(wf3.range(cells(rf3,7),cells(rf3,wf3.UsedRange.Columns.Count))>0,wf3.range(cells(rf3,7),cells(rf3,wf3.UsedRange.Columns.Count)),999))  系统一直提示我缺少表达式，我不知道问题在哪里？

Yalishanda30

taizhoexcelhome 发表于 2023-4-15 15:04
杨建营老师，您好！
我用您的公式，还是有问题，我不知道问题出在哪里？我把我的情况说明一下
以下是我 ...

都用VBA了思维就别局限在公式了，直接VBA处理