代码之家 › 专栏 › 技术社区 › Newbie

Excel VBA-从活动单元格中减去变量

subtraction excel-formula excel vba

Newbie · 技术社区 · 7 年前

代码如下:

Sub Minus()
Dim numsub As Integer
If (D3 <> "") Then
    numsub = Worksheets("Inventario 31-12-2015 ").Range("D3").Value
    Dim FindString As Integer
    Dim Rng As Range
    FindString = ActiveWorkbook.Worksheets("Inventario 31-12-2015 ").Range("C3").Value
        With Sheets("Inventario 31-12-2015 ").Range("C25:C")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        End With
        If Not Rng Is Nothing Then
            Application.Goto Rng.Offset(0, 4), True
            ActiveCell.Value = ActiveCell.Value - numsub
        End If
End If
End Sub

欢迎提供任何提示、反馈或意见。

1 回复 | 直到 7 年前

SJR 7 年前

FindString的声明按照OP的建议进行了更改。我还将整数改为Long,这是一个很好的做法(谷歌搜索它以获取详细信息)。

Sub Minus()

Dim numsub As Long
Dim FindString As String
Dim Rng As Range

With Worksheets("Inventario 31-12-2015 ")
    If .Range("D3") <> vbNullString Then
        numsub = .Range("D3").Value
        FindString = .Range("C3").Value
        With .Range("C25:C100") 'change 100 to suit
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
        End With
        If Not Rng Is Nothing Then
            Application.Goto Rng.Offset(0, 4), True
            Rng.Offset(0, 4).Value = Rng.Offset(0, 4).Value - numsub
        End If
    End If
End With

End Sub

推荐文章

Arthur Filipe da Silva · 如何将数据集转换为存在/不存在矩阵?[副本]

2 年前

Thinkpad · Excel引用基于字符串的范围

2 年前

haku · 如何从作为某个值的子字符串的查找表中获取第一条记录?

2 年前

user161284 · 是否基于在多个单元格中找到某个字符串来设置单元格的条件格式?

2 年前

Gabriel Pierce · 返回Excel中的最新条目

3 年前

mak47 · 如何基于另一个单元格将单元格值限制为最大值?

3 年前

FINISHUT · 如何在excel中合并多个序列?

3 年前

Faye D. · 把1_2转到GetOne 2

3 年前

D T · 如何为Excel Com设置公式?

3 年前

CodingN00b · 仅当日期在特定范围内时才运行excel公式

3 年前