我需要您的专家建议,以提供一个VBA脚本,自动显示使用的公式在excel。例如
单元格D4应该用A列中使用的参数名称显示B4中使用的公式。
下面的VBA脚本提供了带有单元格值的公式!但我需要参考A栏中提到的参数名称。
Function GetFormula(Cell As Range) As String
GetFormula = Cell.Formula
End Function
我需要引用一个带有变量的单元格位置,代码如下:
Dim jj As Integer
jj = 1
Do While jj <= x
if Cells(jj, 2) = "Some Criteria" Then Cells(jj, 3).Formula = "=Cells(jj,1)^2"
jj = jj + 1
Else
jj = jj + 1
End If
Loop
问题是,单元格C1中的值(即当单元格( jj,3)当jj=1时)从字面上读取= cells(jj,1)^2,这会导致错误,
我已经在excel中创建了一个VBA宏。它的工作方式并不完全是我想要的。 我希望宏在C1:C160区域中的每个单元格中为非空的B2:B160区域中的每个单元格插入一个公式 我的代码如下: Sub Check()
Dim dat As Variant
Dim rng As Range
Dim i As Long
Set rng = Range("B2:B160")
dat = rng
For i = LBound(dat, 1) To UBound(dat, 1)
If dat(i, 1) <>
我是excel VBA的初学者。对不起,这应该是非常基本的东西。我的问题是,我需要获得一个单元格相对于活动或选定单元格的值。所以我尝试的是
ActiveSheet.Range("P2").Select
Dim s As String
s = "=RC[-11]"
我的计划是在单元格中获得值,这是留给活动单元格的11列。由s="=RC-11",我知道它会按原样打印,它不会做任何操作。但我试着表达这是我最后的最终价值。所以我怎么能做到这一点。
我是按照这个帖子上的说明做的: How to Change Excel Power Query Paramaters with VBA 其中列出了用于更改Power查询参数的以下代码: ThisWorkbook.Queries([ParameterName]).Formula = 'New code here 但是,它将值转换为公式,并在其前面添加"=“: ? 我需要更新查询的源代码,因为GUID已过期,需要刷新。 Source = Xml.Tables(Web.Contents("http://api.aceproject.com/?fct=getp
我需要在一个单元格(例如A1)中插入一个公式,该公式引用另一个工作簿中的一些单元格(例如sum(A1:A3))。我不知道工作簿的路径和名称,所以我需要询问用户(编辑)。我知道活页的名字是"Foglio1"),我这样做:
Sub open_workbook_dialog()
Dim my_FileName As Variant
my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*")
End Sub
如何在公式中插入"my_Filename“?
我很难将内置的Excel函数传递给一个单元格。它一直在返回"Run-time error '1004': Application-defined or object-defined error".
基本上,我要做的是使用VBA创建一个平均/平均的动态演算。
With Sheets("TC7_DATA")
LastColumn = .Cells(4, Columns.Count).End(xlToLeft).Column
For i = 1 To Rows.Count
If (.Cells(i, 3).Value =
我是一个Excel VBA新手。
如何通过自定义函数修改指定单元格的值?这段代码有什么问题:
Function Test(ByVal ACell As Range) As String
ACell.Value = "This text is set by a function"
Test := "Result"
End Function
我的愿望是。当我在单元格E1中键入=Test(E6)时,Excel将在E6中显示指定的文本。