Макрос не делится как надо - PullRequest
Новая
       28

Макрос не делится как надо

0 голосов
/ 27 декабря 2018

У меня есть макрос, который работает, но только при делении до 19.00.Когда 20.00 или выше - это число, которое нужно разделить, оно делится только на 10.00 и все.Предполагается, что любое число до 12.00 делится на 10 ячеек, а любое число, превышающее 12.00, должно записывать избыточное количество в первое число в найденной паре.

Кроме того, мой макрос ссылается на «Диапазон(«G» и найдено) .Value = pair »в конце, но ничего не пишется.Что мне действительно нужно, так это удалить это или сделать его гибким для записи в конкретные ячейки, чтобы его можно было изменить в будущем или, как я уже сказал, просто удалите его.

Если кто-то может взглянуть и посмотреть, чтоЯ не вижу, что это обязательно будет оценено. 

Sub DIVIDE()
Application.ScreenUpdating = False

Dim pair As Variant, accumulator As Variant
Dim findFifteen As Double
Dim remainder As Long, found As Long

found = 1

For Each pair In Range("B30, F30, J30")
If Right(pair, 2) = 15 Then
    If pair.Offset(0, 1) <= 12 Then
        findFifteen = pair.Offset(0, 2) / 10
        remainder = 0
    Else
        findFifteen = 1
        remainder = pair.Offset(0, 2) Mod 10
    End If

    For Each accumulator In Range("A36, D36, G36, J36, M36, A40, D40, G40, J40, M40")
        If accumulator.Offset(-1, 0) = Val(Left(pair, InStr(pair, "-") - 1) Then
            accumulator.Value = accumulator.Value + remainder
        End If
        accumulator.Value = accumulator.Value + findFifteen
    Next accumulator
Range("G" & found).Value = pair
found = found + 1
End If
Next pair

Application.ScreenUpdating = True
End Sub

EXCEL IMAGE

...