首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

如果单元格等于产品和日期,则在相交单元格VBA中输入公式

在VBA中,如果要在相交单元格中输入公式,可以使用以下代码:

代码语言:txt
复制
Sub InsertFormula()
    Dim ws As Worksheet
    Dim productRange As Range
    Dim dateRange As Range
    Dim intersectRange As Range
    Dim formula As String
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置产品范围和日期范围
    Set productRange = ws.Range("A1:A10")
    Set dateRange = ws.Range("B1:B10")
    
    ' 获取相交范围
    Set intersectRange = Intersect(productRange, dateRange)
    
    ' 检查是否存在相交单元格
    If Not intersectRange Is Nothing Then
        ' 遍历相交单元格
        For Each cell In intersectRange
            ' 构建公式
            formula = "=SUM(" & cell.Address & ", " & cell.Offset(0, 1).Address & ")"
            
            ' 在相交单元格中输入公式
            cell.Offset(0, 2).Formula = formula
        Next cell
    End If
End Sub

上述代码中,假设产品范围在列A(A1:A10),日期范围在列B(B1:B10),公式结果将在相交单元格的右侧第二列(C列)中显示。公式是将相交单元格和相邻单元格的值相加。

请注意,这只是一个示例代码,你可以根据实际需求进行修改和调整。

相关搜索:VBA Excel如果单元格不等于公式,则Excel VBA在单元格或单元格公式中输入公式,后跟文本如何通过VBA将文本和公式输入到单元格中?如果A1为空,请输入数据,否则在A2单元格中输入引用其他动态工作表中的单元格的vba输入公式如何在vba中根据季度和年度单元格输入值过滤日期列?用VBA实现日期范围的过滤和表格中命名单元格值的输入使用vba输入在单元格中单击时显示的公式,然后在求解程序中使用该公式RadGrid -如果多个数据库列中的值不为null,则在单元格中输入值如果Excel VBA中的条件满足,如何剪切和粘贴单元格区域如何将日期形式的输入文本传输到VBA中的Excel单元格如果今天的日期与相邻单元格中的日期相同或晚于该日期,是否有办法阻止输入?VBA在列的单元格中插入公式,以便在满足多个IF和条件时进行计算Excel VBA -如果B列中的单元格包含值,则A列等于" value“,但不覆盖现有的A列数据在google sheets的单独列中输入单元格时,自动获取日期和时间打印当前时间、日期和用户名,以便在指定列的任何单元格中输入数据谷歌表格-条件格式的公式-如果任何2+列包含相同的日期,则将另一个单元格变为蓝色(日历中的相同日期)VBA excel尝试创建从文件导入数据的宏时,如果数据等于特定值,则将一个单元格放入新文件的工作表中如何运行从活动工作表复制单元格范围并将其粘贴到新工作簿中的VBA代码(仅限值和格式设置,而不是公式)?
相关搜索:
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

没有搜到相关的合辑

领券