rubberduck-vba / Rubberduck

Every programmer needs a rubberduck. COM add-in for the VBA & VB6 IDE (VBE).
https://rubberduckvba.com
GNU General Public License v3.0
1.91k stars 300 forks source link

Else If inside a Select Case does not align correctly #2552

Closed retailcoder closed 7 years ago

retailcoder commented 7 years ago

(originally reported on RubberduckWeb)

I have an If with multiple Else Ifs inside of a Select Case inside of a For loop.

The indenter is mis-aligning the Else Ifs and everything else below with Case. The actual code is much longer, but I think this reflects the issue. Below is the code after running the Indenter...

 For CurrentRow = 9 To MaxRows - 1
     Select Case .Cells(CurrentRow, "A")
       Case "[b]", "[f]", "[h]", "[t]"
         'Not a data row - skip
       Case "fMTCnty"
         'Do Stuff
       Case Else              
         If Mid(ReportName, 3, 1) = "r" Then
         iMult = -1      
       ElseIf ReportName = "SRadj" Or ReportName = "SRoth" Then
         iMult = -1
       ElseIf ReportName = "RBbarr" Then
         iMult = -1            
       Else                                    
         iMult = 1
       End If
       wsData.Calculate
       'More Stuff
     End Select
 Next iRow
rdster commented 7 years ago

Config file below rubberduck.config.txt

I'll update, I'm currently on 2.09....and test.

retailcoder commented 7 years ago

Ah, it's probably fixed already then - @comintern's current build seems to indent accordingly with specified indenter settings (ref. comment).

rdster commented 7 years ago

Just updated, and it is indenting as would be expected. Sorry for the false alarm.