Проблема с формулой в VBA - PullRequest
Новая
       5

Проблема с формулой в VBA

0 голосов
/ 24 мая 2019

У меня есть макрос, который определяет разницу значений между моей второй видимой ячейкой в ​​столбце B и всеми другими видимыми ячейками в столбце B. Затем макрос возвращает мне разницу значений во второй видимой ячейке в столбце K (в этот случай на скриншоте 52479,85 EUR)…

Мне бы хотелось, чтобы макрос автоматически назначал найденную разницу значений (в данном случае 52479,85), добавляя ее к существующему значению в последней ячейке столбца B (в данном случае 556,32).

Для того, чтобы сделать это: я добавил эту строку в конце моего кода: Range ("B" и LastRow). .Значение Однако это не работает, макрос не добавляет 52479 к 556,32 в моей последней ячейке в столбце B.

Заранее большое спасибо за вашу помощь. Хави 

Sub differencetoassign()
Dim i As Long, counter As Long
Dim LastRow As Long
Dim secondcell As Range
Dim r As Range
Set r = ActiveCell
Dim secondRow As Long
LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
Range("B1").Activate
    For i = 2 To LastRow 'assuming a header row not to be counted
If r.Rows(i).EntireRow.Hidden = False Then counter = counter + 1
        If counter = 2 Then
            Set third secondcell= r.Cells(i, "A")
            Exit For
        End If
    Next i
Debug.Print secondcell
Debug.Print LastRow
secondRow = secondcell.Row
Debug.Print secondRow
Range("B" & LastRow).Formula = Range("B" & LastRow).Value + Range("K" & secondRow).Value
End Sub

enter image description here

1 Ответ

2 голосов
/ 24 мая 2019

Это другой подход к вашей проблеме, гораздо более эффективный и менее вероятный сбой: 

Option Explicit
Sub differencetoassign()

    Dim LastRow As Long
    Dim MainValue As Double 'second visible cell on column B
    Dim SubstractValue As Double 'will be summing the visible cells on column B after the second
    Dim AddValue As Double 'last visible value on column B
    Dim OutPutValue As Range
    Dim C As Range 'when looping through cells, For Each is the fastest option

    'Using with will allow you to reference a sheet so doesn't matter where you run the macro
    'the macro will only change that sheet
    With ThisWorkbook.Sheets("MySheet").AutoFilter.Range 'Change MySheet for the name of your working sheet
        AddValue = .Range("B" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).End(xlDown) 'now we have the value you want to add
        MainValue = .Range("B" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row) 'the main value
        Set OutPutValue = .Range("K" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row) 'where we will put the output
    End With

    'Now the substract values
    With ThisWorkbook.Sheets("MySheet")
        LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row 'Last row on filtered data
        For Each C In .Range("B2:B" & LastRow).SpecialCells(xlCellTypeVisible) 'loop only through visible cells
            If Not C = MainValue Then 'We don't want the main value to be added here, so we use this to skip it
                SubstractValue = SubstractValue + C
            End If
        Next C
    End With

    'Finally we put the value
    OutPutValue.Value = MainValue - SubstractValue + AddValue   

End Sub
...