我需要在每个新的行中的一个单元格中添加一个公式到Google工作表。我在VBA中做了这个工作,但是无法在脚本中正确地构建它。我遍历我的行直到最后一行。在单元格J中,我希望插入这个公式:
var Discount = '=IF(ISBLANK("F"+i,,IF(ISNUMBER(FIND("CM","B"+i)),IF("C"+i>"F"+i,150,0),0))';
我使用此方法添加行:
var dtaCollect = ["","",StartDate,Cu
我广泛地浏览了这些论坛,但还没有找到解决我所遇到的奇怪问题的有效解决方案。 目前,我有一个电子表格,当双击W列中的单元格时,将调用vba模块在被单击的同一行的P列中插入一个文本字符串。这适用于以下模块: Sub CommentPrinted()
ActiveCell.Offset(0, -7).Value = "NL at Nurses Station"
End Sub 这就像预期的那样工作,但是现在我想稍微修改一下这个模块,以插入文本字符串以及括号中的当前日期和月份。在尝试这样做时,我将模块更改为: Sub CommentPrinted()
Active
这个问题非常简单,我已经看到使用VBA也许可以做到这一点,但我很有信心,仅仅使用数据验证也是可行的。
我在A栏中有一个Yes/No下拉列表,如果是,我想要显示"0“,如果B栏是"no",我想要插入数字(例如3200)。
A B
yes 0
No 3200 (or any other number)
yes 0
我尝试使用IF函数自定义数据验证:
=IF($A1="Yes", "0", "")
但是这样我就不能在单元格上插入数字。
任何意见都将不胜感激。
我正在从Wix接收一个数组,其中包含用户通过表单选择的课程。
数组从Wix接收的示例,其中用户选择了2门课程。此数组放置在单元格中。
["VBA","Django"]
上面的数组放置在excel文件中的一个单元格中,从其中我红色单元格并用课程填充VBA数组:
Dim data() As Variant
Dim arrStr As String
Dim dataItems As Long
Dim i As Long
Dim IndividualCourses(1 To 9) As String
arrStr = Range
我正在尝试使向一些已经有公式的单元格中插入Round函数变得更容易。
例如,如果单元格A1具有公式=b1+b2,则在使用此宏之后,我希望单元格内容读取=Round(b1+b2,)。每个单元格中的公式都不相同,因此b1+b2部分必须是任何值。
我能得到的只有这个:
Sub Round()
Activecell.FormulaR1C1 = "=ROUND(b1+b2,)"
End Sub
所以我真的在寻找一些方法来获得选定单元格中的公式,然后使用VBA编辑这些内容。我到处都找不到答案。
我已经在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) <>
我正在尝试将电子表格自己的文件名包含在动态创建的电子邮件正文中,其中包括一个VBA模块(?)职能:
=HYPERLINK("mailto:"&"address"&"?subject="&B7&"&body="&B7&FullName(); "E-Mail")
功能是
Function FullName() As String
FullName = ThisWorkbook.FullName()
End Function
在文档的“模块”中(我对VBA:
我需要在一个单元格(例如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“?
我正在SQL查询中构建公式,然后使用EXCEL VBA函数CopyFromRecordSet在电子表格中插入公式。公式的文本输入正确,但仅显示为文本,不计算。计算模式被设置为自动,单元格被格式化为"General“而不是"Text”。
为了得到计算公式,我必须输入每个单元格,就好像我要编辑公式一样,然后离开单元格,而不必实际编辑任何内容。只是输入和退出的动作导致公式计算,但必须在每个单元格上手动完成。
Sub Test1()
Application.ReferenceStyle = xlR1C1
Dim qry As String
qry = "SELEC
单元格A1指的是单元格A5,其值为5.5。我想向单元格A1插入一个= round (A5,)的round函数。我尝试了下面的代码,但它不能像我预期的那样工作。 Sub roundmacro()
Dim n As String
n = Range("A1").Value 'returns the value but I need reference from that range object instead
Range("A1").Formula = "=round(" & n & ",)&
我需要引用一个带有变量的单元格位置,代码如下:
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,这会导致错误,