Головокружение Excel VBA И ИЛИ логические операторы

Question

Я хотел бы моя процедура удалить любую строку, в которой column a (cA) is Fund ID 6347 OR 6349И имеет влияние основы точечной less than +/-100Иless than +/-50% price change

Следующий код работает для удаления строк с: either fund and a basis point impact +/- 100 но я не верю, что он работает в соответствии с моими намерениями, так как среди чрезвычайно запутанных круглых скобок в сочетании с плохим интерфейсом IDE 2007 года, когда я удаляю код cells(i, cJ) >= -100) в первой строке, мой тест терпит неудачу, заставив меня поверить, что в каким-то образом мой код работает частично, но в случае аварии.

Кто-нибудь понимает логику, которую я пытаюсь закодировать? Есть ли какой-либо веб-интерфейс, я могу кодировать Excel VBA и видеть скобки выделены для лучшего опыта в этих ситуациях? Спасибо

 For i = LR To 2 Step -1 

        If (Left(CStr(cells(i, cA)), 4) = "6347" And (cells(i, cJ) <= 100 And cells(i, cJ) >= -100)) Or _ 
        (Left(CStr(cells(i, cA)), 4) = "6349" And (cells(i, cJ) <= 100) And cells(i, cJ) >= -100) Or _ 
        Left(CStr(cells(i, cC)), 4) = "Trs " Or _ 
        Mid(CStr(cells(i, cC)), 15, 8) = "bcomf1t " Or _ 
        Mid(CStr(cells(i, cC)), 15, 7) = "bcomtr " Then 

Answer 1

Если вы беспокоиться только о «фонде» и " удар », то пошли следующим образом:

Dim okFund As Boolean, okImpact As Boolean 

For I = LR To 2 Step -1 

    okFund= Left(CStr(Cells(I, cA)), 4) = "6347" Or (Left(CStr(Cells(I, cA)), 4) = "6349" 
    okImpact = Cells(I, cJ) <= 100 And Cells(I, cJ) >= -100 

    If okFund And okImpact Then 

Answer 2

Вытащите переменные из таблицы , прежде чем вы строите свой, если заявление, а затем положить их один на каждой линии. Это намного эффективнее и значительно облегчает чтение. После вашей спецификации заявление:

Я хотел бы моя процедура удалить любую строку, в которой столбец а (Калифорния) Фонд ID 6347 ИЛИ 6349 и имеет влияние базисных пунктов меньше, чем +/- 100 И меньше +/- 50% изменение цены

это будет выглядеть следующим образом (обратите внимание, что я предполагаю, на какие ценности приходят от того, где и ваш код имеет дополнительные условия, не поясните):

Dim FundId As String 
FundId = Left$(Cells(i, cA).Value, 4) 
Dim BasisImpact As Long 
BasisImpact = Cells(i, cJ).Value 
Dim PriceChange As Long 
PriceChange = Cells(i, whereever).Value 

If (FundId = "6347" Or FundId = "6349") And _ 
    (BasisImpact >= -100 And BasisImpact <= 100) And _ 
    (PriceChange >= -50 And PriceChange <= 50) Then 

Как указано out by @Jeeped в комментариях, VBA выполнит все тестов в операторе If (это не короткое замыкание). Если это в исполнении критической части кода или у вас есть огромный набор данных, гнездящихся на If заявления и лист доступов даст вам лучшую производительность:

If FundId = "6347" Or FundId = "6349" Then 
    Dim BasisImpact As Long 
    BasisImpact = Cells(i, cJ).Value 
    If BasisImpact >= -100 And BasisImpact <= 100 Then 
     Dim PriceChange As Long 
     PriceChange = Cells(i, whereever).Value 
     If PriceChange >= -50 And PriceChange <= 50 Then 
      'Do your thing 
     End If 
    End If 
End If